Autres Changement des données des axes

[medlight]

Bonjour à tous, quelqu'un peut m'aider pour me donner un code vba qui permet de changer les données des axes (x,y) d'un graphique à partir des cellule sans ôter la protection de la feuille.
j'ai utilisé un code qui fonctionne bien mais le problème quand je protège la feuille il ne fonctionne pas et merci.

 

[sylvanu]

Bonjour Medlight,
Le plus simple me semble t-il est de déprotéger la feuille, bosser, puis à la fin la reprotéger, avec :

If Not Application.Intersect(Target, Range("M28:M29,N28:N29")) Is Nothing Then
    ActiveSheet.Unprotect
    ' Votre macro'
    ActiveSheet.Protect
End If

 

[medlight]

Bonjour Medlight,
Le plus simple me semble t-il est de déprotéger la feuille, bosser, puis à la fin la reprotéger, avec :

If Not Application.Intersect(Target, Range("M28:M29,N28:N29")) Is Nothing Then
    ActiveSheet.Unprotect
    ' Votre macro'
    ActiveSheet.Protect
End If

merci bcp sylvanu

 

[sylvanu]

Re,
La même si vous voulez y associer un mot de passe :

If Not Application.Intersect(Target, Range("M28:M29,N28:N29")) Is Nothing Then
    ActiveSheet.Unprotect "medlight"
    ' votre code'
    ActiveSheet.Protect "medlight"
End If

NB : je pense qu'en M27 N27 X et Y sont inversés.