Discussion :

[TheRealMike]

Bonjour à tous,

je me permets de poster ici car j'ai un petit souci de code.

Dans une feuille Excel, j'ai la colonne A qui est remplie de "ok", "oui", "non", etc....

Je voudrais savoir comment faire (avec du VBA) pour compter le nombre de fois où "ok" apparaît dans la colonne.

Je connais déja le nb.si, mais j'aurais besoin de quelquechose de vraiement rapide.

Je vous remercie par avance.

TheRealMike

[Invité]

Bonjour,

Ne connaissant pas le contenu de votre fichier, je ne sais pas si cela sera beaucoup plus rapide que la fonction "NB.SI" mais vous pouvez essayer :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Essai()
cpt = 0
txt = "OK"
   For Each c In Range([A2], [A65536].End(xlUp))
     If c.Value = txt
     Then cpt = cpt + 1
     End If
  Next c
  MsgBox "Texte OK trouvé " & cpt & " fois"
End Sub

[drakkar_agfa]

Bonjour,

Une autre façon assez simple :

Code :

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

msgbox Application.CountIf(Columns(1), "ok")

Essais voir?

[TheRealMike]

Merci beaucoup pour vos réponses.

Finalement, je pense que le plus rapide est bien le Countif.

Mais un deuxième problème se pose à moi.

Je voudrais compter le nombre de cellules non vides dans ma range, et la formule :

Code :

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

Application.WorksheetFunction.CountIf(marange, "<> """)

ne marche pas...

Auriez-vous une idée?

Merci d'avance.

TheRealMike

[drakkar_agfa]

Vite vite,

Voici ce que j'ai trouvé

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub TrouverOK()
    MsgBox Application.CountIf(Columns(1), "ok")
End Sub
Sub TrouverVide()
 
    Dim iMax As Long
 
    iMax = ActiveSheet.Range("A65536").End(xlUp).Row
    MsgBox Application.CountIf(Columns(1), "") - (65536 - iMax)
End Sub

Et puis?

[laetitia]

bonjour TheRealMike jacques_jean drakkar_agfa le forum
on peut faire comme cela aussi!!

Code :

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

1
2
3
4
5
6
7
Option Explicit
Sub Compt()
Dim n, c As Variant
For Each c In Selection
If Not IsEmpty(c) Then n = n + 1
Next: MsgBox n
End Sub

ou pour la colonne a

Code :

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

1
2
3
Sub test()
MsgBox Application.WorksheetFunction.CountA(Range("$A:$A"))
End Sub

[TheRealMike]

Merci pour vos réponses!