Données excel vers combobox

Soyez le premier à donner votre avis sur cette source.

Vue 12 120 fois - Téléchargée 960 fois

Description

Cette source recupere les donnees d'une feuille excel pour les mettre dans un combobox

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

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
mercredi 22 avril 2009
Statut
Membre
Dernière intervention
22 avril 2009

je veux enregestré mes données de vb6 vers l'excel2003
mais j'ia trouve des problemes aider moi stp
Private Sub Command1_Click()
Dim appExcel As Excel.Application
Dim wbExcel As Excel.Workbook
Dim wsExcel As Excel.Worksheet


Set ApExcel = CreateObject("Excel.application")
ApExcel.Workbooks.Add ("e:\radoan\a.xls")

ApExcel.Cells(8, 4).Formula = Text1.Text
ApExcel.Cells(9, 4).Formula = Text2.Text
ApExcel.Cells(10, 4).Formula = Text3.Text

ApExcel.Cells(11, 4).Formula = Text4.Text
ApExcel.Cells(12, 4).Formula = Text5.Text
ApExcel.Cells(13, 4).Formula = Text6.Text

ApExcel.Cells(14, 4).Formula = Text7.Text
ApExcel.Cells(15, 4).Formula = Text8.Text
ApExcel.Cells(16, 4).Formula = Text9.Text

ApExcel.Cells(17, 4).Formula = Text10.Text
ApExcel.Cells(18, 4).Formula = Text11.Text
ApExcel.Cells(19, 4).Formula = Text12.Text

ApExcel.Cells(20, 4).Formula = Text12.Text
ApExcel.Cells(21, 4).Formula = Text13.Text
ApExcel.Cells(22, 4).Formula = Text14.Text

ApExcel.Cells(23, 4).Formula = Text15.Text
ApExcel.Cells(24, 4).Formula = Text16.Text
ApExcel.Cells(25, 4).Formula = Text17.Text

ApExcel.Cells(26, 4).Formula = Text18.Text
ApExcel.Cells(27, 4).Formula = Text19.Text
ApExcel.Cells(28, 4).Formula = Text20.Text

ApExcel.Cells(29, 4).Formula = Text21.Text
ApExcel.Cells(30, 4).Formula = Text22.Text
ApExcel.Cells(31, 4).Formula = Text23.Text


ApExcel.Cells(32, 4).Formula = Text24.Text
ApExcel.Cells(33, 4).Formula = Text25.Text
ApExcel.Cells(34, 4).Formula = Text26.Text

ApExcel.Cells(35, 4).Formula = Text27.Text
ApExcel.Cells(36, 4).Formula = Text28.Text
ApExcel.Cells(37, 4).Formula = Text29.Text

ApExcel.Cells(38, 4).Formula = Text30.Text
ApExcel.Cells(39, 4).Formula = Text31.Text
ApExcel.Cells(40, 4).Formula = Text32.Text

ApExcel.Cells(41, 4).Formula = Text33.Text
ApExcel.Cells(42, 4).Formula = Text34.Text
ApExcel.Cells(43, 4).Formula = Text35.Text

ApExcel.Cells(44, 4).Formula = Text36.Text
ApExcel.Cells(45, 4).Formula = Text37.Text
ApExcel.Cells(46, 4).Formula = Text38.Text

ApExcel.Cells(47, 4).Formula = Text39.Text
ApExcel.Cells(48, 4).Formula = Text40.Text
ApExcel.Cells(49, 4).Formula = Text41.Text

ApExcel.Cells(50, 4).Formula = Text42.Text
ApExcel.Cells(51, 4).Formula = Text43.Text
ApExcel.Cells(52, 4).Formula = Text44.Text

ApExcel.Cells(53, 4).Formula = Text45.Text
ApExcel.Cells(54, 4).Formula = Text46.Text
ApExcel.Cells(55, 4).Formula = Text47.Text

ApExcel.Cells(56, 4).Formula = Text48.Text
ApExcel.Cells(57, 4).Formula = Text49.Text
ApExcel.Cells(58, 4).Formula = Text50.Text

ApExcel.Cells(59, 4).Formula = Text51.Text
ApExcel.Cells(60, 4).Formula = Text52.Text
ApExcel.Cells(61, 4).Formula = Text53.Text

ApExcel.Cells(62, 4).Formula = Text54.Text
ApExcel.Cells(63, 4).Formula = Text55.Text
ApExcel.Cells(64, 4).Formula = Text56.Text

ApExcel.Cells(65, 4).Formula = Text57.Text
ApExcel.Cells(66, 4).Formula = Text58.Text
ApExcel.Cells(67, 4).Formula = Text59.Text


ApExcel.Cells(68, 4).Formula = Text60.Text
ApExcel.Cells(69, 4).Formula = Text61.Text
ApExcel.Cells(70, 4).Formula = Text62.Text

ApExcel.Cells(71, 4).Formula = Text63.Text
ApExcel.Cells(72, 4).Formula = Text64.Text
ApExcel.Cells(73, 4).Formula = Text65.Text

ApExcel.Cells(74, 4).Formula = Text66.Text
ApExcel.Cells(75, 4).Formula = Text67.Text
ApExcel.Cells(76, 4).Formula = Text68.Text

