Discussion :

[Astarelfe]

Bonjour à toutes et tous,

Je cherche à empêcher la suppression de différentes plages de cellules dans ma feuille.
J'ai utilisé le code suivant :

Private Sub Worksheet_Change(ByVal Target As Range)
'Empêcher la suppression de cellule

If Intersect(Target, Range("J4:R65536")) Is Nothing Then Exit Sub


On Error GoTo ExitPoint
Application.EnableEvents = False
If Not IsDate(Target(1)) Then

Application.Undo
MsgBox " Il est INTERDIT de supprimer le contenu de ces cellules " _
, vbCritical, "AHO)"

End If

ElseIf Intersect(Target, Range("A4:I4")) Is Nothing Then Exit Sub

On Error GoTo ExitPoint
Application.EnableEvents = False
If Not IsDate(Target(1)) Then

Application.Undo
MsgBox " Il est INTERDIT de supprimer le contenu de ces cellules " _
, vbCritical, "(AHO)"

Else

ExitPoint:
Application.EnableEvents = True

End Sub

J'imagine que cela vient de mon ElseIf - mais je ne vois pas.
Lorsque que j'essaie avec une seule plage, cela fonctionne :

Private Sub Worksheet_Change(ByVal Target As Range)
'Empêcher la suppression de cellule

If Intersect(Target, Range("J4:R65536")) Is Nothing Then Exit Sub

On Error GoTo ExitPoint
Application.EnableEvents = False
If Not IsDate(Target(1)) Then

Application.Undo
MsgBox " Il est INTERDIT de supprimer le contenu de ces cellules " _
, vbCritical, "AHO)"

End If


ExitPoint:
Application.EnableEvents = True

End Sub

Je vous remercie par avance pour le temps que vous me consacrerez

[deedolith]

Ne te casses pas la tête à faire cela via VBA, tu t'y casseras les dents, il y a forcément un truc que tu n'as pas prévu, et qui seras exploité tôt ou tard (j'en voit déjà au moins 2).

Protège tes cellules, protège ta feuille et protège ton classeur. C'est autrement plus fiable et ne requiert pas de VBA.

[Astarelfe]

Bonjour Deedolith,

C'est une solution simple à laquelle j'avais pensé mais ce n'est pas possible. J'ai des macros et des filtres de données avancés qui s’exécutent aussi avec cette feuille. Cette feuille contient un tableau et je ne veux pas que l'on puisse supprimer les formules dans les cellules mais si je protège ma feuille on ne peut plus ajouter de lignes au tableau.

Merci quand même de ta suggestion.

Belle soirée

[deedolith]

Heu,
Es-tu au courant que l'on peut définir de nombreux droits avec les protections ?

Quant au macros VBA, il est beaucoup plus facile de déverrouiller une feuille le temps que le code s'exécute pour la verrouiller ensuite, que tenter de verrouiller des cellules par code.

[Astarelfe]

Heu,
Es-tu au courant que l'on peut définir de nombreux droits avec les protections ?

Quant au macros VBA, il est beaucoup plus facile de déverrouiller une feuille le temps que le code s'exécute pour la verrouiller ensuite, que tenter de verrouiller des cellules par code.

Oui je suis au courant, si tu sais comment protéger une feuille sans empêcher la création de ligne de tableau (je dis bien tableau et non pas plage de cellule) je te serais reconnaissante de m'indiquer comment faire.

Pour ce qui est de la désactivation de la protection lors de l’exécution de mes macro : c'est ce que j'ai mis en place sur mes feuilles verrouillées.
Mon problème est justement que je ne peux verrouiller cette feuille mais que je tiens à protéger des plages de cellules qui ne sont pas adjacentes.
Cela dit les cellules les plus importantes sont protégées par mon code. Ce que je voudrais c'est l'étendre aux autres plages... Même si tu ne peux pas m'aider, je te remercie de ton attention.

[deedolith]

Même si tu ne peux pas m'aider, je te remercie de ton attention.

Ce n'est pas avec ce genre d'attitude que tu obtiendras de l'aide
Qu'on soit bien claire: Nous ne sommes pas à ton service et nous ne te sommes pas redevable, donc garde tes jugements injustifiés pour toi.

Autre points:
Elle ressemble à quoi ta feuille ?
C'est difficile de proposer une solution adaptée quand on a qu'une vague idée du besoin.
Peux-tu uploader un fichier anonymisé ?

Utilise la balise code pour poster tes sources (le bouton qui ressemble à #), ce sera autrement plus lisible (on a pas envie de lire du code mal présenté).

Ton code ne compile pas, avec une indentation correcte tu verras peut-être pourquoi:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("J4:R65536")) Is Nothing Then Exit Sub
    'Empêcher la suppression de cellule
 
    On Error GoTo ExitPoint
    Application.EnableEvents = False
    If Not IsDate(Target(1)) Then
        Application.Undo
        MsgBox " Il est INTERDIT de supprimer le contenu de ces cellules ", vbCritical, "AHO)"
    End If
    ElseIf Intersect(Target, Range("A4:I4")) Is Nothing Then Exit Sub
    On Error GoTo ExitPoint
    Application.EnableEvents = False
    If Not IsDate(Target(1)) Then
        Application.Undo
        MsgBox " Il est INTERDIT de supprimer le contenu de ces cellules ", vbCritical, "(AHO)"
    Else
ExitPoint:
        Application.EnableEvents = True
End Sub

Application.EnableEvents, pourquoi estimes-tu avoir besoin de cette instructions ? Produit d'abord du code qui fonctionne, et optimise seulement quand tu auras obtenu le comportement désiré.
Premature optimisation is the root of all evils in software development (Donald Knuth)

On Error GoTo ExitPoint: C'est redondant, tu n'en as besoin qu'au debut de ta procédure.

[Astarelfe]

Bonsoir Deedolith,

Ce n'est pas avec ce genre d'attitude que tu obtiendras de l'aide
Qu'on soit bien claire: Nous ne sommes pas à ton service et nous ne te sommes pas redevable, donc garde tes jugements injustifiés pour toi.

Je ne comprends pas bien ta remarque, je te remerciais du temps que tu as pris pour me répondre. Et je n'ai jamais pensé que qui que ce soit était à ma disposition.
Je rends, moi même, service à un collègue qui a besoin d'un fichier fonctionnel, mais je débute à peine en VBA et ce n'est pas simple de se former seule.

Je prends sur mon temps perso pour travailler sur ce fichier, je n'avais malheureusement plus de temps alors je n'ai pas insisté et laissé mon code qui fonctionnait avec 1 seule plage de cellule protégée, et j'ai mis un avertissement aux utilisateurs.

Je te remercie encore toi et tous ceux qui prennent du temps pour apporter leur aide et leurs lumières.

Belle soirée,

[Valtrase]

Salut,
@Astarelfe, si tu tiens vraiment à passer par ton code :

1. va jeter un petit coup d'œil sur l'aide de Microsoft concernant l'utilisation de If ElseIf Else. Tu vas vite comprendre ton erreur.

Si tu ne trouves pas reviens par ici.