Combobox en vb
Résolu
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
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
