Discussion :

[aalex85]

Bonjour à tous

Après de nombreuses tentatives, je sèche...
Impossible de trouver une solution à mon problème ci-dessous.

Lorsqu'elles ont été saisies, autoriser uniquement de modifier les valeurs des cellules sur une plage "C2:E10" mais en interdire la suppression.

Voir fichier joint.

Merci d'avance pour votre aide

[parmi]

Bonjour,

Rapidement, je penserais à cette option.
Tu déverrouilles ces cellules ("C2:E10") et tu protèges la feuille.
Puis tu mets ce code pour gérer les valeurs.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Dim Valeur As Variant
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target = "" Then Target = Valeur
    Application.EnableEvents = True
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Valeur = Target.Value
End Sub

[aalex85]

Bonjour Parmi.

Ta solution est vraiment astucieuse
Par contre elle ne règle pas complétement mon problème car en dehors de la plage ("C2:E10") je dois pouvoir continuer
à pouvoir supprimer les autres valeurs des cellules qui se trouvent en dehors de la plage ("C2:E10")

aalex85

[parmi]

Tu peux alors forcer la vérification avec Intersect

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Valeur As Variant
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C2:E10")) Is Nothing Then
        Application.EnableEvents = False
        If Target = "" Then Target = Valeur
        Application.EnableEvents = True
    End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Valeur = Target.Value
End Sub

[aalex85]

Je viens de tester le code
C'est exactement ce que je voulais
Merci encore
aalex85