Probleme pour Intégrer en VBA une formule dans excel

Version imprimable

Bonjour,

je comprends pas pourquoi le resultat :
Code:

1 2 3 4 5 6 7 8 9 10 11 For L = Nb To 2 Step -1 'calcul valeur = Workbooks(ref).Sheets("Jours").Range("E" & L) datej = Workbooks(ref).Sheets("Jours").Range("D" & L) datej2 = Workbooks(ref).Sheets("Jours").Range("D" & L - 1) 'nbre FP total0 = "=COUNTA(" & datej & "!B4:B20)" total1 = "=COUNTA(" & datej & "!B4:B20)+" & datej2 & "!B27" If valeur = "NON" Then Workbooks(fic).Sheets(datej).Range("B27").Formula = total0 If valeur = "OUI" Then Workbooks(fic).Sheets(datej).Range("B27").Formula = total1 Next
Explorateur de variable
total0 = "=COUNTA(28-12-2022!B4:B20)"
total1 = "=COUNTA(28-12-2022!B4:B20)+27-12-2022!B27"

Pourquoi je retrouve pas la bonne syntaxe
formule au niveau d'excel =NBVAL(28-12-@'2022'!B4:B20)+27-12-'2022'!B27

28/12/2021, 18h20
Philippe Tulliez

Bonjour,
En testant la formule manuellement, vous constaterez qu'Excel entoure d'une apostrophe le nom de la feuille soit par exemple =NBVAL('2022'!E2:E8) et cela dès que le nom d'une feuille ne contient que des nombres ou des nombres et les signes +, - , et également pour les noms contenant des caractères espacés
28/12/2021, 18h57
laurent27530

Je suis d'accord mais comment y remedier

l'idee est d'afficher en B27 de la feuille du jour le nombre de valeur contenu entre B4 et B20 + le nombre se trouvant dans B27 de la journée précédente
28/12/2021, 19h47
Philippe Tulliez

Bonjour,
Et bien en insérant les guillemets ou chr(34) avant et après le nom

Un exemple de mémoire, donc non testé total0 = "=COUNTA('" & datej & "'!B4:B20)"

Je ne sais pas si c'est pour le "fun" que vous voulez utiliser le VBA mais à mon avis il y a certainement d'autres solutions plus intéressantes et sans code mais sans en savoir plus, c'est difficile de répondre