Exporter le contenu d'une liste vers des zone de texte

[maval]

Bonjour,

Est-il possible d'envoyer une liste de nom qui se trouve en "A2: A100" vers des zone texte nommé "ZT-01, ZT-02 ect...." avec un code VBA

Je vous remercie de votre aide

 

[laetitia90]

Re : Exporter le contenu d'une liste vers des zone de texte

bonjour maval

le principe

Sub es()
ActiveSheet.Shapes("ZT-01").TextEffect.Text = [a2]
ActiveSheet.Shapes("ZT-01").TextFrame.Characters.Font.Color = vbBlack
ActiveSheet.Shapes("ZT-02").TextEffect.Text = [a3]
ActiveSheet.Shapes("ZT-02").TextFrame.Characters.Font.Color = vbBlack
'ect...
End Sub

apres le mieux une boucle,array

For Each s In ActiveSheet.Shapes

ect..

 

[maval]

Re : Exporter le contenu d'une liste vers des zone de texte

Bonjour Laetitia et bonne année,

Je te remercie beaucoup seul petit souci c'est qu'il y a environ 100 zone de texte.

@+

 

[JCGL]

Re : Exporter le contenu d'une liste vers des zone de texte

Bonjour à tous,

Peux-tu tester :

Option Explicit

Sub Test()
Dim X&
For X = 1 To 99
On Error Resume Next
ActiveSheet.Shapes("ZT-" & IIf(X < 10, "0" & X, X)).TextEffect.Text = Cells(X + 1, 1)
ActiveSheet.Shapes("ZT-" & IIf(X < 10, "0" & X, X)).TextFrame.Characters.Font.Color = vbBlack
Next
End Sub

A+ à tous

Edition : Pour Aligner le texte

Option Explicit

Sub Test()
    Dim X&
    For X = 1 To 99
        On Error Resume Next
        With ActiveSheet.Shapes("ZT-" & IIf(X < 10, "0" & X, X))
            .TextEffect.Text = Cells(X + 1, 1)
            .TextFrame.Characters.Font.Color = vbBlue
            .TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter
            .TextFrame2.VerticalAnchor = msoAnchorMiddle
        End With
    Next
End Sub

 

[maval]

Re : Exporter le contenu d'une liste vers des zone de texte

Bonjour JC

Je te remercie beaucoup et te souhaite une bonne année

 

[maval]

Re : Exporter le contenu d'une liste vers des zone de texte

Re,

Est-il possible que la zone texte prenne la longueur en fonction du texte?

Merci

 

[JCGL]

Re : Exporter le contenu d'une liste vers des zone de texte

Bonjour à tous,

Peux-tu essayer en rajoutant avant le End With :

.TextFrame2.AutoSize = msoAutoSizeShapeToFitText
.TextFrame2.WordWrap = msoFalse

A+ à tous

 

[maval]

Re : Exporter le contenu d'une liste vers des zone de texte

Re,

Non le texte se met sur deux lignes.

 

[JCGL]

Re : Exporter le contenu d'une liste vers des zone de texte

Bonjour à tous,

J'ai édité mon message...

A+ à tous

 

[maval]

Re : Exporter le contenu d'une liste vers des zone de texte

Re,

Nikel je te remercie Bon WE

@+