[XL-2000] Réinitialisation d'un classeur au lancement de la macro

Réinitialisation d'un classeur au lancement de la macro

Bonjour à tous!

Je débute avec les macros Excel, et je suis confrontée à un petit soucis. J'ai créé une macro qui, à partir de la première feuille contenant 3 colonne, me fait toute une série de calculs dans la deuxième feuille, copie-colle la première colonne de la feuille 1 dans la troisième feuille, créé une quatrième et cinquième feuille pour y coller la deuxième et la troisième colonne.

Jusque là tout va bien si je n'applique ma macro qu'une seule fois. Mais le soucis, c'est que si j'applique une deuxième fois la macro, les index ne collent plus, et débuggage... Et si je mets des Sheets("Feuil4").delete au début du code, cette fois c'est au premier lancement de la macro que ça plante...

Je voudrais savoir s'il n'existe pas un code qui réinitialise le classeur à chaque lancement de la macro, mais tout en gardant la première feuille, car les données de celles ci sont les seules indispensables pour le reste des calculs.

Je vous fais part de mon code :

Code:

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

Merci d'avance!!

Salut,

Tu trouveras ci-joint un exemple de suppression des feuilles du classeur actif
sauf la feuil1:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim Sht As Worksheet
 
    ' on desactive les alertes (message lors de la suppression d'une feuille)
    Application.DisplayAlerts = False
        ' on boucle sur toutes les feuilles du classeur actif
        For Each Sht In Sheets
            ' si le nom de la feuille (mis en minuscule ici) n'est pas la feuille reference
            If LCase(Sht.Name) <> "feuil1" Then
                ' on supprime la feuille
                Sht.Delete
            End If
        Next
    ' on reactive les alertes
    Application.DisplayAlerts = True

Ca marche comme sur des roulettes, merci beaucoup pour ta réponse plus rapide que l'éclair!!