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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.