Bonjour

voilà j'ai un soucis avec mon compteur, je veux comparer des valeurs dans une cellule avec celle rentrée dans une étiquette que j'ai crée. Si les valeurs sont identiques je veux que les colonnes A à G (à la ligne où se situe la valeur identique) soit coloriée. Mon compteur doit compter le nombre de fois où il trouve des valeurs identiques

Voici mon ptit pgrm :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
k = 0
For i = 2 To 20
For j = 1 To 9
        If Mid(Cells(i, 1).Value, 3) = Mid(TextBox1.Text, 3) Then
           Cells(i, j).Interior.Color = RGB(255, 179, 159)
           Cells(i, 1).Select
        Else
           Cells(i, 1).Interior.Color = RGB(255, 255, 255)
        End If
Next j
k = k + 1
Next i
 
If k = o Then verif = MsgBox("Recherche terminée, il n'y a pas de dossier", vbOKOnly + 64, "Recherche")
If k = 1 Then verif = MsgBox("Recherche terminée, il y a 1 dossier", vbOKOnly + 64, "Recherche")
If k = 2 Then verif = MsgBox("Recherche terminée, il y a 2 dossiers", vbOKOnly + 64, "Recherche")
If k = 3 Then verif = MsgBox("Recherche terminée, il y a 3 dossiers", vbOKOnly + 64, "Recherche")
If k = 4 Then verif = MsgBox("Recherche terminée, il y a 4 dossiers", vbOKOnly + 64, "Recherche")
If k = 5 Then verif = MsgBox("Recherche terminée, il y a 5 dossiers", vbOKOnly + 64, "Recherche")
End Sub
Merci de votre aide