1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
| Private Sub CommandButton1_Click()
'Variables
Dim i As String
Dim j As String
Dim numonglet As String
'Activation
Workbooks("Tableaux de synthèse v06.xlsm").Sheets("Profil énergétique").Activate
'Préparation
numonglet = 4
j = 5
'Copie des données
For i = 4 To 45
Sheet("Profil énergétique").Cells(j, 2).Value = Sheet(i).Range("I3")
Sheet("Profil énergétique").Cells(j, 3).Value = Sheet(i).Range("I24")
Sheet("Profil énergétique").Cells(j, 4).Value = Sheet(i).Range("I25")
Sheet("Profil énergétique").Cells(j, 5).Value = Sheet(i).Range("I26")
Sheet("Profil énergétique").Cells(j, 6).Value = Sheet(i).Range("I27")
Sheet("Profil énergétique").Cells(j, 7).Value = Sheet(i).Range("I28")
Sheet("Profil énergétique").Cells(j, 8).Value = Sheet(i).Range("I29")
Sheet("Profil énergétique").Cells(j, 9).Value = Sheet(i).Range("I30")
Sheet("Profil énergétique").Cells(j, 10).Value = Sheet(i).Range("I31")
Sheet("Profil énergétique").Cells(j, 11).Value = Sheet(i).Range("I32")
Sheet("Profil énergétique").Cells(j, 12).Value = Sheet(i).Range("I33")
Sheet("Profil énergétique").Cells(j, 13).Value = Sheet(i).Range("I34")
Sheet("Profil énergétique").Cells(j, 14).Value = Sheet(i).Range("I35")
Sheet("Profil énergétique").Cells(j, 15).Value = Sheet(i).Range("I36")
Sheet("Profil énergétique").Cells(j, 16).Value = Sheet(i).Range("I37")
Sheet("Profil énergétique").Cells(j, 17).Value = Sheet(i).Range("I38")
Sheet("Profil énergétique").Cells(j, 18).Value = Sheet(i).Range("I39")
Sheet("Profil énergétique").Cells(j, 19).Value = Sheet(i).Range("I40")
Sheet("Profil énergétique").Cells(j, 20).Value = Sheet(i).Range("I41")
Sheet("Profil énergétique").Cells(j, 21).Value = Sheet(i).Range("I15")
Sheets("Profil énergétique").Rows(j + 1).Resize(1).Insert Shift:=xlDown
j = j + 1
Next i
End Sub |
Partager