Discussion :

[pilounet54]

* Bonjour *

svp quelle est erreur !

Code :

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

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 *

[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 ""

[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: Je sais pas vous, mais les post de pilounet me font bien rire

[pilounet54]

pour l'intant je ne trouve pas ! je cherche a l'adapter pour une cellule pour un range ça fonctionne

[mercatog]

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

Exemple

Code :

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

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

ou

Code :

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

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

[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

[mercatog]

Simplement tester la valeur de la cellule C1

Code :

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

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

[gFZT82]

Bonjour Pilounet54,

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

Code :

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

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.

[pilounet54]

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