Remplir une combo box

Bonjour,

Question idiote mais cela prendra peu de temps pour vous pour répondre.
J'aimerai avoir une combobox proposant les chiffres de 1 à 4 comment dois je l'écrire ?

3 réponses

  1. Oulaa, désolée mais pour le peu que j'en ai fait, je peux pas vraiment t'aider.

    Il faut déjà faire une boucle

    Dim i
    For i = 1 To 4
            [...]
    Next


    Normalement il y a un truc du genre
    Nom_de_la_combo.AddItem
    1. bonjour,

      Pour compléter la proposition de symff :

      Dim i As Integer
      
      For i = 1 To 4
           Combox1.AddItem i
      Next i


      ;o)
    2. Tout simplement ;-)
    3. tu as donné la soluce, je n'ai fait que la remise en forme .

      ;o)
    4. sa marche pas !! je sais pas pourkoi !
      voila ce que j'ai écrit:

      Private Sub main()
      Dim i As Integer
      For i = 1 To 4
      UserFormMat.ComboBox1.AddItem i
      Next i
      End Sub

      Sachant ke je ne me suis pas tromper de UserForm elle s'appelle bien UserFormMat
    5. Où est cette procédure main() ... de plus comment est-elle appelée ?

      Le plus simple est de mettre le remplissage du combox à l'ouverture du UserForm :

      Private Sub UserForm_Initialize()
      Dim i As Integer
      
          For i = 1 To 4
              ComboBox1.AddItem i
           Next i 
      End Sub


      ;o)