Claudy
XLDnaute Accro
Bonjour,
Il pourrait arriver avec certaines applications que le "Copier Coller" classique ne fonctionne pas, ou alors il faut passer par un éditeur de texte (wordpad, stickynote, ou autres...).
Personnellement, j'ai trouvé cette macro bien pratique, à placer dans le personal.xlsb et l'associer à une icône dans la barre d'outils d’accès rapide.
La macro:
Claudy
Il pourrait arriver avec certaines applications que le "Copier Coller" classique ne fonctionne pas, ou alors il faut passer par un éditeur de texte (wordpad, stickynote, ou autres...).
Personnellement, j'ai trouvé cette macro bien pratique, à placer dans le personal.xlsb et l'associer à une icône dans la barre d'outils d’accès rapide.
La macro:
VB:
Sub CopyToClipboard2()
'Activer: Outils>>Références>>MicrosoftForms 2.0 Object Library
Dim objData As New MSForms.DataObject
Dim strText
strText = ActiveCell.Value
objData.SetText strText
objData.PutInClipboard
'éventuellement, dans un tableau, on connait ainsi la dernière valeur copiée.
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 15773696
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
Claudy