Les Limites du VBA ?

bonjour,

Je me permet de vous solliciter à nouveau, plus j'apprend de choses, plus je me rend compte que je ne sais rien !

Est il possible, via une macro rattachée à un raccourci clavier de coller un texte provenant d'un document word dans une cellule fusionnée ?

Mon sombre cerveau à constaté que le fait de copier le texte dans la barre de formule (une fois la cellule sélectionnée) fonctionne.

Est il possible de retranscrire cette action en langage VBA ..?

Cordialement.

Bonjour,

Pour faire un coller du texte contenu dans le presse-papier dans la cellule active :

- Ajoute la référence Microsoft Forms 2.0 Object Library au projet VBA
- Colle la fonction CollageParValeur dans un module du projet VBA

Code:

---

1 2 3 4 5 6 7

' ajouter la référence "Microsoft Forms 2.0 Object Library" Sub CollageParValeur() Dim obj As New MSForms.DataObject obj.GetFromClipboard ActiveCell.Value = Trim(obj.GetText()) Set obj = Nothing End Sub

---

Merci beaucoup !

Tu est un Génie :)

Bonne continuation à tous et à bientôt,
En espérant pouvoir à mon tour répondre aux questions des autres !

Cordialment.

Re.
Content que ça convienne. :ccool:.
A+

Bonjour,

je me permet de réup le poste pour une question qui c'est posée à moi,

Est il possible de rajouter une ligne de commande à la macro pour supprimer les espaces qui se rajoute après avoir coller les élements dans la cellule ??

Corfialement.
Yamiral

Bonjour,

Pour supprimer les retours à la ligne en fin de la chaîne copiée :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub CollageParValeur()   Dim obj As New MSForms.DataObject obj.GetFromClipboard Dim s As String s = obj.GetText() Dim strlen As Long strlen = Len(s) If strlen > 1 Then If Mid(s, strlen - 1) = (Chr(13) & Chr(10)) Then s = Left(s, strlen - 2) End If End If ActiveCell.Value = Trim(s) Set obj = Nothing   End Sub

---

YES

Tu est un Dieux !!!

Encore MERCI !!