XL 2021 VBA bouton pour copier le contenu d'une cellule

fuioplde · 27 Octobre 2024

Bonjour à tous,

Je travaille actuellement sur un classeur Excel dans lequel je souhaite ajouter un bouton permettant de copier automatiquement le contenu d'une cellule spécifique (par exemple, E3 dans une feuille nommée "Nommage") dans le presse-papiers sans modifier la sélection de cellules dans Excel.

Cependant, ce code pose des problèmes, surtout lors de la réouverture du fichier. J’ai vérifié les paramètres de sécurité des macros et essayé d’ajouter des références à la bibliothèque Microsoft Forms 2.0 Object Library, mais sans succès.

piga25 · 27 Octobre 2024

Bonjour,
Un essais avec ceci : valable pour la feuille Nommage et cellule E3

VB:

Sub CopierDansPressePapier()
Dim ws As Worksheet
Dim x$
    Set ws = ThisWorkbook.Sheets("Nommage") ' Remplacez "Nommage" par le nom exact de votre feuille si nécessaire
    ' Copier la valeur de la cellule dans le presse-papiers
    x = Trim(ws.[E3].Text)
        With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") 'DataObject en late binding
            .SetText x
            .PutInClipboard
        End With
    MsgBox "Le texte '" & x & "' a été placé dans le presse-papiers..."
End Sub

fuioplde · 27 Octobre 2024

Ca fonctionne mais quand je ferme mon fichier et que le réouvre la macro à disparu...

fuioplde · 27 Octobre 2024

fuioplde à dit:
Ca fonctionne mais quand je ferme mon fichier et que le réouvre la macro à disparu...

Fallait enregistrer en classeur comprenant les macros autant pour moi

XL 2021 VBA bouton pour copier le contenu d'une cellule

fuioplde

XLDnaute Nouveau

piga25

XLDnaute Barbatruc

fuioplde

XLDnaute Nouveau

fuioplde

XLDnaute Nouveau

Discussions similaires