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 :
Mais je n'arrive pas à coller le texte.
Pouvez vous m'aider ?
Merci d'avance.
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.