Données excel vers combobox

Soyez le premier à donner votre avis sur cette source.

Vue 12 470 fois - Téléchargée 1 031 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
radoanc1 Messages postés 1 Date d'inscription mercredi 22 avril 2009 Statut Membre Dernière intervention 22 avril 2009
22 avril 2009 à 02:28
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
robbynaze Messages postés 11 Date d'inscription vendredi 6 février 2004 Statut Membre Dernière intervention 23 novembre 2004
23 nov. 2004 à 23:55
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)
jmlucienvb Messages postés 129 Date d'inscription mercredi 24 septembre 2003 Statut Membre Dernière intervention 12 février 2009
23 nov. 2004 à 07:58
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.
mutan35 Messages postés 2 Date d'inscription mardi 27 juillet 2004 Statut Membre Dernière intervention 4 février 2006
22 nov. 2004 à 21:18
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
jmlucienvb Messages postés 129 Date d'inscription mercredi 24 septembre 2003 Statut Membre Dernière intervention 12 février 2009
22 nov. 2004 à 08:56
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.