Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
bonjour à tous,
comment copier le contenu d'une zone de texte sur une autre zone de texte sur une feuille différente?
j'ai éssayé
Shapes("Text Box 3").Text = Shapes("Text Box 34").Text
qui ne fonctionne pas.
Merci, le retiendrai la solution de Kjin, mais comment faire alors si je veux copier le contenu sur d'autres zones de texte ?
Set sh = ActiveSheet.Shapes("Text Box 34")
Set sh2 = Sheets("feuil2").Shapes("Text Box 3")
Set sh3 = Sheets("feuil3").Shapes("Text Box 4")
j'ai bien trouvé:
Set sh = ActiveSheet.Shapes("Text Box 34")
Set sh2 = Sheets("feuil2").Shapes("Text Box 3")
Set sh3 = Sheets("feuil3").Shapes("Text Box 4")
sh2.DrawingObject.Caption = sh.DrawingObject.Caption
sh3.DrawingObject.Caption = sh.DrawingObject.Caption
mais je pense qu'il doit y avoir plus simple.
Re,
Plus simple !
Encore faut-il que la question soit clairement posée
Y a t-il une seule forme ou plusieurs, une seule zone de texte ou plusieurs et dans ce cas laquelle choisir, faut-il boucler sur toutes les feuilles, sur 2, 3, trouver les zones de texte...
Re,
Plus simple !
Encore faut-il que la question soit clairement posée
Y a t-il une seule forme ou plusieurs, une seule zone de texte ou plusieurs et dans ce cas laquelle choisir, faut-il boucler sur toutes les feuilles, sur 2, 3, trouver les zones de texte...
oui je reconnais que ce n'est pas très clair.
en fait j'ai 10 feuilles, dans chaque feuille une zone de texte(une seule), (au meme endroit), à l'aide d'un userform le text box de la feuille1 est rempli, le but et de copier ces données sur les 9 autres textbox. ou
de remplir directement les 10 textbox lors de la saisie de l'userform dont le code est le suivant:
Private Sub CommandButton1_Click()
Sheets("devis").Shapes("Text Box 34").Select
Selection.Characters.Text = "" & Chr(10) & [concat_nom] & Chr(10) & [concat_adresse] & Chr(10) & [concat_ville]
With Selection.Characters(Start:=1, Length:=11).Font
.Name = "Georgia"
.FontStyle = "Normal"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Set sh = ActiveSheet.Shapes("Text Box 34")
Set sh2 = Sheets("feuil2").Shapes("Text Box 3")
Set sh3 = Sheets("feuil3 ").Shapes("Text Box 4")
Set sh4 = Sheets("feuil4 ").Shapes("Text Box 5")
Set sh5 = Sheets("feuil5 ").Shapes("Text Box 6")
Set sh6 = Sheets("feuil6 ").Shapes("Text Box 7")
Set sh7 = Sheets("feuil7 ").Shapes("Text Box 8")
Set sh8 = Sheets("feuil8 ").Shapes("Text Box 9")
Set sh9 = Sheets("feuil9 ").Shapes("Text Box 10")
Set sh10 = Sheets("feuil10 ").Shapes("Text Box 11")
Private Sub CommandButton1_Click()
Dim texte As String, ws As Worksheet, shp As Shape
texte = Chr(10) & [concat_nom] & Chr(10) & [concat_adresse] & Chr(10) & [concat_ville]
For Each ws In Worksheets
For Each shp In ws.Shapes
If shp.Type = msoTextBox Then
With shp.DrawingObject
.Text = texte
With .Font
.Name = "Georgia"
.Size = 12
End With
End With
End If
Next
Next
'....
End Sub
Private Sub CommandButton1_Click()
Dim texte As String, ws As Worksheet, shp As Shape
texte = Chr(10) & [concat_nom] & Chr(10) & [concat_adresse] & Chr(10) & [concat_ville]
For Each ws In Worksheets
For Each shp In ws.Shapes
If shp.Type = msoTextBox Then
With shp.DrawingObject
.Text = texte
With .Font
.Name = "Georgia"
.Size = 12
End With
End With
End If
Next
Next
'....
End Sub
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD
