Discussion :

[sebolix]

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

[fring]

Bonjour et bienvenue

Tu dois placer ton compteur dans ta condition If...
Autre petite remarque, je ne vois pas à quoi sert ta seconde boucle For j ?

Ceci devrait fonctionner

Code :

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

1
2
3
4
5
6
7
8
For i = 2 To 20
    If Mid(Cells(i, 1).Value, 3) = Mid(TextBox1.Text, 3) Then
        Range(Cells(i, 1), Cells(i, 9)).Interior.Color = RGB(255, 179, 159)
        k = k + 1
    Else
        Cells(i, 1).Interior.Color = RGB(255, 255, 255)
    End If
Next i

Concernant le message d'affichage du résultat de la recherche, on peut légèrement raccourcir le code

Code :

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

1
2
3
4
5
6
7
8
Select Case k
    Case 0
        verif = MsgBox("Recherche terminée, il n'y a pas de dossier", vbOKOnly + 64, "Recherche")
    Case 1
        verif = MsgBox("Recherche terminée, il y a 1 dossier", vbOKOnly + 64, "Recherche")
    Case 2 To 5
        verif = MsgBox("Recherche terminée, il y a " & k & " dossiers", vbOKOnly + 64, "Recherche")
End Select

[sebolix]

merci bcp Fring!!

je suis un novice et je me base sur de vieilles, non de très vieilles connaissances...
Cela fonctionne sans soucis.

Merci à nouveau!

[AlainTech]

Il est d'usage, ici, lorsqu'on a obtenu ou trouvé réponse à son problème, de cliquer sur le bouton , en bas de discussion.

Merci