Autres Changement des données des axes

medlight

XLDnaute Junior
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.
 

Pièces jointes

  • test.xlsm
    18.5 KB · Affichages: 2
Solution
Bonjour Medlight,
Le plus simple me semble t-il est de déprotéger la feuille, bosser, puis à la fin la reprotéger, avec :
VB:
If Not Application.Intersect(Target, Range("M28:M29,N28:N29")) Is Nothing Then
    ActiveSheet.Unprotect
    ' Votre macro'
    ActiveSheet.Protect
End If

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Medlight,
Le plus simple me semble t-il est de déprotéger la feuille, bosser, puis à la fin la reprotéger, avec :
VB:
If Not Application.Intersect(Target, Range("M28:M29,N28:N29")) Is Nothing Then
    ActiveSheet.Unprotect
    ' Votre macro'
    ActiveSheet.Protect
End If
 

Pièces jointes

  • test.xlsm
    17.9 KB · Affichages: 2

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
La même si vous voulez y associer un mot de passe :
VB:
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.
 

Pièces jointes

  • test (V2).xlsm
    18 KB · Affichages: 2

Discussions similaires

Réponses
1
Affichages
222
Réponses
0
Affichages
196

Statistiques des forums

Discussions
312 803
Messages
2 092 250
Membres
105 316
dernier inscrit
cyrille225