Microsoft 365 Liste déroulante Userform

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Octobre 2020

• #2

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 )

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 12 Octobre 2020

• #3

FCMLE44 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

Supporter XLD

• 12 Octobre 2020

• #4

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

 

Pièces jointes

• Montants.xlsm

  15.3 KB · Affichages: 11

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 12 Octobre 2020

• #5

FCMLE44 à dit:

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

Cliquez pour agrandir...

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

 

Pièces jointes

• Montants V1.xlsm

  19.3 KB · Affichages: 7

Vote positif 0 Vote négatif

Solution

F

FCMLE44

XLDnaute Impliqué

Supporter XLD

• 12 Octobre 2020

• #6

Ok ca marche.
Merci

 

Vote positif 0 Vote négatif