Concaténer le contenu du presse-papier aux cellules actives

Le 25/12/2014 à 14:28

Bonjour le Forum, et Noyeux Joel !

Comme l’usage d’Excel ne connaît pas de trêve, j’aimerais de l’aide pour faire une macro toute bête (mais au-delà de mes capacités).

Je voudrais faire une macro qui ajoute à la plage active un saut de ligne + le contenu du presse-papier.

Exemple :

– je copie une cellule contenant le mot « mardi »

– je sélectionne 3 cellules

– je lance la macro

– dans chacune des 3 cellules, s’ajoute un saut de ligne et le mot mardi

Merci pour toute aide.

Je la recevrai comme un cadeau de Noël ;o)

Le 25/12/2014 à 22:46

gloub a écrit :
Bonjour le Forum, et Noyeux Joel !
Comme l’usage d’Excel ne connaît pas de trêve, j’aimerais de l’aide pour faire une macro toute bête (mais au-delà de mes capacités).
Je voudrais faire une macro qui ajoute à la plage active un saut de ligne + le contenu du presse-papier.
Exemple :
– je copie une cellule contenant le mot « mardi »
– je sélectionne 3 cellules
– je lance la macro
– dans chacune des 3 cellules, s’ajoute un saut de ligne et le mot mardi
Merci pour toute aide.
Je la recevrai comme un cadeau de Noël ;o)

Bonsoir,

Joyeux Noel.

Voici ton présent :

Sub test()

Dim MyData As DataObject
Set MyData = New DataObject
Dim sClipText As String

'Si pas de donnée copiée on stop
On Error GoTo fin
MyData.GetFromClipboard
sClipText = MyData.GetText(1)

For Each c In Selection
c.Select
ActiveCell.FormulaR1C1 = c & Chr(10) & sClipText
Next

fin:
End Sub

En pj la mise en situation

21classeur1.xlsm (21.53 Ko)

Le 25/12/2014 à 23:07

Bonsoir Père Noël !

Merci pour ton cadeau, mais j'ai du mal à le faire marcher (écrasé dans la hotte, ou j'ai mal lu le mode d'emploi ?).

(il faut dire que je teste sous Excel 2003).

J'obtiens un message d'erreur :

Erreur de compilation.
Projet ou bibliothèque introuvable

...qui renvoie vers

MyData As DataObject

dans l'interface VBA.

Y a-t-il des lutins pour m'aider ?

Le 25/12/2014 à 23:19

gloub a écrit :
Bonsoir Père Noël !
Merci pour ton cadeau, mais j'ai du mal à le faire marcher (écrasé dans la hotte, ou j'ai mal lu le mode d'emploi ?).
(il faut dire que je teste sous Excel 2003).
J'obtiens un message d'erreur :
Erreur de compilation.
Projet ou bibliothèque introuvable
...qui renvoie vers
MyData As DataObject
dans l'interface VBA.
Y a-t-il des lutins pour m'aider ?

Hello

Va dans le code VB dans visual basic

Selectionne Insertion / Userform

Supprimes ensuite userform

Cette technique t'active une référence de bibliothèque Microsoft Form ...

Tiens moi au courant

cDt,

Le 26/12/2014 à 09:16

Bonjour,

Merci pour ta réponse.

J'ai suivi tes instructions à la lettre, malheureusement, le résultat reste le même...

Le 26/12/2014 à 09:31