Discussion :

[phoon]

Bonjour
J'essaier de coller le contenu du presse-papier dans un "Shape Text"
Je récupère le presse papier dans une variable et qund je veux coller cette variable dans le shape, rien ne se passe.
Si je colle du texte, cela fonctionne ???

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub CopyText()
 
Set MaDonnee = New DataObject
 
MaDonnee.GetFromClipboard
Texte = MaDonnee.GetText(1)
 
ActiveSheet.Shapes("Text Box 1").Select
Shapes("Text Box 1").TextFrame.Characters.Text = ""
Shapes("Text Box 1").TextFrame.Characters.Text = Texte
Range("a1").Select
 
End Sub

mais cela fonctionne :

Code :

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

1
2
 
Shapes("Text Box 1").TextFrame.Characters.Text = "dfjgdfkl"

merci d'avance

[casefayere]

Bonjour,
vérifie la vaeur de texte, en t'arretant sur :

Code :

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

Texte = MaDonnee.GetText(1)

[fring]

Bonjour,

Il y a une erreur de syntaxe dans l'utilisation de la Shape.
Si tu veux passer par la sélection de cette shape, la syntaxe est la suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CopyText()
 
Set MaDonnee = New DataObject
 
MaDonnee.GetFromClipboard
Texte = MaDonnee.GetText(1)
 
ActiveSheet.Shapes("Text Box 1").Select
Selection.Characters.Text = ""
Selection.Characters.Text = Texte
Range("a1").Select
 
End Sub

Il est également possible d'éviter cette sélection

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CopyText()
 
Set MaDonnee = New DataObject
 
MaDonnee.GetFromClipboard
Texte = MaDonnee.GetText(1)
 
With ActiveSheet.Shapes("Text Box 1")
    .TextFrame.Characters.Text = ""
    .TextFrame.Characters.Text = Texte
End With
 
End Sub

[casefayere]

j'ai peut-être tort mais ceci m'étonne :

Code :

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

With ActiveSheet.Shapes("Text Box 1")

ça ne serait pas plutot :

Code :

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

With ActiveSheet.Shapes("TextBox1")

[fring]

Il ne s'agit pas d'un TextBox issu de la boîte à outils "Contrôles" mais d'une zone de texte, issue du menu "Dessin", nommée "Text Box 1"

[phoon]

Bonjour à Tous

J'ai modifié le code comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub CopyText()
 
Set MaDonnee = New DataObject
 
MaDonnee.GetFromClipboard
Texte = MaDonnee.GetText(1)
Shapes("Text Box 1").Select
With ActiveSheet.Shapes("Text Box 1")
    .TextFrame.Characters.Text = ""
    .TextFrame.Characters.Text = Texte
End With
 
End Sub

Le shapes s'appelle bien "Text Box 1"
Quand je fais la macro, j'ai bien "Texte" qui a pris la valeur voulue.

Mais le Frame reste vide, la valeur ne se colle pas à l'intérieur.

je ne comprend pas

[mayekeul]

bonjour,

si je fait comme ceci, cela fonctionne très bien

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub CopyText()
Dim MaDonnee As DataObject
Dim texte As String
 
Set MaDonnee = New DataObject
MaDonnee.GetFromClipboard
texte = MaDonnee.GetText(1)
 
With ActiveSheet.Shapes("Text Box 1")
    .TextFrame.Characters.Text = ""
    .TextFrame.Characters.Text = texte
End With
 
End Sub

maintenant question bete :
les couleurs de texte ne se confondent pas avec l'arrière plan du shape ???

[phoon]

Hello en fait cela fonctionne très bien....

sauf s'il y a trop de ligne.
Je copie ces donnée depuis un "Host" et il semblerait qu'il y a un problème avec les saut des lignes ou la quantité de texte...

Merci à Vous pour votre aide

Je reviendrais si je ne trouve pas ou se situe le problème....