Probleme ListBox

[florentsarrazy]

Bonjour !

Une question bête : J'ai ecrit un code pour incrementer une combobox quand je clique sur un bouton. Deux questions :

- Comment faire pour afficher toutes les données au fur et à mesure car quand j'applique celui la seule les données de "C26:C28" s'affichent et pas celles de "C10:C23" ?

- Comment spécifier une feuille excel d'origine pour ces cellules ?

Merci pour vos réponses

Option Explicit
Private Sub CommandButton1_Click()

ComboBox1.ListFillRange = Range("C10:C23").Address(, , , True)

ComboBox1.ListFillRange = Range("C26:C28").Address(, , , True)

End Sub

 

[BOISGONTIER]

Re : Probleme ListBox

Bonjour,

For Each c In Range("C10:C23,C26:C28")
  Me.ComboBox1.AddItem c
Next c

JB
Formation Excel VBA JB

 

[florentsarrazy]

Re : Probleme ListBox

Merci !

Sauf qu'il me marque que c est pas defini...

Que dois je lui spécifier avant le code :

For Each c In Range("C10:C23,C26:C28")
Me.ComboBox1.AddItem c
Next c

Et pour lui spécifier une feuille excel particuliere ? Je change Me non ?

Merci de votre aide

 

[Bebere]

Re : Probleme ListBox

bonsoir Florent,Boisgonthier
ou est la combobox,si userform (me y fait référence)
si une feuille (me y fait référence),donc attention
essaye comme suit,tu changes "Nom de la feuille"

For Each c In Worksheets("Nom de la feuille").Range("C10:C23,C26:C28")
Me.ComboBox1.AddItem c
Next c

tu peux enlever Me.
à bientôt

 

[BOISGONTIER]

Re : Probleme ListBox

Voir PJ

JB

 

[florentsarrazy]

Re : Probleme ListBox

Merci de votre aide !

J'avance 🙂)