Contenu colonne

Bonjour à tous,

Je voudrais parcourir une colonne (la H) ligne par ligne pour voir le nbre de fois qu'une donnée ("ok") revient dans cette unique colonne (à l'aide d'une boucle de préférence ).

Pouvez-vous m'aider ?

Merci d'avance

Bonsoir

A voir

Sub compter()
dlig = Range("H" & Rows.Count).End(xlUp).Row
cpt = 0
For i = 1 To dlig
If Range("H" & i) = "ok" Then
    cpt = cpt + 1
End If
Next
MsgBox cpt
End Sub

tu démarres i en fonction de la première ligne de ta colonne

Bye

Merci de ta réponse,

malheureusement ça ne fonctionne pas, je te montre mon code :

Sub ChangerVoiture()
Dim carchange As Variant
Dim cpt As Variant

carchange = InputBox("Entrez l'ID du véhicule à vérifier:", "Etat voiture", "1")
MsgBox "La voiture dont l'état est a vérifier est la " & carchange & "e ."

dlig = Range("H" & Rows.Count).End(xlUp).Row
cpt = 0
For i = 1 To dlig
If Range("H" & i) = carchange Then cpt = cpt + 1

Next

  MsgBox "Voiture trouvée " & cpt & " fois"

End Sub

J'obtiens 0 , comme si la valeur recherchée n'existait pas ... alors qu'elle est là :'(

Sais-tu pointer mon erreur ?

Bonjour

et avec une formule

=NB.SI(H:H; "ok")

et avec 1 bouton (vba avec macro)

EDIT : je n'avais pas vu ton post précédent

crdlt,

André

ça ne fonctionne tjrs pas :-/

Il faudrait qq'chose dans le style :

"If contenu cellule = "ok" then cpt +1"

et faire donc une boucle pour que toute les cellules de la colonne H soient vérifiées :-/

On arrive ainsi à la fin de la colonne avec un certain nbre dans cpt, qu'on affiche par la suite avec msgbox.

Je n'ai pas un assez bon niveau en VBA pour pouvoir faire ce programme même si je vois le schéma ^^' c'est pour cela que je demande l'aide de connaisseur

Sub ChangerVoiture()
Dim carchange As Variant
Dim cpt As Variant

carchange = InputBox("Entrez l'ID du véhicule à vérifier:", "Etat voiture", "1")
MsgBox "La voiture dont l'état est a vérifier est la " & carchange & "e ."

 Dim Montab As Variant

    Montab = Range("H1:H21").Value

    For i = LBound(Montab, 8 ) To UBound(Montab, 8 )
        For j = LBound(Montab, 2) To UBound(Montab, 21)
            If Montab(i, j).Value = carchange Then cpt = cpt + 1
        Next j
    Next i
    Range("H1:H21").Value = Montab

  MsgBox "Voiture trouvée " & cpt & " fois"

End Sub

C'est le genre de code que je recherche, mais celui ci ne fonctionne pas :-/

Re,

j'ai essayé à voir si là c'est bon

crdlt,

André

Ouiii c'est ça merci bcp !!! <3