formule Application CountIf

Version imprimable

* Bonjour *

svp quelle est erreur !

Code:

1
2
3
4
5
6
7
8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim ligne As Long
   ligne = 9
    For ligne = 9 To Range("A" & Rows.Count).End(xlUp).Row
       If Application.CountIf(Cells(ligne, 3)) <> "" Then    
        End If
    Next ligne
  End Sub

* Merci *

16/05/2012, 20h22
78chris

Bonjour

Je n'ai pas vérifié si count.if fait partie des fonctions utilisables en VBA mais, le cas échéant, elle renvoie 0 et non ""
16/05/2012, 20h31
nchal

Salut

http://msdn.microsoft.com/fr-fr/libr...ffice.12).aspx

La fonction Countif n'est pas applicable sur Application. Enfin, il me semble, d'autant que sur l'explorateur d'objet (raccourci F2 du VBE) je ne l'ai pas trouvé en cherchant dans les méthodes d'Application.

PS: Evite d'écrire en jaune la prochaine fois, c'est vraiment chaud à lire.

PPS: :lol: Je sais pas vous, mais les post de pilounet me font bien rire
16/05/2012, 21h01
pilounet54

pour l'intant je ne trouve pas ! je cherche a l'adapter pour une cellule pour un range ça fonctionne
16/05/2012, 21h22
mercatog

Countif à 2 paramètres Plage et Critère
C'est la fonction NB.SI

Exemple

Code:

MsgBox Application.CountIf(Worksheets("Feuil1").Range("A1:A100"), ">0")

ou

Code:

MsgBox Application.WorksheetFunction.CountIf(Worksheets("Feuil1").Range("A1:A100"), ">0")
16/05/2012, 22h21
pilounet54

j'ai vue que la formule du debut fonctionne pour un range effectivement et pas pour une cellule es que l'on faire dans le meme esprit pour une colonne ceci
=si(C1<>"";macro;"") adapter une cellule non vide a une macro pour un colonne
16/05/2012, 22h41
mercatog

Simplement tester la valeur de la cellule C1

Code:

If Worksheets("Feuil1").Range("C1").value<>"" Then Macro1

Bonjour Pilounet54,

Tu peux effectivement t’amuser à obtenir le résultat avec la méthode CountIf mais c’est assez tordu.

Code:

1
2
3
4
5
6
7
8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ligne As Long
    For ligne = 9 To Range("A" & Rows.Count).End(xlUp).Row
        If Application.CountIf(Cells(ligne, 3), "<>" & "") > 0 Then
            MsgBox "La cellule " & Cells(ligne, 3) & " n'est pas vide"
        End If
    Next ligne
End Sub

Cordialement.

17/05/2012, 09h44
pilounet54

pilounet54

excellent il a toujours des pro qui sauvent les naufrages merci à toi