additem comboBox

medza · 4 Décembre 2014

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

bbb38 · 4 Décembre 2014

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 · 4 Décembre 2014

Re : additem comboBox

bbb38 à dit:
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 · 4 Décembre 2014

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 · 4 Décembre 2014

Re : additem comboBox

Jean-Marcel à dit:

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

Code:

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 · 4 Décembre 2014

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 · 4 Décembre 2014

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 · 4 Décembre 2014

Re : additem comboBox

bbb38 à dit:
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... · 5 Décembre 2014

Re : additem comboBox

salut

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

Code:

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

Code:

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

Code:

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 · 5 Décembre 2014

Re : additem comboBox

Tres bien Si....grand Merci pour tous

additem comboBox

medza

XLDnaute Nouveau

Pièces jointes

bbb38

XLDnaute Accro

medza

XLDnaute Nouveau

Paf

XLDnaute Barbatruc

medza

XLDnaute Nouveau

medza

XLDnaute Nouveau

Pièces jointes

bbb38

XLDnaute Accro

Pièces jointes

medza

XLDnaute Nouveau

Si...

XLDnaute Barbatruc

medza

XLDnaute Nouveau

Discussions similaires

additem comboBox

XLDnaute Nouveau

Pièces jointes

XLDnaute Accro

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

Pièces jointes

XLDnaute Accro

Pièces jointes

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency