Discussion :

[jgs012]

Bonjour,
Je ne suis pas trop doué avec excel
Je souhaite à l'aide de 2 macros différentes sur la feuille 3:
1 alimenter un tableau dans la première colonne vide
2 Archiver en fin de mois au nom du mois et effacer le contenu

Ci joint un fichier expliquant mes besoins.

Merci

[BlueMonkey]

Salut,

Essaye avec

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Alimenter()
    Worksheets("Feuil2").Range("B14:E14").Copy
    With Worksheets("Feuil3").Cells(9, Columns.Count).End(xlToLeft).Offset(, 1)
        .PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Transpose:=True
    End With
End Sub
 
Sub Archiver()
    Worksheets("Feuil2").Copy After:=Worksheets("Feuil3")
    ActiveSheet.Name = Format(CDate(ActiveSheet.Range("A9")), "mmm")
    With Worksheets("Feuil2")
        .Range("A9:E" & .Range("A" & Rows.Count).End(xlUp).Row - 1).ClearContents
    End With
End Sub

[jgs012]

Merci pour la réponse cela avance. Cependant ce n’était pas la feuille2 que je souhaitait copier mais la 3. Quand je modifie la feuille dans la macro le nouvel onglet ne prend plus le nom du mois. Pour ce qui est de l'alimentation de la feuille 3 à partir de la feuille 2 cela ne fonctionne pas.

[BlueMonkey]

Salut,

Essaye avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Alimenter()
    Worksheets("Feuil2").Range("B14:E14").Copy
    With Worksheets("Feuil3").Cells(9, Columns.Count).End(xlToLeft).Offset(, 1)
        .PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Transpose:=True
    End With
    Application.CutCopyMode = False
End Sub
 
Sub Archiver()
    Worksheets("Feuil3").Copy After:=Worksheets("Feuil3")
    ActiveSheet.Name = Format(CDate(Worksheets("Feuil2").Range("A9")), "mmmm")
    Worksheets("Feuil3").Range("B9").CurrentRegion.Offset(, 1).ClearContents
End Sub

[jgs012]

Bonjour et merci. Cela fonctionne parfaitement.

[BlueMonkey]

Content que ça fonctionne comme attendu.
A+