Numéroter ZoneTexte [Résolu]

mic6259 126 Messages postés mercredi 4 mars 2015Date d'inscription 21 octobre 2017 Dernière intervention - 12 août 2017 à 14:06 - Dernière réponse : mic6259 126 Messages postés mercredi 4 mars 2015Date d'inscription 21 octobre 2017 Dernière intervention
- 12 août 2017 à 15:31
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
http://www.cjoint.com/doc/17_08/GHml42N48zf_Classeur.xlsx
Afficher la suite 

1 réponse

Répondre au sujet
mic6259 126 Messages postés mercredi 4 mars 2015Date d'inscription 21 octobre 2017 Dernière intervention - 12 août 2017 à 15:31
0
Utile
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
Commenter la réponse de mic6259