Renommer une ZONE DE TEXTE

Bonjour,

Avec la macro ci-dessous, je peux renommer des "boutons de commande" avec des noms situés sur une autre feuille.

Est il possible de faire la meme chose avec des "ZONE DE TEXTE" à la place des boutons de commande ?

D'avance MERCI

Sub renommer() 
Dim Sh As Worksheet 
Dim I As Byte 
Dim Shp As Shape 
For Each Sh In Sheets 
If Sh.Name <> "Feuil1" Then 
I = 1 
For Each Shp In Sh.Shapes 
Shp.DrawingObject.Object.Caption = Sheets("Feuil1").Cells(I, 1).Value 
I = I + 1 
Next Shp 
End If 
Next Sh 
End Sub

Bonjour,

A ce que je vois, tu utilises le code que je t'avais fourni dans ce fil :

https://forum.excel-pratique.com/post102973.html#p102973

Or, tu n'as même pas daigné répondre ou donner suite à mon message....

Regarde bien ma signature...

Tu ne donnes pas forcément envie de te répondre...

Pour ce qui est des TextBoxs, essaie ce code :

Sub renommer_textbox()
Dim Sh As Worksheet
Dim I As Byte
Dim Shp As Shape
For Each Sh In Sheets
    If Sh.Name <> "Feuil1" Then
        I = 1
        For Each Shp In Sh.Shapes
            If Shp.Name Like "Text Box*" Then
                Shp.DrawingObject.Caption = Sheets("Feuil1").Cells(I, 1).Value
                I = I + 1
            End If
        Next Shp
    End If
Next Sh
End Sub

Bon W-E

Bonjour,

Troisième fil sur le même sujet et aucun n'est clôturé et n'a aucune réponse de ta part.

Pourrais-tu te conformer au bon fonctionnement du forum en donnant une réponse à celui qui prend la peine de te répondre et aussi en clôturant tes fils si une réponse solutionne ton pb.

La procédure t'a été envoyé dans ta BAL lors de ton inscription sur ce forum et se trouve ici--> https://forum.excel-pratique.com/excel/explications-et-regles-a-respecter-t13.html

Tes fils qui attendent une réponse de ta part et d'être clôturé

• -> https://forum.excel-pratique.com/post102973.html#p102973
• -> https://forum.excel-pratique.com/post102914.html#p102914

Merci de ta participation à ce forum.

Amicalement