Microsoft 365 Bouton Insertion

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Février 2024

• #2

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 :

Code:

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

 

Pièces jointes

• Fichierexemple 2.xlsm

  27.9 KB · Affichages: 1

Vote positif 0 Vote négatif

Solution

N

Nathan027

XLDnaute Junior

• 12 Février 2024

• #3

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 ?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Février 2024

• #4

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 )

 

Vote positif 0 Vote négatif

N

Nathan027

XLDnaute Junior

• 12 Février 2024

• #5

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.

 

Vote positif 0 Vote négatif