Bonjour ,

J'aurai besoin d'aide.. Voilà j'ai un USF dans lequel j'ai deux boucles avec une condition qui permette pour l'une de vérifier si le texte saisi dans une combobox se trouve dans une feuille 'table adresse' , si c'est oui alors active la cellule en question, dans la deuxième boucle je fais un test pour voir si le texte entré dans la combobox ne se trouve pas dans la feuille 'table adresse' et obtient un MsgBox qui stipule que le nom recherché n'existe pas.

Je pense que j'aurai pu faire cela dans une seule boucle avec deux If imbriqué mais je n'ai pas réussi..

Donc mon problème c'est que lorsque je lance mon USF j'ai seulement la boucle pour laquelle il n'y a pas de nom trouvé qui s'active et cela même si je rentre un texte dans la combobox se trouvant bien la feuille 'table adresse'.

Voici à quoi ressemble mon code :

1er boucle :

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
With Worksheets("Table adresse")
 
 
               For ligne3 = 1 To 65536
 
 
         If UserForm_Nom_Client.NcRecherche = Cells(ligne3, 2) Then
Range("B" & 2 + Me.NcRecherche.ListIndex).Select
 
                              UserForm_Nom_Client.Hide
 
                             MsgBox "Nom de Client renseigné!"
 
Exit For
        End If
 
         Next ligne3
End With

2e boucle :

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
21
With Worksheets("Table adresse")
               Dim ligne7 As Long
               For ligne7 = 1 To 65536
 
 
 
          If UserForm_Nom_Client.NcRecherche <> Cells(ligne7, 2) Then
 
 
 
              MsgBox " Il n'y a pas de client avec ce nom!"
             MsgBox "Réessayer un autre nom de client"
 
                 'vide la ListBox
                UserForm_Nom_Client.NcRecherche = ""
Exit For
        End If
 
         Next ligne7
 
End With