liste déroulantes rowsources

[antho40000]

Bonjour,
j'utilise habituellement les données pour renseigner le Row source d'une liste déroulante de la façon suivante:
Feuil1!A2..A25

Seulement j'ai voulu renseigner ce Row source par des données écrites sur une ligne mais je n'arrive pas a faire la commande:
Feuil1!A2..D2

Dans ce cas la, il n'y à que la valeur écrite dans la cellule A2 qui apparait.

merci d'avance!

 

[Tibo]

Re : liste déroulantes rowsources

Bonjour,

Sur la base de ce que j'ai compris, essaye en nommant tes cellules sources, puis fait référence à ce nom dans ta liste déroulante.

Je te laisse essayer

Si pas ça, reviens avec plus de détails et explications.

@+

 

[antho40000]

Re : liste déroulantes rowsources

c'est a dire nommée une cellule?
je comprends pas!
en fait j'ai une liste déroulante sur une userform. Cette liste déroulante se remplie en allant chercher des données sur une feuille.
Le problème c'est que les données sont écrites en ligne.
C'est a dire ex de la cellule A2 à cellule K2 sont écrite des donnés que je veux affichée dans ma liste déroulante.
Lorsque les colonnes sont disposé dans la même colonne j'ai aucun problème, en revanche quand je fais dans Rwsource : Feuil1!A2..K2 la j'ai que la valeur de la cellule A2 qui apparait dans ma liste déroulante.

 

[Tibo]

Re : liste déroulantes rowsources

re,

Autant pour moi, j'avais cru comprendre que tu parlais d'une liste déroulante du menu Données - Validation

Donc, là, je laisse parler les Vbaïstes

@+

 

[BOISGONTIER]

Re : liste déroulantes rowsources

Bonjour,

Si le champ est nommé ListHoriz

Private Sub UserForm_Initialize()
Me.ComboBox1.List = Application.Transpose([ListeHoriz])
End Sub

http://boisgontierjacques.free.fr/fichiers/Formulaire/jb-formulaire.zip

JB
Formation Excel VBA JB

 

[CBernardT]

Re : liste déroulantes rowsources

Bonjour à tous,

Un exemple pour remplir les noms des clients dans un combobox :

Private Sub UserForm_Initialize()
Dim i As Integer, Col As Byte
' Recherche de la dernière colonne remplie
With Sheets("TABLEAU")
Col = .Range("IV7").End(xlToLeft).Column
'Attribution des données au ComboBox Client
For i = 10 To Col
If .Cells(7, i) = "" Then
Cbxclient.AddItem .Cells(7, i)
End If
Next i
End With
End Sub

Cordialement

Bernard

 

[PascalXLD]

Re : liste déroulantes rowsources

Bonjour

Sinon il y a une petite FAQ

https://www.excel-downloads.com/threads/vba-alimentation-dune-combobox-ou-dune-listbox.81037/

 

[antho40000]

Re : liste déroulantes rowsources

merci pour ces réponses