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

aToulon

XLDnaute Nouveau
Bonjour

Je donne un exemple
Dans la cellule A1 est écrit un texte fixe "Nombre de canard" par exemple
La cellule A2 est vide, j'écris dans cette cellule "27" et lorsque j'ai fini d écrire se colle automatiquement dans le presse papier les deux cellules sous la forme:
Nombre de canard 27

Comment faut il faire pour obtenir cela ?

Merci
 

job75

XLDnaute Barbatruc
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: 14

Discussions similaires