Compter nombre de ligne ou colonne A = "x"

**leloup84** · 23/01/2018, 17h56

Bonjour,
Comme le titre l'indique je cherche à compter le nombre de ligne où la cellule = x.
J'ai mis ce code mais çà ne fonctionne pas où çà coince ?

Code :

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

1
2
3
4
5
For i = 1 To ligne_FICHE_total
    If (onglet_Fiche.Columns("A") = "x") Then
        ligne_FICHE = ligne_FICHE + 1
    End If
Next

**joe.levrai** · 23/01/2018, 18h00

Bonjour,

pourquoi pas un NB.SI ?

Code :

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

1
2
3
Sub toto()
    MsgBox Application.WorksheetFunction.CountIf(onglet_Fiche.Columns(1), "x")
End Sub

**Menhir** · 23/01/2018, 18h46

Envoyé par leloup84

Code :

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

1
2
3
4
5
For i = 1 To ligne_FICHE_total
    If (onglet_Fiche.Columns("A") = "x") Then
        ligne_FICHE = ligne_FICHE + 1
    End If
Next

Pour corriger ton code :

Code :

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

1
2
3
4
ligne_FICHE = 0
For i = 1 To ligne_FICHE_total
    If onglet_Fiche.Cells(i, "A") = "x" Then ligne_FICHE = ligne_FICHE + 1
Next i

Mais, comme joe.levrai, je pense qu'il est inutile d'utiliser du VBA si une fonction Excel peut faire ça plus facilement, plus rapidement et plus efficacement.

Code :

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