XL 2019 Remplir une combobox avec une ligne

[snoopy07]

Bonjour le forum

Je voudrais savoir si on peut remplir une combobox avec les valeur d une ligne
pour remplir ma combobox avec les valeurs dune colonne
j utilise le code suivant:

Private Sub userform_initialize()
Set Ws = Sheets("XXXX")
With Me.ComboBox1
For J = 3 To Ws.Range("A" & Rows.Count).End(xlUp).Row
.AddItem Ws.Range("A" & J)
Next J
End With
End Sub

je voudrais le modififier pour que ma combobox se remplise avec les valeurs de la ligne 2 de C3 a la derniere cellule vide

j ai trouver ce code sur un forum pour remplir la combobox

Private Sub ComboBox1_GotFocus()
Dim i As Range
With Sheets("xxxx")
Set i = .Range("C3:N3")
End With
ComboBox1.List = Application.Transpose(Range("C3:N3").Value)
End Sub



mais il ne fonctionne pas

je vous joint mon fichier modele

dans ce fichier il y a deux bouton
le bouton Ajouter valeur avec plusieur texbox marche mais le probleme c est qu il ya plusieur textbox 1 par colonne et la j ai pas tout mis les colonne a remplir
donc avec le bouton Ajouter valeur avec combobox et textbox je voudrais simplifier mon userfrom
juste avoir un combobox et un textbox

Quel code doit utiliser pour remplir la combobox?

Merci d'avance pour votre aide
Cordialement
Snoopy 07

 

[snoopy07]

Bonjour fanch55

je viens d essayer ton code ça ne marche pas ça m'affiche erreur d exécution

en regardant plusieurs tuto sur internet j ai trouvé le code que je chercher

Private Sub UserForm_Initialize()
For i = 3 To Range("xfd3").End(xlToLeft).Column
Me.ComboBox1.AddItem Sheets(1).Cells(3, i)
Next i
End Sub



je ferme cette discussion et je vous remercie tous pour le temps que vous avez passez a m aider

Cordialement
Soonpy 07

 

[Valtrase]

Re,

Quelle partie du code doit on modifier pour qu il trouver la derniere cellule vide

Oupss... c'est de ma faute change comme ceci :

    Set entireRange = Plage.Resize(, LastColumn - Plage.Column + 1)

 

[fanch55]

Bonjour fanch55

je viens d essayer ton code ça ne marche pas ça m'affiche erreur d exécution

Regarde la pièce jointe 1196267

Chez moi le classeur ci-joint avec le code indiqué :