VBA Autocad i+1

Fermé
jp - 20 avril 2012 à 10:51
 Yoda - 20 avril 2012 à 11:20
Bonjour,

voila je voudrai savoir comment faire pour résumer

ExcelSheet.Cells(1, 1) = objExcel.Sheets("Extraction").Range("A1").Value
ExcelSheet.Cells(1, 2) = objExcel.Sheets("Extraction").Range("B1").Value
ExcelSheet.Cells(1, 3) = objExcel.Sheets("Extraction").Range("C1").Value
ExcelSheet.Cells(1, 4) = objExcel.Sheets("Extraction").Range("D1").Value
ExcelSheet.Cells(1, 5) = objExcel.Sheets("Extraction").Range("E1").Value
ExcelSheet.Cells(1, 6) = objExcel.Sheets("Extraction").Range("F1").Value
ExcelSheet.Cells(1, 7) = objExcel.Sheets("Extraction").Range("G1").Value
ExcelSheet.Cells(1, 8) = objExcel.Sheets("Extraction").Range("H1").Value
ExcelSheet.Cells(1, 9) = objExcel.Sheets("Extraction").Range("I1").Value

en
i =1
ExcelSheet.Cells(1, i) = objExcel.Sheets("Extraction").Range("i1").Value
i+1

A voir également:

1 réponse

bonjour,

for i=1 to 9
ExcelSheet.Cells(1, i) = objExcel.Sheets("Extraction").Cells(1,i)
next

;)
0