Données excel vers combobox
Soyez le premier à donner votre avis sur cette source.
Vue 12 213 fois - Téléchargée 976 fois
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
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
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)
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.
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
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.