VBA Autocad i+1 Fermé

Question

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

Configuration: Windows XP / Safari 535.19

Yoda · Answer

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

VBA Autocad i+1

1 réponse

Discussions similaires