Discussion :

[operaq]

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

[Invité]

Bonjour,

Essayez ça :

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
 
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.

[operaq]

merci beaucoup!

Je place le topic en résolu!