Autres Changement des données des axes

medlight · 4 Janvier 2024

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 · 4 Janvier 2024

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 · 4 Janvier 2024

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

medlight · 4 Janvier 2024

sylvanu à dit:
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

merci bcp sylvanu

sylvanu · 4 Janvier 2024

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.

Autres Changement des données des axes

medlight

XLDnaute Junior

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

medlight

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires