Numéroter ZoneTexte Résolu/Fermé

Question

Bonjour 
Serait-il possible de modifier mes ZoneTexte de 1 a 6 dans la pièce jointe,mettre dans K1 ZoneTexte 1- dans G1 ZoneTexte 2- dans C1 ZoneTexte 3- dans G11 ZoneTexte 4- dans K11 ZoneTexte 4- dans G11 ZoneTexte 5- et dans C11 ZoneTexte 6 automatiquement en VBA.
Je vous remercie beaucoup
https://www.cjoint.com/doc/17_08/GHml42N48zf_Classeur.xlsx

mic6259 · Answer

Re:
J'ai trouvé, pour qui çà intéresse, voici la macro
Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveSheet.Shapes.Range(Array("TextBox 3")).Select
    ActiveSheet.Shapes.Range(Array("TextBox 12")).Select
    Selection.ShapeRange.Name = "ZoneTexte 6"
    ActiveSheet.Shapes.Range(Array("TextBox 11")).Select
    Selection.ShapeRange.Name = "ZoneTexte 5"
    ActiveSheet.Shapes.Range(Array("TextBox 10")).Select
    Selection.ShapeRange.Name = "ZoneTexte 4"
    ActiveSheet.Shapes.Range(Array("TextBox 9")).Select
    Selection.ShapeRange.Name = "ZoneTexte 3"
    ActiveSheet.Shapes.Range(Array("TextBox 7")).Select
    Selection.ShapeRange.Name = "ZoneTexte 2"
    ActiveSheet.Shapes.Range(Array("TextBox 3")).Select
    Selection.ShapeRange.Name = "ZoneTexte 1"
    Application.CommandBars("Selection and Visibility").Visible = False
End Sub

Salutation au Forum

Numéroter ZoneTexte

1 réponse

Discussions similaires