additem comboBox

[medza]

je veux mon liste deroulante se charge avec donnee saisie dans mon code vba
merci davance

 

[bbb38]

Re : additem comboBox

Bonjour medza, le forum,
Sauf erreur de ma part, je ne trouve pas les données de la liste déroulante.
Cordialement,
Bernard

 

[medza]

Re : additem comboBox

Bonjour medza, le forum,
Sauf erreur de ma part, je ne trouve pas les données de la liste déroulante.
Cordialement,
Bernard

ouvre le code mon ami
jai une erreur dans le code

 

[Paf]

Re : additem comboBox

Bonjour à tous

Pas sûr d"avoir bien compris, mais peut-être:

remplacer For Each Ctrl In Me par For Each Ctrl In Me.Controls

A+

 

[medza]

Re : additem comboBox

Bonjour a tous
A toi aussi Medza
moi j'aurais dit je souhaiterai

Private Sub UserForm_Initialize()
     Dim Ctrl As Control
             For Each Ctrl In UserForm1.Controls
                 If TypeOf Ctrl Is ComboBox Then
                     Ctrl.AddItem "Test1"
                     Ctrl.AddItem "Test2"
                 End If
             Next Ctrl
End Sub

tres bien merci Jean-Marcel et toutes lequipe de excel-downloads

 

[medza]

Re : additem comboBox

pardon les amis Jai essaye dalimenter ces sept liste avec nouveau code mais jai perdu mon equilibre
sil ya une aide je suis preneur

 

[bbb38]

Re : additem comboBox

Bonjour medza, Paf, Jean-Marcel, le forum,
En reprenant le code de Jean-Marcel (sans vouloir le blesser dans cette intervention), je me suis permis de rectifier l’objet, et le code. Lancement avec le bouton de commande « Test » (en espérant avoir compris ta demande).
Cordialement,
Bernard
P.S. Jean-Marcel : J’adore particulièrement tes interventions sur les gestions de stocks

 

[medza]

Re : additem comboBox

Bonjour medza, Paf, Jean-Marcel, le forum,
En reprenant le code de Jean-Marcel (sans vouloir le blesser dans cette intervention), je me suis permis de rectifier l’objet, et le code. Lancement avec le bouton de commande « Test » (en espérant avoir compris ta demande).
Cordialement,
Bernard
P.S. Jean-Marcel : J’adore particulièrement tes interventions sur les gestions de stocks

excuse moi mon ami
jai mal pose mon question
je veux jeux juste la liste n4,5,6,7,8 qui seront alimenté
jimagine quon utilise un boucle pour limiter nbre combobox à alimenter

 

[Si...]

Re : additem comboBox

salut

en passant plutôt par .List que par .Additem

Private Sub UserForm_Initialize()
  Dim n As Byte
  For n = 4 To 8
    Me("Combobox" & n).List = _
      Array("Test1", "Test2", "Test3", "Test4", "Test5", "Test6", "Test7", "Test8")
  Next
End Sub

Maintenant si tu tiens à l'ajout item par item

Private Sub UserForm_Initialize()
  Dim n As Byte, x As Byte
  For n = 4 To 8
    With Me("Combobox" & n)
      For x = 1 To 8
       .AddItem "Test" & x
      Next
    End With
  Next
End Sub

ou

Private Sub UserForm_Initialize()
  Dim n As Byte, x As Byte
  For n = 4 To 8
    With Me("Combobox" & n)
      For x = 0 To 7
        .AddItem Array("Test1", "Test2", "Test3", "Test4", "Test5", "Test6", "Test7", "Test8")(x)
      Next
    End With
  Next
End Sub

 

[medza]

Re : additem comboBox

Tres bien Si....grand Merci pour tous