Bonsoir à tous
Le but de ma recherche est simple c'est quand je choisis un verbe du Combobox de UserForm de la feuille1 il copie ce même verbe vers le Combobox se trouvant en feuille2 ensuite quand je cherche un autre verbe dans ce même Combobox (c'est à dire celui en feuille2) il aura à son tour l'option de la saisie semi-automatique en d'autre terme lui appliquer cette macro car dans mon fichier elle fonctionne que dans l'UserForm en dehors non.
Je joins le fichier pour être plus claire
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 Dim f, choix1() Private Sub UserForm_Initialize() Set f = Sheets("LISTE DES VERBES") choix1 = Application.Transpose(f.Range("a2:A" & f.[A1048576].End(xlUp).Row)) Me.ComboBox1.List = choix1 End Sub Private Sub ComboBox1_Change() If Me.ComboBox1.ListIndex = -1 And IsError(Application.Match(Me.ComboBox1, choix1, 0)) Then Me.ComboBox1.List = Filter(choix1, Me.ComboBox1.Text, True, vbTextCompare) Me.ComboBox1.DropDown End If Application.ScreenUpdating = True End Sub
Merci
Cordialement
Partager