VBA Fonction excel et concatenation de l'opérateur comparaison

Version imprimable

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%.:cry:

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

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

Tu peux utiliser ceci

Code:

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

15/02/2011, 15h31
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.
15/02/2011, 15h35
mercatog

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

Code:

Sheets("Distri").Cells(3 + Classe, 1).Value
15/02/2011, 15h47
Heflav

:?

la valeur de la cellule est 2%. j'ai rentré à la main 2%
16/02/2011, 10h28
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. :?