ApExcel.Cells(77, 4).Formula = Text69.Text
ApExcel.Cells(78, 4).Formula = Text70.Text
ApExcel.Cells(79, 4).Formula = Text71.Text

ApExcel.Cells(80, 4).Formula = Text72.Text
ApExcel.Cells(81, 4).Formula = Text73.Text
ApExcel.Cells(82, 4).Formula = Text73.Text

ApExcel.Cells(83, 4).Formula = Text75.Text
ApExcel.Cells(84, 4).Formula = Text76.Text
ApExcel.Cells(85, 4).Formula = Text77.Text

ApExcel.Cells(88, 4).Formula = Text78.Text
ApExcel.Cells(89, 4).Formula = Text79.Text
ApExcel.Cells(90, 4).Formula = Text80.Text

ApExcel.Cells(91, 4).Formula = Text81.Text
ApExcel.Cells(92, 4).Formula = Text82.Text
ApExcel.Cells(93, 4).Formula = Text83.Text

ApExcel.Cells(94, 4).Formula = Text84.Text
ApExcel.Cells(95, 4).Formula = Text85.Text
ApExcel.Cells(96, 4).Formula = Text86.Text

ApExcel.Cells(97, 4).Formula = Text87.Text
ApExcel.Cells(98, 4).Formula = Text88.Text
ApExcel.Cells(99, 4).Formula = Text89.Text

ApExcel.Cells(100, 4).Formula = Text90.Text
ApExcel.Cells(101, 4).Formula = Text91.Text
ApExcel.Cells(102, 4).Formula = Text92.Text

ApExcel.Cells(103, 4).Formula = Text93.Text
ApExcel.Cells(104, 4).Formula = Text94.Text
ApExcel.Cells(105, 4).Formula = Text95.Text

ApExcel.Cells(106, 4).Formula = Text96.Text

Form2.Text1.Text = ApExcel.Cells(107, 6).Value

Form2.Text2.Text = ApExcel.Cells(107, 7).Value

Form2.Text3.Text = ApExcel.Cells(107, 8).Value

Form2.Text4.Text = ApExcel.Cells(107, 9).Value

Form2.Text5.Text = ApExcel.Cells(107, 10).Value

Form2.Text6.Text = ApExcel.Cells(107, 11).Value


Form3.Text1.Text = ApExcel.Cells(107, 12).Value

Form3.Text2.Text = ApExcel.Cells(107, 13).Value

Form3.Text3.Text = ApExcel.Cells(107, 14).Value

Form3.Text4.Text = ApExcel.Cells(107, 15).Value

Form3.Text5.Text = ApExcel.Cells(107, 16).Value

Form3.Text6.Text = ApExcel.Cells(107, 17).Value


Form4.Text1.Text = ApExcel.Cells(107, 18).Value

Form4.Text2.Text = ApExcel.Cells(107, 19).Value

Form4.Text3.Text = ApExcel.Cells(107, 20).Value

Form4.Text4.Text = ApExcel.Cells(107, 21).Value

Form4.Text5.Text = ApExcel.Cells(107, 22).Value

Form4.Text6.Text = ApExcel.Cells(107, 23).Value


wbExcel.SaveAs "e:\radoan\a.xls"
wbExcel.Close
appExcel.Quit



ApExcel.Visible = True

Set wsExcel = Nothing
Set wbExcel = Nothing
Set appExcel = Nothing


End Sub
Messages postés
11
Date d'inscription
vendredi 6 février 2004
Statut
Membre
Dernière intervention
23 novembre 2004

juste une petite remarque : trop de commentaires tue le commentaire
on reproche souvent l'absence ou le peu d'info dans certaines sources, mais il faut éviter de tomber dans l'excès et prendre de suite l'habitude d'être plus "pertinent" dans tes comments, par ex :

"Dim a As Integer 'declaration de la variable a incrementer qui correspond a la valeur de la ligne"
->
"dim NumLigne as integer " sera je pense compris par tous

tu as dejà plus de ligne comments que de lignes de code ! ;o)
Messages postés
129
Date d'inscription
mercredi 24 septembre 2003
Statut
Membre
Dernière intervention
12 février 2009

C'est une bonne démarche de tester présenter et écouter les remarques...
C'est vrai que sur ce site y'a peu de commentaires sur le VBA et c'est un peu dommage mais quand même faut pas hésiter.
N'oublie pas non plus que tu as dans excel l'enregistreur de macros.
Ce n'est pas parfait mais très intéressant pour apprendre.
Messages postés
2
Date d'inscription
mardi 27 juillet 2004
Statut
Membre
Dernière intervention
4 février 2006

Merci jmlucienvb pour cette reponse.
Je debute en vb et j'essaie tant bien que mal a me creer des macros excel.
Merci encore


ps: je suis pret a lire toutes remarques de votre part
Messages postés
129
Date d'inscription
mercredi 24 septembre 2003
Statut
Membre
Dernière intervention
12 février 2009

Il me semble que le gestion du mouvement des cellules dans excel avec ce renvoi suite: n'est pas très optimisé.
Fait plutôt :
Sheets("données").Select
Range("A1").Activate
Do while not activecell.value=""
Combo1.AddItem activecell.value
activecell.offset(1,0).activate
loop

Cela devrait être bien plus rapide

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.