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

[aToulon]

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]

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) :

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+

 

[patricktoulon]

bonjour
tiens donc un frère de patrie

 

[mapomme]

bonjour
tiens donc un frère de patrie

Bonsoir Patrick ,

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

edit : bonsoir @job75

 

[aToulon]

Bonjour
Ça marche pour moi également
Merci beaucoup

 

[job75]

Bonjour vieux motard que j'aimais.

 

[patricktoulon]