Numéroter ZoneTexte
Résolu
mic6259
Messages postés
342
Date d'inscription
Statut
Membre
Dernière intervention
-
mic6259 Messages postés 342 Date d'inscription Statut Membre Dernière intervention -
mic6259 Messages postés 342 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Numéroter ZoneTexte
- Numéroter page word - Guide
- Comment numéroter les pages sur powerpoint - Guide
- Faut il numéroter le sommaire - Guide
- Numéroter des fichiers automatiquement - Guide
- Numéroter équation word ✓ - Forum Word
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
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
