Compter nombre de ligne ou colonne A = "x"

Résolu
bidounet84 Messages postés 412 Date d'inscription   Statut Membre Dernière intervention   -  
bidounet84 Messages postés 412 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

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 ?

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

A voir également:

2 réponses

Réponse 1 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

voir ceci:

https://www.developpez.net/forums/d605223/logiciels/microsoft-office/excel/contribuez/boucles-parcourir-colonne-ligne-plage-donnees-2-methodes/


Ce qui donne cela: 

Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Dim nombre As Integer
    Set FL1 = Worksheets("Feuil1")
    NoCol = 1 'lecture de la colonne 1
    For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
        If Var = "x" Then
        nombre = nombre + 1
        End If
    Next
    MsgBox nombre
    Set FL1 = Nothing
End Sub


0
Réponse 2 / 2
bidounet84 Messages postés 412 Date d'inscription   Statut Membre Dernière intervention   80
 
Merci pour la solution
0