Aide pour (pour finalisé) ma ComboBox
Bonjour tous le monde,
voici mon problème j'ai crée un fichier ou tout fonctionne correctement, sauf au niveau de la ComboBox1
je m’explique ce fichier sert a rentrer les personnels (nom prénom téléphone etc) on clique sur le bouton VBA pour crée modifier ou supprimer une personne (tout fonctionne )
j'ai une ComboBox1 qui sert de liste déroulante qui viens cherche tous les nom de la colonne A (ça fonctionne aussi )
j'ai plus de 600 nom dans ce fichier donc je peux taper directement le nom dans la ComboBox1 ça me le trouve aussi
mon problème et le suivant si je tape un nom qui n’hésite pas ou je me trompe il m'indique un erreur sur le code
j'aimerai que si le nom n'hésite pas ou une erreur de frappe il ne trouve rien au lieu de me faire une erreur
je ne peux pas envoyer le fichier car c'est des donnée du boulot
merci
voici le code et des photo pour que mieux comprendre
Private Sub ComboBox1_Change()
If ComboBox1 <> "" Then
TextBox7 = fr.Cells(ComboBox1.ListIndex + 1, 5)
TextBox1 = fr.Cells(ComboBox1.ListIndex + 1, 1)
TextBox10 = fr.Cells(ComboBox1.ListIndex + 1, 8)
ComboBox2 = fr.Cells(ComboBox1.ListIndex + 1, 3)
TextBox4 = fr.Cells(ComboBox1.ListIndex + 1, 2)
TextBox6 = fr.Cells(ComboBox1.ListIndex + 1, 4)
TextBox8 = fr.Cells(ComboBox1.ListIndex + 1, 6)
TextBox9 = fr.Cells(ComboBox1.ListIndex + 1, 7)
End If
End Submerci pour votre aide =)p
bonne journée
Bonjour,
Juste après :
Private Sub ComboBox1_Change()Tente un :
On Error Resume NextBonjour oxydum
super ça fonctionne !!
merci pour ta rapidité et de ton aide
bonne journée sujet clos