Microsoft 365 Liste déroulante Userform

  • Initiateur de la discussion Initiateur de la discussion FCMLE44
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

FCMLE44

XLDnaute Impliqué
Bonjour

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

J'ai écris le code ci-dessous
VB:
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 FCMLE,
A tester dans un module standard pour initialisation :
VB:
Sub RemplitComboBox()
For i = 3 To 11
    UserForm2.ComboBox1.AddItem  Sheets("Feuil2").Range("G" & i)
Next
UserForm2.Show
End Sub
( userform2 à modifier )
 
Bonjour

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

J'ai écris le code ci-dessous
VB:
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
VB:
Private Sub UserForm_Initialize()
    ComboBox1.List = Worksheets("Feuil2").Range("G3:G11").Value
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
201
Réponses
10
Affichages
281
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
361
Réponses
11
Affichages
250
Retour