XL 2019 Remplir une combobox avec une ligne

snoopy07

XLDnaute Occasionnel
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
 

Pièces jointes

  • W 11.xlsm
    29.9 KB · Affichages: 7

snoopy07

XLDnaute Occasionnel
Bonjour fanch55

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

Capture d’écran 2024-05-05 183621.png

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
 

Discussions similaires

Statistiques des forums

Discussions
312 826
Messages
2 092 513
Membres
105 439
dernier inscrit
Nassir