Compter le nombre de lignes en fonction d'un mot clé

Bonjour à tous, je souhaite connaitre le nombre de lignes avec un mot spécifique dans une colonne spécifique. Je travaille sur une macro qui existe déjà, et pour compter le nombre de lignes total il y a cette ligne

NbreLigne = Cells.Find("*", [A1], , , , xlPrevious).Row

Après qqes recherches sur internet j'ai pas trouvé grand chose concernant les arguments de cette fonction. J'ai mis un fichier excel de test en pj, je souhaiterais savoir combien j'ai de lignes "REGISTRE".

Merci d'avance :)

Bonjour,

Si c'est la dernière ligne que vous cherchez, à tester :

Sub test()
    'Recherche du nombre de ligne dans la feuille excel
    NbreLigne = Cells.SpecialCells(xlCellTypeLastCell).Row
    Debug.Print NbreLigne
End Sub

Non justement, je me demandais si je pouvais faire un case trigger avec cette ligne de commande. Qqch du style

NbreLigne = Cells.Find("REGISTRE", [A1], , , , xlPrevious).Row

Mais là ce que ça me renvoie c'est la dernière ligne sur laquelle j'ai un registre.

Je voulais éviter de passer par une boucle, mais je crois que je vais pas avoir le choix

Bonjour SuperNeiluj

Perso à moins d'avoir systématiquement "REGISTRE" sur chaque ligne, je n'utiliserai pas ce code

Cette ligne de code fait une recherche de cellule non vide "*" et non pas "REGISTRE" jusqu'à la dernière ligne
Donc elle compte le nombre de ligne remplie uniquement

Pour compter le nombre de "REGISTRE"

Function Test()
    'Recherche du nombre de ligne dans la feuille excel
    NbreLigne = Application.WorksheetFunction.CountIf(Range("A:A"), "REGISTRE")
    Test = NbreLigne
End Function

A+

Edit oups : bonjour Eric K

Bonjour,

Peut-être :

Sub test()
    'Recherche du nombre de ligne de la colonne A contenant "REGISTRE"
    derligFeuille = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count + 1   'pour limiter la taille de la colonne
    NbreLigne = Application.WorksheetFunction.CountIf(ActiveSheet.Columns("a:a").Resize(derligFeuille), "REGISTRE")
    MsgBox NbreLigne
End Sub

Merci à tous, je vais tester la solution de brunoM45 :)

Encore merci à tous.

Bonjour Mafraise

Pourquoi utiliser un code aussi alambiqué

Bonjour BrunoM42,

Pourquoi utiliser un code aussi alambiqué ?