Soyez le premier à donner votre avis sur cette source.
Vue 12 470 fois - Téléchargée 1 031 fois
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
22 avril 2009 à 02:28
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
23 nov. 2004 à 23:55
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)
23 nov. 2004 à 07:58
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.
22 nov. 2004 à 21:18
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
22 nov. 2004 à 08:56
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.