Zone de liste modifiable

Bonjour HA
Clic droit sur la zone de liste modifiable, Propiétés
Recherche la ligne RowSource et tu y inscris ta référence dans la deuxième
colonne à droite
Par exemple : Feuil1!A1:A10
Cordialement
Pascal

"HA" <ha@free.fr> a écrit dans le message de
news:u2IHBxnuDHA.1224@TK2MSFTNGP09.phx.gbl...

Bonjour

Je n'arrive pas dans un userform qui contient une zone de liste modifiable
a

y afficher les valeurs contenues dans une colonne d'une feuille de calcul

merci de me donner le code

Bonjour,

En nommant ta liste sur la feuille (édition, nom, définir)
tu la nomme "maliste" par exemple
Dans les propriété de la liste modifiable,
Rowsource:tape maliste
Normalement, ca devrait marcher.
Phil

-----Message d'origine-----
Bonjour

Je n'arrive pas dans un userform qui contient une zone de
liste modifiable a

y afficher les valeurs contenues dans une colonne d'une
feuille de calcul

merci de me donner le code


.

-----Message d'origine-----
Bonjour

Je n'arrive pas dans un userform qui contient une zone de
liste modifiable a

y afficher les valeurs contenues dans une colonne d'une
feuille de calcul

merci de me donner le code


.
private sub userform_initialize ()
dim gar as string

feuil2.select

gar = feuil2.range("g5").end(xldown).address

userform3.combobox1.rowsource = "g5:" & gar
feuil4.select
end sub

Bonjour,

Private Sub UserForm_Initialize()
Dim Delta As Long
With Sheets("Feuil2").Range("G5")
Delta = .End(xlDown).Row - 1
ComboBox1.List = Range(.Offset(0), .Offset(Delta)).Value
End With
End Sub


NB - Ne met JAMAIS le nom d'un UserForm dans le code
du module qui lui est rattaché.

Si tu as besoin de te référer au UserForm, utilise "Me" :

Unload Me
Me.Hide
...

L'intérêt est de ne pas avoir à adapter le code si on
renomme le UserForm.

Dans le module du UserForm, ni le nom du UserForm
ni même "Me" ne sont nécessaires pour se référer aux
contrôles du UserForm.

-----Message d'origine-----
Bonjour

Je n'arrive pas dans un userform qui contient une zone de
liste modifiable a

y afficher les valeurs contenues dans une colonne d'une
feuille de calcul

merci de me donner le code


.
private sub userform_initialize ()
dim gar as string

feuil2.select

gar = feuil2.range("g5").end(xldown).address

userform3.combobox1.rowsource = "g5:" & gar
feuil4.select
end sub

--
Cordialement,

Michel Gaboly
http://www.gaboly.com