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 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85
|
Sub Macro8()
Dim tailleColonne As Integer
'
' Sheets("Regime").Delete
' Sheets("Puissance").Delete
' Sheets("Conso").Delete
Sheets("Feuil1").Select
tailleColonne = Application.WorksheetFunction.CountA(Range("A2:A50000"))
Cells(1, 1).Range("A2:B" & Range("A50000").End(xlUp).Row).Select
Selection.Copy
Sheets(2).Select
Cells(tailleColonne + 1, 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Cells(1, tailleColonne + 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Cells(1, tailleColonne + 3).Range("A1:A" & tailleColonne).Select
Selection.FormulaR1C1 = "1"
Selection.Copy
Cells(tailleColonne + 3, 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Cells(tailleColonne + 1, tailleColonne + 1).Range("A1:C3").Select
Selection.FormulaR1C1 = "0"
For i = 1 To tailleColonne
For j = 1 To tailleColonne
Cells(i, j).FormulaR1C1 = "=(((RC[" & tailleColonne - j + 1 & "] - R[" & tailleColonne - i + 1 & "]C) ^ 2)+((RC[" & tailleColonne - j + 2 & "] - R[" & tailleColonne - i + 2 & "]C)^2))* Log(((RC[" & tailleColonne - j + 1 & "] - R[" & tailleColonne - i + 1 & "]C) ^ 2)+((RC[" & tailleColonne - j + 2 & "] - R[" & tailleColonne - i + 2 & "]C)^2))"
Next j
Next i
For k = 1 To tailleColonne
For l = 1 To tailleColonne
k = l
Cells(k, l).FormulaR1C1 = "0"
Next l
Next k
Sheets(3).Select
Sheets(3).Name = "Regime"
Sheets.Add
Sheets(3).Name = "Puissance"
Sheets("Puissance").Move After:=Sheets(4)
Sheets.Add
Sheets(4).Name = "Conso"
Sheets("Conso").Move After:=Sheets(5)
Sheets("Feuil1").Select
Cells(1, 1).Range("A2:A" & Range("A50000").End(xlUp).Row).Select
Selection.Copy
Sheets("Regime").Select
Cells(1, 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Feuil1").Select
Cells(1, 2).Range("A2:A" & Range("A50000").End(xlUp).Row).Select
Selection.Copy
Sheets("Puissance").Select
Cells(1, 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Feuil1").Select
Cells(1, 3).Range("A2:A" & Range("A50000").End(xlUp).Row).Select
Selection.Copy
Sheets("Conso").Select
Cells(1, 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Feuil2").Name = "Coeffs"
End Sub |
Partager