XL 2013 Excel copier dans le presse papier une cellule avec un contenu fixe avec une cellule avec un contenu variable

job75

XLDnaute Barbatruc

• 7 Mai 2021

• #2

Bonjour aToulon, bienvenue sur XLD,

Voyez le fichier joint et cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A2]) Is Nothing Or Trim([A1].Text) = "" Or Trim([A2].Text) = "" Then Exit Sub
Dim x$
x = Trim([A1].Text) & " " & Trim([A2].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

Elle se déclenche quand on entre des valeurs en A1 et A2.

Sélectionnez une autre cellule et touches Ctrl+V pour y coller le contenu du presse-papiers.

Fonctionne bien chez moi sur Excel 2019, testez sur Excel 2013 et dites-nous.

A+

 

Pièces jointes

• Presse-papiers(1).xlsm

  16.3 KB · Affichages: 16

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 7 Mai 2021

• #3

bonjour
tiens donc un frère de patrie

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 7 Mai 2021

• #4

patricktoulon à dit:

bonjour
tiens donc un frère de patrie

Cliquez pour agrandir...

Bonsoir Patrick ,

Oh non! Un seul c'est déjà bien assez!
(quand on me tend la perche, je la saisis)

edit : bonsoir @job75

 

Vote positif 0 Vote négatif

A

aToulon

XLDnaute Nouveau

• 14 Janvier 2022

• #5

Bonjour
Ça marche pour moi également
Merci beaucoup

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Janvier 2022

• #6

Bonjour vieux motard que j'aimais.

 

Vote positif 1 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 14 Janvier 2022

• #7

 

Vote positif 0 Vote négatif