AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 07 00:11:20
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

DONNÉES EXCEL VERS COMBOBOX


Information sur la source

Catégorie :Control Niveau : Débutant Date de création : 21/11/2004 Vu / téléchargé: 9 160 / 824
Auteur : mutan35 Ecrire un message privé
Note :
4,33 / 10 - par 3 personnes
4,33 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note

Description

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

Source

  • 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
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
 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de jmlucienvb le 22/11/2004 08:56:26

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

  

signaler à un administrateur
Commentaire de mutan35 le 22/11/2004 21:18:02

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

signaler à un administrateur
Commentaire de jmlucienvb le 23/11/2004 07:58:42

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.

signaler à un administrateur
Commentaire de robbynaze le 23/11/2004 23:55:22

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)

signaler à un administrateur
Commentaire de radoanc1 le 22/04/2009 02:28:57

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

Ajouter un commentaire

Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version


Samsung CLX-3175FN Color Laser All-in-One Printer Laser
Entre 372€ et 399€


Visiter le guide achat

Photothèque Nouveau !

Photo friends at the beach.Photo friends
Photo plage de nudistesPhoto going camping

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,250 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.