Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA, Problème d'écriture dans un shape

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Goufra
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

Goufra

XLDnaute Occasionnel
Dans l'onglet "descriptif1", ( protégé)
Je déprotège
Je créée un rectangle
J'utilise le code
Sheets(1).Shapes("Monshape").Select
Selection.Locked = msoFalse

Je reprotège la feuille​

1/ Le rectangle peut bouger
2/mais impossible d'écrire dans le rectangle.

3/ je peux vérifier par clique droit dans propriétés format de la forme/propriété
Les cases suivantes sont bien décochées:
vérouillé et texte vérouillé

Toutefois ,En ôtant la protection dans propriétés
je constate que la case texte vérouillé est cochée !

4/Je décoche / protège je peux écrire

Pièce jointe
Avec mes remerciements anticipés
Bien cordialement
Soirée
Pouvez-vous m'indiquer un code pour ne plus subir cet inconvénient.
 

Pièces jointes

Trier par date Trier par votes
Re : VBA, Problème d'écriture dans un shape

Bonsoir,
Code: 
Sub test()
Dim osh As Object
Set osh = Sheets(1).Shapes.AddShape(msoShapeRectangle, 150, 100, 200, 30)
With osh
    .Name = "MonShape"
    With .TextFrame.Characters
        .Text = "abcd"
        .Font.Name = "calibri"
        .Font.Size = 16
        .Font.Bold = True
        .Font.Color = vbRed
    End With
    .Fill.ForeColor.RGB = vbWhite
    .OLEFormat.Object.LockedText = False
    .Locked = True
End With
For Each sh In Sheets
    sh.Protect
Next
End Sub

A+
kjin
 
Vote positif 0 Vote négatif
Re : VBA, Problème d'écriture dans un shape

Bonjour Kjin,

Ton code fonctionne !!!!
Avec toutes mes excuses si tu as lu le message précédent non modifié.

Un grand merci pour ton code, très abouti très élégant.
J'ai encore des marches de progrès.

Bonne journée
Goufra
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…