VBA - Souci sur valeur de cellule

[invite1d577638]

Bonjour à tous,

J'ai vraiment un souci étrange avec une macro VBA Excel 2016...

Je cherche à générer automatiquement un calendrier avec affichage jours de la semaine (Lundi, Mardi...). Excel possède la fonction qui va bien, JOURSEM. Comme argument, il faut lui donner un numéro fonction de la date concernée, numéro qui s'obtient avec la fonction DATEVAL.

J'ai donc une boucle qui fait :

For i = 1 To 30

Worksheets("cal").Cells(i + 1, 4).Value = "=DATEVAL(" & Chr$(34) & Trim(Str(i) & "/09/2016") & Chr$(34) & ")"

next i

Pour calculer dans un premier temps ce numéro.

Le code génère bien dans les cellules le texte suivant :

=DATEVAL("1/09/2016")
=DATEVAL("2/09/2016")
=DATEVAL("3/09/2016")
=DATEVAL("4/09/2016")

MAIS au lieu de retourner le numéro de jour (42614, 42615....) directement il me retourne l'erreur "#NOM?". Lorsque je sélectionne la formule de la cellule à la main et que je valide avec Entrée, là ça fonctionne. Il n'y a AUCUNE différence entre la cellule qui fonctionne et celle ne fonctionnant pas. (au niveau de la chaine de caractères)

J'ai l'impression d'avoir un souci d'évaluation. J'ai tenté un évaluate, mais sans succès. Une idée d'où pourrait venir le problème ?

Merci !
-----

[Spazi]

Bonjour,

Remplacez votre DATEVAL par DATEVALUE


Cordialement.

[invite948b37db]

Bonsoir

Bonjour,
Remplacez votre DATEVAL par DATEVALUE

Tout à fait. Ecrit sous cette forme, il faut le nom de la fonction en Anglais, la seule connue de VBA.
Pour utiliser la fonction en version française, il passer par FORMULALOCAL :

Worksheets("cal").Cells(i + 1, 4).FormulaLocal = "=DATEVAL(" & Chr$(34) & Trim(Str(i) & "/09/2016") & Chr$(34) & ")"

[invite1d577638]

C'était ça, merci beaucoup !!

[A voir en vidéo sur Futura]