Fonction Count if (condition sur une cellule) VBA

Bonjour à tous,

Je souhaite simplement en cellule K6 compter le nombre de valeurs d'une colonne (la colonne D de l'onglet 1 - Calculs1) qui sont supérieures à une valeur contenue dans une cellule (elle-même calculée) mais je trouve toujours zéro...

Code:

---

Range("K6").Value = Application.CountIf(Sheets("1 - Calculs1").Range("D3:D" & DerniereLigne), ">" & Range("G4"))

---

A noter que ma variable DerniereLigne fonctionne bien.
A noter également que si je remplace Range("G4") par un nombre, par exemple 14 (qui est d'ailleurs la valeur contenue dans la cellule G4), le compteur fonctionne bien.
Je n'ai pas spécifié l'onglet de la cellule G4 car je suis sur mon onglet actif.

J'espère avoir été clair et que vous pourrez m'aider :)

A très vite et merci,

Alexis (noob en VBA :D)

Salut,

une regle assez importante a connaitre, si tu utilises :
- un niveau Range() uniquement, pas de soucis
- un niveau Range() et un niveau Worksheets(), tout doit etre code en Worksheets()
- un niveau Range() et un niveau WOrksheets() et un niveau Workbooks(), tout doit etre code en Workbooks()

Cela t'evite d'avoir une incertitude sur la cellule sur laquelle tu penses pointer.

Autre approche, plutot que de passer par la valeur et le countif VBA, essaie de passer par la Formula :

Code:

---

Range("K6").Formula= "=COUNTIF('1 - Calculs1'!D3:D" & DerniereLigne & ",>" & Range("G4").Value & ")"

---

Bonjour AlexisB, bonjour le forum,

Vaut mieux préciser, ça évite les confusions :

Code:

---

ActiveSheet.Range("K6").Value = Application.CountIf(Sheets("1 - Calculs1").Range("D3:D" & DerniereLigne), ">" & ActiveSheet.Range("G4"))

---

[Édition]
Bonjour Jean-Philippe, nos posts se sont croisés...

Bonjour,

Merci à tous les deux pour vos réponses rapides, malheureusement les solutions que vous proposez ne fonctionnent pas...
La solution de Jean-Philippe me remonte une erreur (je vais creuser mais je préfère utiliser des valeurs plutôt que des formules - dans ce cas précisément).
La solution de Thautheme me renvoie toujours zéro (alors que dans ma colonne, il y a bien une valeur répondant au critère !). Mais je comprends bien l'utilité de spécifier le classeur et l'onglet, ça ne mange (presque) pas de pain comme on dit !
Je vais continuer à investiguer, mais encore merci !

Alexis

Re,

J'ai recrée un onglet reprenant ton contexte et ça marche. Sélectionne l'onglet Feuil2 et lance la procédure Macro1 du module Module1.

Effectivement...

Je vais voir dans mes données ce qui bugg mais oui, la ligne de code est bonne...

Vraiment merci en tout cas !

A bientôt,

Alexis