Microsoft 365 Bouton Insertion

[Nathan027]

Bonjour à toute et à tous.

Je sollicite une nouvelle fois votre aide.
J'aimerai dans le fichier que je vais vous joindre, grace au bouton "Ajouter une action", insérer un bloc identique au bloc B6:O7
Mon bouton "fonctionne" pour l'insertion, mais il ne copie pas la mise en forme.
Je précise que la feuille sera copier et que le nom changera chaque jour.
Sauriez vous comment faire ? Merci

 

[sylvanu]

Bonjour Nathan,
En supposant que l'action ne se fait que sur la feuille courante, et pas sur toutes les feuilles, un essai en PJ avec :

Sub Bouton1_Cliquer()
    Rows("6:7").Copy
    Rows("6:7").Select: Selection.Insert Shift:=xlDown
    Range("B6") = Application.UserName: [B6].Select
End Sub

 

[Nathan027]

Bonjour
Merci pour ta réponse.
Ca fonctionne presque
En fait j'ai copier le code dans mon "vrai" fichier, ca fonctionne bien sauf qu'il m''ouvre aussi le "faux fichier" que je vous ai envoyé .. saurais tu pourquoi ?

 

[sylvanu]

Oups! aucune idée, la macro s'exécute sur la feuille courante du fichier ouvert.
Si vous cliquez droit sur votre bouton et faites "Affecter une macro" elle référence bien à votre nom de fichier ?
( si vous voyez "'Fichierexemple 2.xlsm'!Bouton1_Cliquer" alors cela référence ma PJ, modifiez en conséquence )

 

[Nathan027]

ahhhh je suis nul lol .
j'avais en effet fait référence à une macro qui était sur la PH "Fichierexemple2"
Donc en effet ca fonctionne nickel !!
Merci.