Combobox en vb
Résolu
thisisonehood
Messages postés
19
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis débutant en vb et j'ai un gros soucis.
J'aimerai recuperer les données d'un fichier excel et alimenter un combo.
Jai tout essayer sauf que ça ne marche pas
kelkun a une idée. Merci
Voici mon code
Dim k As Long
'Alimentation de la combobox
For k = 0 To feuille.Range("A65535").End(Microsoft.Office.Interop.Excel.XlDirection.xlUp).Row
Cbo1 = feuille.Range("A", k)
If Cbo1.SelectedItem - 1 Then Cbo1.Items.AddRange(feuille.Range("A" & k))
Next k
Je suis débutant en vb et j'ai un gros soucis.
J'aimerai recuperer les données d'un fichier excel et alimenter un combo.
Jai tout essayer sauf que ça ne marche pas
kelkun a une idée. Merci
Voici mon code
Dim k As Long
'Alimentation de la combobox
For k = 0 To feuille.Range("A65535").End(Microsoft.Office.Interop.Excel.XlDirection.xlUp).Row
Cbo1 = feuille.Range("A", k)
If Cbo1.SelectedItem - 1 Then Cbo1.Items.AddRange(feuille.Range("A" & k))
Next k
A voir également:
- Combobox en vb
- Vb - Télécharger - Langages
- Vb cable - Télécharger - Audio & Musique
- Vb editor - Télécharger - Langages
- Vb runtime - Télécharger - Divers Utilitaires
- Remplir combobox vba ✓ - Forum Excel
1 réponse
Bonjour,
'Combobox sur feuille de calcul
Private Sub Worksheet_Activate()
'Nombre de colonnes
ComboBox1.ColumnCount = 1
'largeur Colonnes
ComboBox1.ColumnWidths = "50 pt"
'Entete colonne
'ComboBox1.ColumnHeads = True
'RAZ Liste
ComboBox1.Clear
With Sheets("feuil1")
'A1 a AXX= donnees pour liste Combobox1
NbLigne = WorksheetFunction.CountA(Columns("A:A"))
'Ecriture liste
For x = 1 To NbLigne
ComboBox1.AddItem (Sheets("feuil1").Cells(x, 1))
Next x
End With
End Sub
A Adapter pour faire votre code
'Combobox sur feuille de calcul
Private Sub Worksheet_Activate()
'Nombre de colonnes
ComboBox1.ColumnCount = 1
'largeur Colonnes
ComboBox1.ColumnWidths = "50 pt"
'Entete colonne
'ComboBox1.ColumnHeads = True
'RAZ Liste
ComboBox1.Clear
With Sheets("feuil1")
'A1 a AXX= donnees pour liste Combobox1
NbLigne = WorksheetFunction.CountA(Columns("A:A"))
'Ecriture liste
For x = 1 To NbLigne
ComboBox1.AddItem (Sheets("feuil1").Cells(x, 1))
Next x
End With
End Sub
A Adapter pour faire votre code
