Discussion :

[frto0]

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.



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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jerome.vaussenat]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

on remplace le msoFalse par msoTrue pour activer la protection.

En espérant que cela t'aidera.

[Jean-Philippe André]

SAlut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Selection.PrintObject = msoFalse 'msoTrue
Selection.Locked = msoFalse
Selection.LockedText = msoTrue

[frto0]

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?

[Jean-Philippe André]

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

Quel est ton code exact stp ?

[frto0]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.


MERCI