Numéroter ZoneTexte
Résolu
mic6259
Messages postés
371
Statut
Membre
-
mic6259 Messages postés 371 Statut Membre -
mic6259 Messages postés 371 Statut Membre -
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
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
1 réponse
-
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
