Combobox-additem

Bonjour,

Pour un projet assez perso( pro donc..) j ai besoin du code vba pour recuperer une liste dans une seule colonne avec un add item a partir d un command bouton

je m explique

je voudrais charger la liste deroulante zletudiants alimenter grace a la feuille liste ( dans l exemple ABCD collonne a) en appuyant sur le bouton commande

j espere avoir ete clair

desole je suis tres novice

apparemment je n inspire personne

Hello,

Regarde en PJ si ça te va.

merci de ta reponse ...

mais en fait il faut que je trouve la reponse avec une boucle for each .... et ensuite combo.additem

je sais c est surement tres scolaire mais c est pour .... un projet scolaire....lol

en tout cas encore merci d avoir pris le emps de me repondre

Bonsoir le fil, bonsoir le forum

Voyons d'abord ce qui cloche dans ton code :

Private Sub CommandButton2_Click()
Dim Plage As Range, lacellule As Range, i As Integer, z As Integer
 ZLEtudiant.Clear
i = 1
Plage = ActiveWorkbook.Worksheets("Liste").Range("A1:a52")
For Each lacellule In Plage
For i = 1 To 52
ZLEtudiant.AddItem Plage
Next i
Next
End Sub

• première erreur : Plage = ... qui devrait être Set Plage = ...

• Ensuite deux boucles For Each... Next et For i = 1 to 52... Next i

C'est soit l'une soit l'autre !

For Each lacellule In Plage
ZLEtudiant.AddItem lacellule
Next lacellule

ou

For i = 1 to 52
ZLEtudiant.AddItem sheets("Liste").Cells(i, 1).Value
Next i

Ton code modifié donnerait :

Private Sub CommandButton2_Click()
Dim Plage As Range, lacellule As Range

ZLEtudiant.Clear
Plage = Worksheets("Liste").Range("A1:A52")
For Each lacellule In Plage
     ZLEtudiant.AddItem Plage
Next lacellule
End Sub

ou l'autre boucle...

mais, pour éviter lers cellules vides, je ferais plutôt comme ça (None so far du même d'ailleurs)

Private Sub CommandButton2_Click()
Dim L As Worksheet
Dim DL As Integer
Set L = Worksheets("Liste")
DL = L.Range("A" & Application.Rows.Count).End(xlUp).Row
ZLEtudiant.List = L.Range("A1:A" & DL).Value
End Sub

merci beaucoup de toutes tes explications j'ai choisi ce code (car il n y aura pas de cellules vides)

Private Sub CommandButton2_Click()

Dim Plage As Range, lacellule As Range

ZLEtudiant.Clear

set Plage = Worksheets("Liste").Range("A1:A52")

For Each lacellule In Plage

ZLEtudiant.AddItem Plage -----> erreur d execution type 13 : incompatibilite de type en mode F8

Next lacellule

End Sub

Re,

J'avais corrigé dans l'exemple de la boucle mais j'ai refait l'erreur dans le code entier :

ZLEtudiant.AddItem lacellule

Sous entendu, lacellule.Value...

MERCI BEAUCOUP thau-theme !!!!