combobox et row source

[marleauc]

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]

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]

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]

Re : combobox et row source

bonjour le forum,

merci bien néné6 et partec
cm