Discussion :

[Tournament]

Bonsoir

ce code doit copier des données chaque mois dans une nouvelle feuille , mais manifestement il y a un soucis à la ligne 29
D'autre part il y a t il possibilité de renommer la nouvelle feuille automatiquement ou par un userform ?
Merci d avance pour votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub Sauvegarde_Mois()
'
'
' Sauvegarde des données du mois
'
 
'
    Range("H1:AA36").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Synthèse MLA").Select
    ActiveWindow.SmallScroll Down:=-21
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Feuil2").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("Synthèse MLA").Select
    Range("H4:AA37").Select
    Selection.ClearContents
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.SmallScroll Down:=-27
    Sheets("Etat parc MLA").Select
    Range("A2").Select
 
    'réactive la protection de la feuille de synthèse
 
    ActiveSheet.Protect "BONSAI", True, True, True
 
End Sub

en faisant des test, je m aperçois qu il fait 2 copies en fait
1 feuille ou il copie les valeurs et l autre feuille ou il copie le format !

[Theze]

Bonjour,

Pour récupérer les valeurs d'une feuille sur l'autre, la copie n'est pas nécessaire, il suffit d'attribuer les valeurs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim Fe_Nouv As Worksheet
Dim Fe As Worksheet
 
Set Fe_Nouv = Worksheets.Add(After:=Worksheets(Worksheets.Count))
Set Fe = Worksheets("Feuil1") 'adapter le nom de la feuille (mais pas de ActiveSheet !)
 
With Fe_Nouv
 
    .Range(.Cells(1, 1), .Cells(Fe.Range("H1:AA36").Rows.Count, Fe.Range("H1:AA36").Columns.Count)).Value = Fe.Range("H1:AA36").Value
    .Name = "Le nom que tu veux"
 
End With

Hervé.

[Tournament]

Bonsoir Hervé

je vais tester merci beaucoup !