comment remplir un combobox?

bonjour,

jaimerais remplir ma combobox avec les valeurs des cellules de B2 à B26 de la feuille1
comment puis je faire?

merci de répondre

dim i as byte
for i = 2 to 24
combobox1.additem feuil1.cells(i, 2)
next i

Tu peux aussi nommer ta plage B2:B26 est indiquer son nom dans le champ Rowsource de ta combobox

FFkiller

je suis un petit developeur donc je salu ts les grand developpeurs et tt ceux qui desire le partage avec ttes les autorisations sur la connaissances.
merci<>

bon concept

... et vieux Topic !
Cela favorisera peut-être l'appui sur "Réponse acceptée" de la part de notre ami Tonin39

@++

  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"

---

bonjours ,

comment remplir un combobox sous vb 6

nb :  pour la coonnexion j'etulise ADODB

 

Salut,

Pose ta propre question ICI
Si tu poses ta question dans un vieux topic, tu n-auras pas de réponses car seuls ceux qui participent à ce topic verront ton message.

Profite d-ailleurs pour rajouter plus de précisions (nom fichier, chemin, nom table, champs, etc...)

@++

---

Bonjour,
Je suis actuellment en train de développer un utilitaire sous VBA Excel. Le problème est que j'arrive à remplir une combobox mais lorsque je quitte le programme et je le reouvre la combobox ne contient plus qu'un item. Or moi je voudrai tous les conserver.

Voici mon code:
*******************************************
Dim NomFichier
NomFichier = Application.GetOpenFilename(",*.CSV")
If VarType(NomFichier) = vbBoolean Then
    TextBox1.Text = "Fichier non chargé!!!"
Else
       If ComboBox1.ListCount = 5 Then
        ComboBox1.RemoveItem (0)
        ComboBox1.AddItem (NomFichier)
        ComboBox1.Text = NomFichier
    Else
        ComboBox1.AddItem (NomFichier)
        ComboBox1.Text = NomFichier
    End If
End If
*******************************************
Merci par avance!!!

Je n'en crois pas mes yeux
Veux-tu bien lire, s'il te plait, le dernier message (juste au dessus) de Mortalino ?
Il s'applique à toi également...
Alors :
 ouvre une discussion ici, s'il te plait :
http://www.vbfrance.com/infomsg.aspx?ajout=1