Macro copier feuille Excel 2016 [Résolu]

domimeca 17 Messages postés lundi 22 juin 2009Date d'inscription 8 décembre 2017 Dernière intervention - 27 nov. 2017 à 11:25 - Dernière réponse : domimeca 17 Messages postés lundi 22 juin 2009Date d'inscription 8 décembre 2017 Dernière intervention
- 27 nov. 2017 à 11:43
Bonjour,
Je prépare un fichier client. J'ai fais une macro pour créer une nouvelle feuille client. Sur cette nouvelles feuille il y a des boutons pour accéder à d'autre macros. Le problème est que lorsque je fais cette copie à l'aide de ma macro "copierfeuille", le texte de mes boutons disparait et est remplacé par "bouton1, bouton2...". Ceci dit si je fais la copie manuellement, aucun problème. Voici mon code:

Sub copierfeuille()

    Sheets("ACCUEIL").Select
    Sheets("Feuil1").Visible = True
    Sheets("Feuil1").Select
    ActiveSheet.Buttons.Add(3, 33, 61.5, 35.25).Select
    ActiveSheet.Buttons.Add(72.75, 30.75, 123, 0).Select
    ActiveSheet.Buttons.Add(231.75, 36, 63.75, 28.5).Select
    ActiveSheet.Buttons.Add(315.75, 36, 63.75, 28.5).Select
    ActiveSheet.Buttons.Add(493.5, 36, 63.75, 28.5).Select
    ActiveSheet.Buttons.Add(594, 36, 63.75, 28.5).Select
    ActiveSheet.Buttons.Add(87.75, 36, 63.75, 28.5).Select
    Sheets("Feuil1").Copy Before:=Sheets(1)
    Sheets("Feuil1").Select
    ActiveWindow.SelectedSheets.Visible = False
End Sub


Quelqu'un peut-il m'aider?
Merci d'avance.



EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.
Afficher la suite 
17Messages postés lundi 22 juin 2009Date d'inscription 8 décembre 2017 Dernière intervention

1 réponse

Répondre au sujet
domimeca 17 Messages postés lundi 22 juin 2009Date d'inscription 8 décembre 2017 Dernière intervention - Modifié par baladur13 le 28/11/2017 à 00:14
0
Utile
Bonjour à tous,
Je suis un peu idiot, j'avais utilisé la fonction automatique pour ma macro (pour en principe gagner du temps) mais je viens d'enlever toutes les sélection de boutons et apparemment ça marche. Voici le résultat:
Sub copierfeuille()

'
    Sheets("ACCUEIL").Select
    Sheets("Feuil1").Visible = True
    Sheets("Feuil1").Select
    Sheets("Feuil1").Copy After:=Sheets(3)
    Sheets("Feuil1").Select
    ActiveWindow.SelectedSheets.Visible = False
End Sub 


Merci à ceux qui ont commencer à se pencher sur mon problème.
Commenter la réponse de domimeca