Discussion :

[Heflav]

Bonjour,

Je cherche a utiliser la fonction Nb.Si sous vba.
Mon problème se trouve sur le critère. ">2%"
Si je le rentre en dure cela marche mais je n'arrive pas à trouver la syntaxe en concatenant l'opérateur > et la cellule ou se trouve le 2%.

Question simple mais je n'ai pas trouver la réponse.

Code :

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

1
2
3
4
5
A = Application.WorksheetFunction.CountIf(Range(Sheets("Cours").Cells(16, 16 + Tempo), _ 
Sheets("Cours").Cells(NbMois, 16 + Tempo)), _
">" & Sheets("Distri").Cells(3 + Classe, 1))
 
NB.SI(Cours!Q16:Q239;">2%")

par avance merci

[mercatog]

Tu peux utiliser ceci

Code :

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

1
2
3
4
5
6
7
8
9
Dim Plage As Range
Dim A As Double
 
With Sheets("Cours")
   Set Plage = .Range(.Cells(16, 16 + Tempo), .Cells(NbMois, 16 + Tempo))
   A = Application.CountIf(Plage, ">" & Sheets("Distri").Cells(3 + Classe, 1).Value)
   MsgBox A
   Set Plage = Nothing
End With

[Heflav]

merci pour la rapidité de la réponse.

Toute fois, cela ne semble pas marcher.

Il semblerait que

">" & Sheets("Distri").Cells(3 + Classe, 1).Value)
ne soit pas compris par vba comme ">x"

car si je remplace ">" & Sheets("Distri").Cells(3 + Classe, 1).Value)
par ">2%", là ça fonctione.

[mercatog]

J'ai fais le test et ça fonctionne, du moins si tu as un nombre ici

Code :

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

Sheets("Distri").Cells(3 + Classe, 1).Value

[Heflav]

la valeur de la cellule est 2%. j'ai rentré à la main 2%

[Heflav]

Je viens de trouver d'ou venait l'erreur.

Sur la feuille excel, j'utilise la virgule comme séparateur alors qu'en VBA il est utilisé le point.

Maintenant, il faut que je "convertisse" mes données.