ComboBox en Vba

Jean de Thann Messages postés 2 Date d'inscription mercredi 1 novembre 2000 Statut Membre Dernière intervention 23 novembre 2004 - 23 nov. 2004 à 17:23
spacepig01 Messages postés 4 Date d'inscription mercredi 4 septembre 2002 Statut Membre Dernière intervention 22 mars 2006 - 18 mars 2006 à 10:26
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

Jean de Thann Messages postés 2 Date d'inscription mercredi 1 novembre 2000 Statut Membre Dernière intervention 23 novembre 2004
23 nov. 2004 à 17:23
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
0
spacepig01 Messages postés 4 Date d'inscription mercredi 4 septembre 2002 Statut Membre Dernière intervention 22 mars 2006
18 mars 2006 à 10:26
' 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
0
Rejoignez-nous