Macro copier feuille Excel 2016

Résolu/Fermé

domimeca Messages postés 35 Date d'inscription lundi 22 juin 2009 Statut Membre Dernière intervention 16 décembre 2017 - Modifié le 28 nov. 2017 à 00:14
domimeca Messages postés 35 Date d'inscription lundi 22 juin 2009 Statut Membre Dernière intervention 16 décembre 2017 - 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
Liste déroulante excel - Guide
Feuille de pointage excel - Télécharger - Tableur
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Formule excel - Guide
Copier une vidéo youtube - Guide

1 réponse

Réponse 1 / 1

domimeca Messages postés 35 Date d'inscription lundi 22 juin 2009 Statut Membre Dernière intervention 16 décembre 2017 1
Modifié le 28 nov. 2017 à 00:14

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

Dessiner avec son clavier et avec des lettres

Lien de téléchargement de nbLettre.xla

Discussions similaires

Newsletters