compter lignes une par une

Bonjour,

Je souhaite que mon programme si il y a écrit "BONJOUR" dans la colonne G compte le nombre de ligne ou BONJOUR est écrit.

Voici ce que j'ai fait:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub CommandButton1_Click() For i = 16 To 1000 cellule$ = "G" & Format(i) contenu$ = ActiveSheet.Range(cellule$).Value If contenu$ = "BONJOUR" Then 'compter 1 et faire somme somme = somme + ActiveSheet.Range(contenu$).Value End If Next i cellule$ = "I" & "2" Range(cellule$).Select ActiveCell.FormulaR1C1 = somme

---

Mon erreur se situe la où c'est rouge

Je souhaite que le total s'affiche dans la cellule I2

Merci de votre aide.

Bonjour

Plus simple, regardes du coté de la fonction CountIf en utilisant :

Code:

---

Application.WorksheetFunction.CountIf(....

---

Il suffit de mettre la plage, et ce que tu cherches.

Exemple vite fait :

Code:

---

1 2 3 4 5 6 7 8

Public Sub test() Dim plage As Range Set plage = Application.Worksheets("Feuil1").Range("A1:A10")   MsgBox Application.WorksheetFunction.CountIf(plage, "bonjour")   End Sub

---

Philippe