Résolu 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.
 
Ce fil a été résolu! Aller à la solution…

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+
 
Ce message a été identifié comme étant une solution!

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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas