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 :
2e boucle:
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:
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:
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