Discussion :

[Gordon72]

Bonjour tout le monde,

Je vous contact car j'ai besoin d'un peu d'aide sur quelque chose de probablement très simple mais qui m'a fait suer au point de me faire abdiquer.

Alors j'avais réalisé un code VBA où nous avions un shape dynamique adaptant ses coordonnées et sa taille sur une image selon les valeurs d'une cellule. Jusque là facile me direz vous. Seulement là où ça se corse et je ne pensais pas bloquer pour quelque chose d'aussi basique, c'est quand j'éssaie de permettre de verrouiller la feuille en laissant le shape dynamique sans pouvoir le supprimer.

Pour le moment j'ai verrouillé la feuille en décochant la propriété "verrouillé" du shape. Mais si par malheur un utilisateur supprime le shape alors mes macros ne fonctionnent plus. Si je verrouille le shape alors on ne peut plus le bouger à moins d'unlocker la feuille...

Connaitriez-vous s'il vous plait un moyen de dire à Excel: "si la commande "supprimer le shape" arrive alors stop l'action" ?

J'imaginerais bien un

Code :

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

Worksheet_Change

avec un

Code :

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

if intersect(target, Shape) is nothing then

mais je ne sais pas si ça existe.

Merci d'avance pour toute aide éventuelle.

Bonne journée.

[joe.levrai]

Bonjour,

tu peux très bien verrouiller ta feuille et ton shape.

dans ta procédure qui redimensionne le shape, tu effectues un déverrouillage et re verrouillage de feuille

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub MaMacro()
 
Workbooks("TonClasseur").Worksheets("TaFeuille").unprotect "ton mot de passe"
 
' le traitement de ta procédure
 
Workbooks("TonClasseur").Worksheets("TaFeuille").protect "ton mot de passe"
 
End Sub

[Gordon72]

Bonjour Joe.levrai

Tout d'abord merci pour ta réponse et pour t'être penché sur mon problème.

En fait je ne peux pas verrouiller le shape car il doit être modifiable par l'utilisateur d'où le "verrouiller la feuille en laissant le shape dynamique sans pouvoir le supprimer." dans mon post précédent.

Pour être plus explicite, ma feuille est verrouillée avec un mot de passe afin que l'utilisateur ne puisse accéder au contenu cellules. Par contre l'utilisateur doit pouvoir bouger, changer les dimensions du shape à sa guise sur la feuille pour pouvoir ensuite enregistrer sa position avec un contrôle activeX. Du coup si je verrouille le shape il ne peut plus le bouger.

Après si besoin est, je peux créer un Excel pour donner un exemple concret de mon problème.

Cordialement,
Gordon.