Signaler

Numéroter ZoneTexte [Résolu]

Posez votre question mic6259 124Messages postés mercredi 4 mars 2015Date d'inscription 18 octobre 2017 Dernière intervention - Dernière réponse le 12 août 2017 à 15:31 par mic6259
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
Utile
+0
plus moins
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
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !