VBA Autocad i+1
jp
-
Yoda -
Yoda -
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
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:
- VBA Autocad i+1
- Ancienne version autocad gratuite - Télécharger - CAO-DAO
- I showkeyplus - Télécharger - Utilitaires
- I love pdf avis ✓ - Forum PDF
- O ou i pour allumer - Forum Facebook
- Vba attendre 1 seconde ✓ - Forum VB / VBA