Verrouiller un groupe de zones de texte

Bonjour,

Je travaille actuellement sur une macro qui crée automatiquement des zones de textes et les remplit de différentes données.

Par exemple, 3 zones de texte : A, B et C

Je les regroupe. et nomme le groupe "Zone 1"

Sauf que, par la suite, quand je souhaite la manipuler A LA MAIN, il faut que je fasse attention de bien sélectionner le groupe et non pas juste l'une des zones de texte.

Sinon, cela donne cela

Y a t il un moyen de verrouiller le groupe pour que :

_____Je puisse continuer à écrire dedans

_____Je puisse continuer à le déplacer (le groupe entier)

_____Je ne puisse plus bouger les différents éléments les uns par rapport aux autres

PS:

il ne me restera qu'a trouver comment faire par macro

Par avance, merci pour votre réponse.

Bonjour,

Ce qui est intéressant ce n'est pas le nom du groupe mais le nom de chaque objet !

Remplacer avec le nom de tes zones de texte...

Sub Macro1()
    ActiveSheet.DrawingObjects("TextBox 1").Characters.Text = "AAA"
    ActiveSheet.DrawingObjects("TextBox 2").Characters.Text = "BBB"
    ActiveSheet.DrawingObjects("TextBox 3").Characters.Text = "CCC"
End Sub

A+

galopin01 a écrit :

Bonjour,

Ce qui est intéressant ce n'est pas le nom du groupe mais le nom de chaque objet !

Remplacer avec le nom de tes zones de texte...

Sub Macro1()
    ActiveSheet.DrawingObjects("TextBox 1").Characters.Text = "AAA"
    ActiveSheet.DrawingObjects("TextBox 2").Characters.Text = "BBB"
    ActiveSheet.DrawingObjects("TextBox 3").Characters.Text = "CCC"
End Sub

A+

Merci Galopin, mais je n'ai pas l'impression que ton code réponde à mon besoin.

Tu modifies le texte a l'interieur, mais le groupe n'est toujours pas vérouillé.

Je peux toujours "désolidariser" les 3 zones de texte.

A moins que j'ai mal utilisé ta macro.

Il n'y a pas d'option verrouiller le groupe : Pour protéger le groupe il faut protéger la feuille.

Sub Macro1()
ActiveSheet.Protect UserinterfaceOnly:=True
    ActiveSheet.DrawingObjects("TextBox 1").Characters.Text = "XXX"
    ActiveSheet.DrawingObjects("TextBox 2").Characters.Text = "YYY"
    ActiveSheet.DrawingObjects("TextBox 3").Characters.Text = "ZZZ"
End Sub

...Mais dans ce cas tu ne peux pas déplacer le groupe (sauf par macro)

Par exemple tu peux décider dans la même macro que ton groupe va se positionner à la hauteur de la cellule active...

A+

galopin01 a écrit :

Il n'y a pas d'option verrouiller le groupe : Pour protéger le groupe il faut protéger la feuille.

Sub Macro1()
ActiveSheet.Protect UserinterfaceOnly:=True
    ActiveSheet.DrawingObjects("TextBox 1").Characters.Text = "XXX"
    ActiveSheet.DrawingObjects("TextBox 2").Characters.Text = "YYY"
    ActiveSheet.DrawingObjects("TextBox 3").Characters.Text = "ZZZ"
End Sub

A+

Et si on protège la feuille, on ne peut plus déplacer les groupes ni écrire dedans.

merci pour l'info

Tu peux écrire dedans et même décider dans la même macro de déplacer le groupe...

Sub Macro1()

ActiveSheet.Protect UserinterfaceOnly:=True

ActiveSheet.DrawingObjects("TextBox 1").Characters.Text = "XXX"

ActiveSheet.DrawingObjects("TextBox 2").Characters.Text = "YYY"

ActiveSheet.DrawingObjects("TextBox 3").Characters.Text = "ZZZ"

ActiveSheet.DrawingObjects("Groupe 4").Top = [A4].Top

ActiveSheet.DrawingObjects("Groupe 4").Left = 500

End Sub