Discussion :

[FaridM]

Bonjour à tous,

Est-il possible d'empêcher l'édition d'une cellule en fontion de la valeur d'une autre ?


Merci par avance.

[Theze]

Bonjour,

Une piste avec "Worksheet_Change". A mettre dans le module de la feuille concernée. Le contrôle se fait sur la cellule A1, si A2 = 1000 alors, A1 doit garder sa valeur (ici 500) sinon, la modif est autorisée :

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)
 
    'si c'est A1
    If Not Intersect(Target, [A1]) Is Nothing Then
 
        'si A2 = 1000 alors, la valeur de A1 doit rester inchangée et est égale à 500
        If [A2] = 1000 Then
 
            Application.EnableEvents = False
 
            [A1] = 500
 
            Application.EnableEvents = True
 
        End If
 
    End If
 
End Sub

Hervé.

[FaridM]

Merci Theze ça marche nickel.