Assembler deux macro

Version imprimable

Bonjour,

J'utilise VBA timidement, en assemblant des codes trouvés sur le net ou par enregistrement de macro. Du coup je rencontre pas mal de problème du à ce manque de maîtrise.

Ci-dessous j'ai voulu rassembler deux code dans un bouton, mais cela ne fonctionne pas. Alors qu'ils fonctionnaient très bien lorsqu'ils étaient séparés.
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub CommandButton1_Click() ActiveSheet.Copy after:=ActiveSheet ActiveSheet.Select ActiveSheet.Name = "Nouvelle Page" Range("A2:A7,A9:A16,A22:A29,A31:A37,C2:F7,G2:J7,C9:F16,G9:J16,C22:F29,C31:J37,G22:J29").Select Selection.ClearContents Range("A2").Select End Sub

Bonjour,

Essayez ça :

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
ActiveSheet.Copy after:=ActiveSheet
 
With ActiveSheet
    .Name = "Nouvelle Page"
    .Range("A2:A7,A9:A16,A22:A29,A31:A37,C2:F7,G2:J7,C9:F16,G9:J16,C22:F29,C31:J37,G22:J29").ClearContents
    .Range("A2").Select
End With
 
End Sub

Cordialement.

15/01/2014, 10h26
operaq

merci beaucoup!

Je place le topic en résolu! :ccool: