VBA Modifier Propriété Shape

Bonjour,

Dans une fenêtre vérrouillée, je crée des shapes que l'utilisateur peut être amené à bouger.
Vu que la feuille est vérouillée, il faut que les propritées "Vérrouillé" et "Text Vérouillé" soit désactivées pour pouvoir faire ce que je veux.

Pièce jointe 288220

Dans le code j'arrive bien a travaillé sur mon élément, par contre je ne vois pas comment accéder aux propriétés "Vérrouillé" et "Text Vérouillé"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

f.Shapes(NomShape).Fill.ForeColor.RGB = RGB(221, 217, 195) f.Shapes(NomShape).TextFrame.Characters.Text = TextVrai f.Shapes(NomShape).TextFrame.Characters(Start:=1, Length:=LongText).Font.Bold = False f.Shapes(NomShape).TextFrame.Characters(Start:=1, Length:=LongText).Font.Color = RGB(0, 0, 0) f.Shapes(NomShape).TextFrame.Characters(Start:=1, Length:=LongText).Font.Size = 12   'Dimmensionnement en point f.Shapes(NomShape).Height = 14 f.Shapes(NomShape).Width = 50   'On repositionne à la place par défaut car pas de bouton à gérer f.Shapes(NomShape).Top = ValTop f.Shapes(NomShape).Left = ValLeft

---

Merci

Salut,

Pour ce qui est de la protection (code obtenu avec l'enregistreur de macro.

Code:

---

ActiveSheet.Shapes("Rectangle 3").Locked = msoFalse

---

on remplace le msoFalse par msoTrue pour activer la protection.

En espérant que cela t'aidera.

SAlut,

en utilisant l'enregistreur de macro et en extrapolant je trouve ceci :

Code:

---

1 2 3

Selection.PrintObject = msoFalse 'msoTrue Selection.Locked = msoFalse Selection.LockedText = msoTrue

---

Merci pour vos réponses :
Pour Selection.Locked = msoFalse, c'est OK par contre les 2 autres ça ne change rien.

J'ai bien essayé de faire les manips avec l'enregistreur de Macro comme vous avez fait, mais rien de ce que je modifie en objet est enregistré.
Est que vous savez si c'est une option qq part?

Bizarre, j'ai bien les cases qui se cochent et decochent...

Quel est ton code exact stp ?

Je suis d'accord c'est bizarre.
Je suis en Excel 2007, j'ai bien vu d'autre personne confronté au pb et apparemment en 2007 l'enregistreur de Macro ne fonctionne pas sur les Shapes.

Mon code :

Code:

---

1 2 3 4 5

Set TmpShape = f.Shapes.AddTextbox(msoTextOrientationHorizontal, ValLeft, ValTop, 100, 40) TmpShape.Name = NomShape TmpShape.PrintObject = msoFalse 'msoTrue TmpShape.Locked = msoFalse TmpShape.LockedText = msoFalse

---

Dans l'explorateur d'objet sous VBA, on ne retrouve pas la propriété LockedText alors qu'on a bien la Locked.
Pièce jointe 288963

MERCI