Discussion :

[Yamiral]

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.

[BlueMonkey]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Yamiral]

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.

[BlueMonkey]

Re.
Content que ça convienne. .
A+

[Yamiral]

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

[BlueMonkey]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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