Discussion :

[INFINITY100]

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.

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

Je joins le fichier pour être plus claire

Merci

Cordialement

[INFINITY100]

Merci beaucoup Jacques

Formidable c'est exactement le résultat attendu

1000 Merci