combobox

[sebounechouchou]

bonjour,
je voudrais dans un userform créer une combobox avec une plage de cellule variable ou plus exactement une plage de cellule qui commence en M12 et qui s'arrête à la dernière cellule non vide de la ligne.
je sèche depuis des heures
merci d'avance

 

[PascalXLD]

Re : combobox

Bonjour

tu trouveras ton bonheur ici

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

 

[RENAUDER]

Re : combobox

Bonjour,

Private Sub UserForm_Initialize()
    Me.ComboBox1.RowSource = "Feuil1!M12:M" & Sheets("Feuil1").Cells(12, 13).End(xlDown).Row
End Sub

 

[sebounechouchou]

Re : combobox

voici la macro que j'ai écrite mais cela ne fonctionne pas!!
j'ai un probléme de sélection de l'objet qui me positionne sur l'appel du userform!!

Private Sub UserForm_Initialize()
Dim Tab1() As Variant
Sheets("tableau maître").Unprotect
With Sheets("tableau maître")
Tab1 = .Range("m12", Range("m12").End(xlToRight)).Select.Value
End With

ComboBox1.List = Tab1
End Sub

merci

 

[sebounechouchou]

Re : combobox

erreur d'éxécution 424
objet requis
c'est la première fois que je vois ce type d'erreur

 

[sebounechouchou]

Re : combobox

j'ai essayé en enlevant le code puisque l'erreur vient semble t il de l'appel du userform et sans le code le userform s'ouvre correctement!!l'erreur est donc bian dans le code