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 : Sélectionner tout - Visualiser dans une fenêtre à part
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