combobox et row source

marleauc · 11 Mai 2010

re bonjour le forum,
J,ai un blanc de mémoire.. j'ai mis une combobox sur mon userform et je ne me souviens plus comment écrire la référence

j'aimerais pourvoir récupérer le contenu de feuil1 colonne A à F

emrcic

néné06 · 11 Mai 2010

Re : combobox et row source

Bonsoir marleauc

Private Sub active_liste_Combobox1()
Worksheets("fsigna").Select
Range("E1").Select
If ActiveCell.Offset(1, 0).Value <> "" Then
ComboBox1.Visible = True
dernier = Range("E1").End(xlDown).Address
ComboBox1.RowSource = "E2:" & dernier
End If
Range("A1").Select
End Sub
un petit exemple

cordialement
A+

Paritec · 11 Mai 2010

Re : combobox et row source

Bonjour Néné06, marleauc,
Néné 06 il a demandé de A à F !!!
alors moi perso j'aurais fait :
a = feuil1.range("A2:F" & feuil1.range("A65000").end(xlup).row)
Combobox1.list = a
Attention :ne pas oublier de mettre ColumnsCount de ta combobox1 à 6
pour avoir tes 6 colonnes.
Bonne soirée
Papou 🙂

marleauc · 11 Mai 2010

Re : combobox et row source

bonjour le forum,

merci bien néné6 et partec
cm

combobox et row source

marleauc

XLDnaute Occasionnel

néné06

XLDnaute Accro

Paritec

XLDnaute Barbatruc

marleauc

XLDnaute Occasionnel

Discussions similaires

combobox et row source

marleauc

XLDnaute Occasionnel

néné06

XLDnaute Accro

Paritec

XLDnaute Barbatruc

marleauc

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency