Discussion :

[Aurianelm]

Bonjour à tous !

Je souhaite faire un NB.SI en VBA seulement en résultat il me ressort "VRAI" et non un nombre. Je ne comprends pas du tout pourquoi...

Code :

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

Workbooks("Listing " & Mois & " " & annee & ".xls").Sheets("Evolution").Range(LettreColColler & "8").FormulaLocal = "=NB.SI('[listing " & Mois & " " & annee & ".xls]LISTING'!F2:F" & derligne & ";" & "" > " & dernierJour & """ & ")"

Je souhaite afficher le nombre de lignes dont la date est supérieure à la date donnée pour la variable dernierJour.

Help ! Merci !!

Auriane

[Daniel.C]

Bonjour,

Il manque un guillemet à la fin de ta chaîne :

Code :

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

1
2
Workbooks("Listing " & Mois & " " & annee & ".xls").Sheets("Evolution").Range(LettreColColler & "8").FormulaLocal = _
"=NB.SI('[listing " & Mois & " " & annee & ".xls]LISTING'!F2:F" & derligne & ";" & "" > " & dernierJour & """" & ")"

au lieu de :

Code :

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

1
2
Workbooks("Listing " & Mois & " " & annee & ".xls").Sheets("Evolution").Range(LettreColColler & "8").FormulaLocal = _
"=NB.SI('[listing " & Mois & " " & annee & ".xls]LISTING'!F2:F" & derligne & ";" & "" > " & dernierJour & """ & ")"

[Aurianelm]

Merci pour la réponse mais finalement j'ai procédé autrement :

Code :

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

1
2
critere = ">" & dernierJour
Workbooks("Listing " & Mois & " " & annee & ".xls").Sheets("Evolution").Range(LettreColColler & "8").FormulaLocal = "=NB.SI('[listing " & Mois & " " & annee & ".xls]LISTING'!E2:E" & derligne & ";""" & critere & """)"

Et du coup ça fonctionne nickel

Bonne journée. Auriane