XL 2010 Copie zone de texte dans une autre sur une autre feuille

[LEIYAZ]

Bonjour,

J'ai un fichier avec plusieurs zones de textes, je n'arrive pas à trouver le code qui me permette d'extraire le contenu de la zone de texte d'une feuille et de le copier / coller dans une autre zone de texte avec la meme police située sur une autre feuille.

J'ai fait ce code en cherchant un peu :

Sub copie_zone_texte()

Sheets("devis").Select
T = Worksheets("devis").Shapes("TextBox 3").TextFrame.Characters.Text

sheets("facture").Select
ActiveSheet.Shapes.Range(Array("TextBox 3")).Select

'*****************************************************'
' a ce niveau je ne sais pas comment coller le texte'
'*****************************************************'

End Sub

Mais je n'arrive pas à coller le texte.

Pouvez vous m'aider ?

Merci d'avance.

 

[job75]

Bonsoir LEIYAZ,

Si vous êtes sûr des noms des zones de texte :

Sub copie_zone_texte()
Sheets("facture").DrawingObjects("TextBox 3").Text = Sheets("devis").DrawingObjects("TextBox 3").Text
End Sub

Seuls les textes sont copiés, pas les formats.

A+

 

[LEIYAZ]

@job75 cela fonctionne parfaitement merci 🙂

 

[job75]

Si vous souhaitez copier aussi les formats le plus simple est de faire un copier-coller de l'objet :

Sub copie_zone_texte()
Dim x#, y#
Application.ScreenUpdating = False
With Sheets("facture")
    With .Shapes("TextBox 3")
        x = .Left
        y = .Top
        .Delete 'supprime l'objet
    End With
    Sheets("devis").Shapes("TextBox 3").Copy 'copier
    .Activate
    .Paste 'coller
    Selection.Left = x
    Selection.Top = y
    ActiveCell.Activate
End With
End Sub

 

[LEIYAZ]

@job75 c'est parfait comme ca, merci beaucoup 🙂