Macro copier feuille Excel 2016

Résolu

domimeca Messages postés 35 Date d'inscription Statut Membre Dernière intervention -
domimeca Messages postés 35 Date d'inscription Statut Membre 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.

A voir également:

Macro copier feuille Excel 2016
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Liste déroulante excel - Guide
Feuille de pointage excel - Télécharger - Tableur
Word et excel gratuit - Guide
Verrouiller cellule excel sans verrouiller la feuille - Guide

1 réponse

Réponse 1 / 1

domimeca Messages postés 35 Date d'inscription Statut Membre Dernière intervention 1

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.

Discussions similaires

Feuille de score belote

dessin avec symbole clavier

Transformer un chiffre en lettres dans excel sans macro

Votre réponse

Discussions similaires