Microsoft 365 Liste déroulante Userform

[FCMLE44]

Bonjour

J'ai créé un Userform dans lequel j'ai mis une liste déroulante

J'ai écris le code ci-dessous

Private Sub ComboBox1_Change()
ComboBox1.List = Worksheets("Feuil2").Range("G3:G11").Value
End Sub

Cela ne fonctionne pas.
Je ne comprends pas pourquoi.

Auriez vous une idée ?

Merci

 

[sylvanu]

Bonjour FCMLE,
A tester dans un module standard pour initialisation :

Sub RemplitComboBox()
For i = 3 To 11
    UserForm2.ComboBox1.AddItem  Sheets("Feuil2").Range("G" & i)
Next
UserForm2.Show
End Sub

( userform2 à modifier )

 

[Jacky67]

Bonjour

J'ai créé un Userform dans lequel j'ai mis une liste déroulante

J'ai écris le code ci-dessous

Private Sub ComboBox1_Change()
ComboBox1.List = Worksheets("Feuil2").Range("G3:G11").Value
End Sub

Cela ne fonctionne pas.
Je ne comprends pas pourquoi.

Auriez vous une idée ?

Merci

Bonjour à tous
C'est normal que cela ne fonctionne pas sur ''ComboBox1_Change()''
Essaye à l'initialisation de l'userform

Private Sub UserForm_Initialize()
    ComboBox1.List = Worksheets("Feuil2").Range("G3:G11").Value
End Sub

 

[FCMLE44]

J'ai insérer mais ne fonctionne apparemment pas
Je mets le fichier en exemple

 

[Jacky67]

J'ai insérer mais ne fonctionne apparemment pas
Je mets le fichier en exemple

Re...
Il n'y a pas de feuil2 dans ton classeur.......

 

[FCMLE44]

Ok ca marche.
Merci