ComboBox en Vba

Signaler
Messages postés
2
Date d'inscription
mercredi 1 novembre 2000
Statut
Membre
Dernière intervention
23 novembre 2004
-
Messages postés
4
Date d'inscription
mercredi 4 septembre 2002
Statut
Membre
Dernière intervention
22 mars 2006
-
Jean de Thann
1) Je souhaite un coup de main en VBA pour renseigner une ComboBox en dynamique.
Elle devrait contenir une liste de Noms et prénoms issus des colonnes A et B d'une feuille Excel.
Mais le nb de lignes est variable (nouveaux adhérents).
Il correspondra à une variable incrémentée dans une procédure.
Le code ultra simpliste ci-dessous ne fonctionne pas.
ComboBox1.RowSource = "$a$1:$b$1679"
ComboBox1.ControlSource = "$c$1"
2) je souhaite que la combo réponde à la frappe :
si je frappe R (la liste va afficher à partir de R) puis O (la liste va afficher à partir de RO) etc?
Merci beaucoup par avance.
Jean

2 réponses

Messages postés
2
Date d'inscription
mercredi 1 novembre 2000
Statut
Membre
Dernière intervention
23 novembre 2004

Jean de Thann
1) Je souhaite un coup de main en VBA pour renseigner une ComboBox en dynamique.
Elle devrait contenir une liste de Noms et prénoms issus des colonnes A et B d'une feuille Excel.
Mais le nb de lignes est variable (nouveaux adhérents).
Il correspondra à une variable incrémentée dans une procédure.
Le code ultra simpliste ci-dessous ne fonctionne pas.
ComboBox1.RowSource = "$a$1:$b$1679"
ComboBox1.ControlSource = "$c$1"
2) je souhaite que la combo réponde à la frappe :
si je frappe R (la liste va afficher à partir de R) puis O (la liste va afficher à partir de RO) etc?
Merci beaucoup par avance.
Jean
Messages postés
4
Date d'inscription
mercredi 4 septembre 2002
Statut
Membre
Dernière intervention
22 mars 2006

' row est une variable qui correspond a la ligne
Dim row As Integer
row = 8
Sheets("feuil1").Activate

Do While Trim(Cells(row, 8) <> "")
' (row,8) correspond donc à H8 (en fait lire "8eme ligne" puis 8eme colonne "H")
row = row + 1
Loop

'transfert valeur variable nom au combo
Cells(row, 2) = Feuil1.ComboBox2.text