Discussion :

[laurent27530]

Bonjour,

je comprends pas pourquoi le resultat :

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[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

[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