Numéroter ZoneTexte
Résolu/Fermé
mic6259
Messages postés
342
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
11 décembre 2023
-
12 août 2017 à 14:06
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 - 12 août 2017 à 15:31
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 - 12 août 2017 à 15:31
1 réponse
mic6259
Messages postés
342
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
11 décembre 2023
1
12 août 2017 à 15:31
12 août 2017 à 15:31
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
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
