VBA Modifier Propriété Shape - Macros et VBA Excel (2025)

• Forum
• Logiciels
• Microsoft Office
• Excel
• Macros et VBA Excel
• VBA Modifier Propriété Shape

+ Répondre à la discussion

Discussion :

Sujet :

Macros et VBA Excel

1. 23/06/2017,10h34#1

   frto0

   

   Membre averti

   Inscrit en

   Avril 2010

   Messages

   43

   

   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.

   

   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

   Répondre avec citation 0 0

2. 23/06/2017,10h49#2

   jerome.vaussenat

   

   Membre Expert

   

   Formateur Bureautique

   Inscrit en

   Janvier 2011

   Messages

   1629

   

   

   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.

   Répondre avec citation 0 0

3. 23/06/2017,10h49#3

   Jean-Philippe André

   

   Rédacteur/Modérateur

   

   
   

   

   Architecte Power Platform, ex-Développeur VBA/C#/VB.Net

   Inscrit en

   Juillet 2007

   Messages

   14681

   

   

   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 'msoTrueSelection.Locked = msoFalseSelection.LockedText = msoTrue

   Cycle de vie d'un bon programme :
   1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

   Pas de question technique par MP, je ne réponds pas

   Mes ouvrages :
   Migrer les applications VBA Access et VBA Excel vers la Power Platform
   Apprendre à programmer avec Access 2016, Access 2019 et 2021

   Apprendre à programmer avec VBA Excel
   Prise en main de Dynamics 365 Business Central

   Coffrets disponibles de mes ouvrages : https://www.editions-eni.fr/jean-philippe-andre
   Pensez à consulter la FAQ Excel et la FAQ Access

   Derniers tutos
   Excel et les paramètres régionaux
   Les fichiers Excel binaires : xlsb,

   Autres tutos

   Répondre avec citation 0 0

4. 23/06/2017,13h42#4

   frto0

   

   Membre averti

   Inscrit en

   Avril 2010

   Messages

   43

   

   

   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?

   Répondre avec citation 0 0

5. 23/06/2017,14h01#5

   Jean-Philippe André

   

   Rédacteur/Modérateur

   

   
   

   

   Architecte Power Platform, ex-Développeur VBA/C#/VB.Net

   Inscrit en

   Juillet 2007

   Messages

   14681

   

   

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

   Quel est ton code exact stp ?

   Cycle de vie d'un bon programme :
   1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

   Pas de question technique par MP, je ne réponds pas

   Mes ouvrages :
   Migrer les applications VBA Access et VBA Excel vers la Power Platform
   Apprendre à programmer avec Access 2016, Access 2019 et 2021

   Apprendre à programmer avec VBA Excel
   Prise en main de Dynamics 365 Business Central

   Coffrets disponibles de mes ouvrages : https://www.editions-eni.fr/jean-philippe-andre
   Pensez à consulter la FAQ Excel et la FAQ Access

   Derniers tutos
   Excel et les paramètres régionaux
   Les fichiers Excel binaires : xlsb,

   Autres tutos

   Répondre avec citation 0 0

6. 25/06/2017,21h23#6

   frto0

   

   Membre averti

   Inscrit en

   Avril 2010

   Messages

   43

   

   

   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

   Répondre avec citation 0 0

+ Répondre à la discussion

• Forum
• Logiciels
• Microsoft Office
• Excel
• Macros et VBA Excel
• VBA Modifier Propriété Shape

«Discussion précédente|Discussion suivante»

• Nous contacter
• Developpez.com
• Haut de page