Données excel vers combobox
Description
Cette source recupere les donnees d'une feuille excel pour les mettre dans un combobox
creer un fichier test.xls dans c
Source / Exemple :
Private Sub Form_Load()
Dim a As Integer 'declaration de la variable a incrementer
'qui correspond a la valeur de la ligne
Dim data As String 'declaration de la variable qui prendra comme
'valeur le contenu de la cellule
Dim monclasseur As Excel.Workbook 'declaration d'une variable comme classeur excel
Set monclasseur = workbooks.Open("c:\test.xls") 'qui prendra comme valeur le fichier test.xls place
'dans C
a = 0 'attribution de la valeur "0" à "a"
suite: 'debut d'un sous programme appele suite
a = a + 1 'incremente "a" de "1"
data = Sheets("données").Range("a" & a) 'place la valeur de la cellule de colonne "A" et de
'ligne "a" dans "data"
If data = "" Then GoTo fin 'si la cellule est vide alors on saute à fin
Combo1.AddItem data 'on ajoute le contenu de "data" dans le combo1
GoTo suite 'on retourne au sous prog "suite"
fin: 'début d'un sous prog appele "fin
workbooks.Close 'fermeture des classeurs
End Sub
Conclusion :
creer un fichier test.xls dans c
Codes Sources
A voir également
- Données excel vers combobox
- Exporter données excel vers word vba - Forum Visual Basic
- Automatiser import excel vers access - Forum Visual Basic
- Extraire des données d'un fichier excel avec python ✓ - Forum Python
- Arctan excel ✓ - Forum Visual Basic 6
- La conversion d'un type de données varchar en type de données datetime a créé une valeur hors limites - Forum C# / .NET
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.