Discussion :

[chouki60]

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.

[Invité]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.WorksheetFunction.CountIf(....

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

Exemple vite fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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