Perte de macro

J'ai trouvé une combine pour supprimer tous tes boutons;
Ajoute un bouton à ton UserForm et mets ce code:

Private Sub CommandButton5_Click()
'Supprime les boutons
Dim Ws As Worksheet
 'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris
'en compte.
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name = "1" Then
'rien
Else
Ws.Select
ActiveSheet.Shapes.SelectAll
Selection.Delete
End If
Next Ws
End Sub

Le classeur que je t'ai transmis ne peux plus être modifier. Les nouveaux boutons ne sont plus Ellipse 1 et 2, mais 3 et 4. C'est un exemple!

Il faut prendre ton classeur original après avoir fait une copie (important) et mettre une UserForm et des boutons et recopier le code.

Je tiens aussi à te signaler que tes 2 macros buggées. J'ai corrigé, ceux sont les lignes qui sont en vert. Il faudra aussi les corriger sur ton classeur original, en mettant une apostrophe devant ces lignes.

Je ne peux pas faire plus. Je sais que c'est compliqué pour un néophyte en vba!

Bon courage

Voilà, je t'ai fait une interface avec un bouton approprié à chaque action. Tu n'auras même pas besoin d'allez modifier le code.

La seule obligation:

Après avoir supprimé tous les boutons. Il n'en restera que 2 sur l'onglet 1. Il faudra que tu leur affectes une macro à chacun avant de copier tous les boutons

http://www.cjoint.com/data3/3AEpL4QMP0w.htm

Pour lancer l'UserForm1

Tu sélectionnes d'abord ton 1er onglet et ensuite Alt F11 pour allez dans l'éditeur

ensuite quand tu es sur l'UserForm1 tu fait F5 au clavier , elle va s'afficher sur ton onglet

Dans le code il faut d'abord que tu suivent les instructions que je t'ai données!
Tu supprimes d'abord Ellipse 1, quand c'est fait tu fermes l'UserForm pour revenir au code, tu changes Ellipse 1 en Ellipse 2 et relance ton UserForm et tu supprimes ton 2ème bouton. tu fermes l'UserForm1

Ensuite dans ton 1er onglet tu mets un bouton affecté à une 1ere macro
Tu rectifies dans le code copier les boutons le nom du bouton et eventuellement sa position
Copie boutons

Ensuite dans ton 1er onglet tu mets un second bouton affecté à une 2eme macro
Tu rectifies dans le code copier les boutons le nom du bouton et sa position
Copie boutons

Mais je n'ai pas trouvé de 2ème macro!

Quand tu es dans l'éditeur, il y a en haut à gauche les feuilles, en dessous il y a Feuille tout seul, tu cliques dessus tu verras l'UserForm1, tu cliques dessus. Ensuite pour allez dans le code tu doublecliques sur un bouton.
En dessous Feuille il y a Modules, tu cliques dessus il y a ton module, tu cliques dessus et tu verras le code de ta macro: Sub impression_test_CM2()

Voici ton classeur, mais il n'y a qu'une macro Test CM2 seulement

Pour aller dans les macros faire Alt F11 au clavier

http://www.cjoint.com/data3/3AElFnxvgbF.htm

Si tu as d'autres shapes (bouton, graphique etc) sur tes feuilles ils vont être effacer. Pour éviter cela il ne faudrait effacer que les boutons concernés. Mais ils faut qu'ils aient le même nom. Si c'est le cas voici le code:

Option Explicit
Private Sub CommandButton1_Click()
'Supprime les boutons
Dim Ws As Worksheet
 'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris
'en compte.
For Each Ws In ThisWorkbook.Worksheets
Ws.Select
ActiveSheet.Shapes("Rectangle 10").Delete 'a adapter au nom du bouton
Next Ws
End Sub
Private Sub CommandButton2_Click()
'Copie les boutons
Dim Ws As Worksheet
 'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris
'en compte.
ActiveSheet.Shapes("Rectangle 10").Select ' a adapter au bouton que tu auras mis
Selection.Copy
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name = "Feuil1" Then ' a adapter au 1er onglet pour éviter un 2ème bouton sur la feuille1
'rien
Else
Ws.Select
 Range("D21").Select ' a adapter
    Ws.Paste
    End If
Next Ws
End Sub
Private Sub UserForm_Initialize()
CommandButton1.Caption = "Supprimer boutons"
CommandButton2.Caption = "Copier boutons"
End Sub

Tout d'abord tu fait une copie de ton classeur. Il va falloir bien suivre la procédure .
Alt F11 pour accéder, tu inseres une UserForm avec 2 boutons, avec ce code:

Private Sub CommandButton1_Click()
'Supprime les boutons
Dim Ws As Worksheet
 'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris
'en compte.
For Each Ws In ThisWorkbook.Worksheets
ActiveSheet.Shapes.SelectAll
Selection.Delete
Next Ws
End Sub
Private Sub CommandButton2_Click()
'Copie les boutons
Dim Ws As Worksheet
 'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris
'en compte.
ActiveSheet.Shapes("Rectangle 9").Select ' a adapter au bouton que tu auras mis
Selection.Copy
For Each Ws In ThisWorkbook.Worksheets
Ws.Select
 Range("D21").Select ' a adapter
    Ws.Paste
Next Ws
End Sub
Private Sub UserForm_Initialize()
CommandButton1.Caption = "Supprimer boutons"
CommandButton2.Caption = "Copier boutons"
End Sub

Tu vas d'abord supprimer tous tes boutons

Ensuite dans ton 1er onglet tu mets un bouton affecté à une 1ere macro

Tu rectifies dans le code copier les boutons le nom du bouton et eventuellement sa position

Ensuite dans ton 1er onglet tu mets un second bouton affecté à une 2eme macro

Tu rectifies dans le code copier les boutons le nom du bouton et sa position

Bon courage

@+ Le Pivert

Bonjour,

Tu peux insérer un dessin. Ensuite clique droit , Affecter une macro. Tu verras ta macro et tu la sélectionnes.

Bonjour
Qu'appelez vous déplacer un onglet ?
si c'est un copier coller vers un autre classeur,il faut que la macro soit aussi dans le classeur, ou la recoller dans l'onglet si elle appartient au code de la feuille
crdlmnt