Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL pour MAC Problème avec une macro dupliquant une feuille contenant une macro

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

AlineJ

XLDnaute Nouveau
Bonjour,

J'ai une feuille Excel contenant des données et deux boutons auxquels sont attachées des macros. Le 1er bouton permet d'exécuter une macro créant un pdf de la feuille.
Le 2ème bouton permet d'exécuter une macro qui duplique la feuille.
Lorsque je clique pour dupliquer la feuille, le 2ème bouton est correctement dupliqué mais pas le 1er. Le texte du 1er bouton est remplacé par "Bouton <numéro>" et aucune macro n'y est attachée.
De plus, le texte du 1er bouton est également changé et la macro n'y est plus attachée dans la feuille d'origine.
Comment faire pour que cela fonctionne correctement ? Je précise que j'ai bien coché l'option "Couper, copier et trier les objets insérés avec les cellules associées".

Voici la macro de duplication :
Sub CréerFacture()
'
' CréerFacture Macro
'

'
NumFact = Application.InputBox("N° de facture : ", Type:=1)
DateFact = Application.InputBox("Date :", Type:=2)
Année = Year(Now())

Sheets("Modèle").Select
ActiveSheet.Buttons.Add(537, 38, 120, 30).Select
Sheets("Modèle").Copy Before:=Sheets(1)
Sheets("Modèle (2)").Select
Sheets("Modèle (2)").Name = NumFact
Range("D12").Select
ActiveCell.FormulaR1C1 = DateFact & "/" & Année
Range("D13").Select
ActiveCell.FormulaR1C1 = Année & "-" & NumFact
Range("D14").Select
End Sub


Merci !!
 
Trier par date Trier par votes
Bonjour Aline, et bienvenu sur XLD,
Auriez vous un petit fichier test, c'est plus simple pour comprendre et tester.
NB :
Mettez votre code entre balises </> c'est beaucoup plus lisible ( )
 
Vote positif 0 Vote négatif
sylvanu à dit:
Bonjour Aline, et bienvenu sur XLD,
Auriez vous un petit fichier test, c'est plus simple pour comprendre et tester.
NB :
Mettez votre code entre balises </> c'est beaucoup plus lisible ( Regarde la pièce jointe 1218946 )
Cliquez pour agrandir...
Bonjour,
Merci pour votre réponse.
Voici un fichier test. Cliquez sur le bouton Nouvelle facture. Entrez un chiffre puis une date... Cela crée une nouvelle feuille mais le bouton "Export PDF" ne se duplique pas correctement et il est modifié dans la feuille d'origine.
Merci pour votre aide !
 

Pièces jointes

Vote positif 0 Vote négatif
Re,
Je ne comprend pas dans votre contexte à quoi sert cette ligne :
VB: 
ActiveSheet.Buttons.Add(537, 38, 120, 30).Select
Si vous supprimez cette ligne, cela semble correctement marcher.
En plus vous pouvez simplifier :
Code: 
    Range("D12").Select
    ActiveCell.FormulaR1C1 = DateFact & "/" & Année
    Range("D13").Select
    ActiveCell.FormulaR1C1 = Année & "-" & NumFact
par
    Range("D12") = DateFact & "/" & Année
    Range("D13") = Année & "-" & NumFact
 
Vote positif 0 Vote négatif
Ça marche. Merci !
Je ne comprenais pas non plus le but de cette ligne... J'ai créé la macro avec l'enregistreur puis je l'ai modifiée. N'ayant jamais fait de VBA avant aujourd'hui, je n'ai pas osé l'enlever 🙂
Un grand merci pour votre aide !
 
Vote positif 0 Vote négatif
sylvanu à dit:
Justement si !
Vous la mettez en commentaires ( en ajoutant un apostrophe en début de ligne ). Vous essayez, si ça plante vous retirez le commentaires.
C'est en essayant ( et en se plantant ) qu'on progresse. 😉
Cliquez pour agrandir...
Bonjour,
Il subsiste un petit problème avec ma macro pour créer une nouvelle facture (voir fichier de test dans le message du 6 juin). Je saisis le jour et le mois ainsi <jj/mm>. J'ajoute "/2025" dans la macro. Mais la date est affichée au format anglo-saxon <mm/jj/aaaa>. Pourtant mes paramètres régionaux au niveau de l'OS sont bien au format français. Si quelqu'un peut m'aider... Merci !
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
123
vazvaz
V
F
  • Question Question
XL 2010 Appeler une macro dans une autre
Réponses
5
Affichages
617
Dranreb
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
525
AtTheOne
A
  • Résolu(e)
Microsoft 365 Suppression d'une ligne d'un tableau avec une macro
Réponses
13
Affichages
891
Alain 79
A
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
A
  • Question Question
XL 2010 Duplication d’onglets
Réponses
3
Affichages
558
Abnna
A
B
  • Résolu(e)
XL 2016 Modifier ou créer une macro imprimer une sélection de zones
Réponses
5
Affichages
779
berru76
B
D
  • Question Question
Microsoft 365 macro avec lien hypertexte et modele de facture
Réponses
6
Affichages
874
david_aurel
D
  • Question Question
Microsoft 365 Problème VBA insertion ligne au-desus
Réponses
3
Affichages
720
Mr.Adrien
  • Résolu(e)
XL 2016 Changer de feuille dans une macro
2
Réponses
28
Affichages
3 K
Staple1600
G
  • Question Question
XL 2019 VBA / Macro Impression avec nombre de copies variables par feuille à imprimer
Réponses
5
Affichages
2 K
Gasner
G
S
  • Question Question
XL 2016 projet macros excel indicateurs et cloud
Réponses
2
Affichages
876
stevy44
S
S
  • Résolu(e)
Microsoft 365 Bug de macro pour effacer une ligne
Réponses
4
Affichages
1 K
ShrekL
S
C
  • Résolu(e)
XL 2010 supprimer une ligne sur d'autre feuilles en prenant référence sur une feuille journal
Réponses
3
Affichages
616
ccia
C
M
  • Question Question
XL 2019 Sélectionner une feuille avec nom dans une variable VBA
Réponses
4
Affichages
2 K
ManOfCatz
M
V
  • Résolu(e)
Microsoft 365 Afficher filtres appliqués par macro dans la cellule B3 directement et non par F5 puis Réinitialiser
Réponses
12
Affichages
1 K
VirginieG
V
I
  • Question Question
XL 2019 Autofill - Une seule ligne
Réponses
1
Affichages
3 K
Staple1600
  • Question Question
XL 2019 Problème avec WorksheetFunction
Réponses
2
Affichages
1 K
cp4
E
  • Question Question
XL 2016 COPIER COLLER de valeurs d'une feuille à une autre depuis une valeur d'une cellule sans bouton
Réponses
4
Affichages
2 K
Hasco
D
  • Résolu(e)
XL 2019 Problème avec fonction Find
Réponses
10
Affichages
2 K
eriiic
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…