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

LEIYAZ

XLDnaute Nouveau
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 :

VB:
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.
 
Solution
Bonsoir LEIYAZ,

Si vous êtes sûr des noms des zones de texte :
VB:
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+

job75

XLDnaute Barbatruc
Bonsoir LEIYAZ,

Si vous êtes sûr des noms des zones de texte :
VB:
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+
 

job75

XLDnaute Barbatruc
Si vous souhaitez copier aussi les formats le plus simple est de faire un copier-coller de l'objet :
VB:
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
 

Discussions similaires

Haut Bas