Visual basic sous Excel - comment faire une recherche de texte ?

Logiciel & apps Programmation
1

Salut,
j’ai un petit probleme de base en VBA sous excel.
je voudrais fcompter le nombre d’occurence d’une valeur texte dans un colonne excel.
J’ai le code suivant :

Sub recherche()
Dim compt As Integer
fin = Application.InputBox("Quelle est la derniere ligne de la gamme de controle ?", , , , , , , 1)
Worksheets("feuil1").Activate
compt = 0
i = 2
For i = 2 To fin
If (Worksheets("feuil1").Cells(i, 2) = "ploum") Then
compt = compt + 1
End If
Next
Cells(12, 2) = compt

sauf que ca ne marche pas. Apparemment le probleme viendrait du test if qui ne marche pas et j’ai beau me casser la tete, je ne vois pas ce qui cloche. Est ce que qqn pourrait m’aider
Merci

2

Pourrais tu donner un titre plus précis (pour éditer, clique sur le bouton http://www.clubic.com/forum/style_images/persoclubic/editer.gif de ton message)?

3

C’est mieux ?

4 

Sub recherche()
Dim rangeCel As Range
Dim compt As Integer
Dim fin As String

fin = Application.InputBox("Quelle est la derniere ligne de la gamme de controle ?", , , , , , , 1)
Set rangeCel = Range("A2", "A" + fin)
Worksheets("feuil1").Activate
compt = 0
i = 2
For i = 2 To fin
    If rangeCel.Cells(i, 1) = "pouet" Then
        compt = compt + 1
    End If
Next i
Cells(12, 2) = compt
End Sub
5

merci

6

yep :slight_smile: sauf que c’est la description. Mais ça me va.