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

LEIYAZ · 21 Novembre 2020

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.

job75 · 21 Novembre 2020

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 · 21 Novembre 2020

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+

LEIYAZ · 21 Novembre 2020

@job75 cela fonctionne parfaitement merci

job75 · 21 Novembre 2020

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

LEIYAZ · 21 Novembre 2020

@job75 c'est parfait comme ca, merci beaucoup

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

LEIYAZ

XLDnaute Nouveau

job75

job75

XLDnaute Barbatruc

LEIYAZ

XLDnaute Nouveau

job75

XLDnaute Barbatruc

LEIYAZ

XLDnaute Nouveau

Discussions similaires