Discussion :

[fring]

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
21
22
23
24
25
26
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
 
On Error GoTo fin
If Not Application.Intersect(Target, Range("E13:G13,E14:G14")) Is Nothing Then
    If Target.Value <> 0 Then
        For Each c In Range("E13:G13,E14:G14")
            If c.Address <> Target.Address And c.Row = Target.Row Then
                c.Value = 0
            End If
        Next c
    End If
End If
 
If Not Application.Intersect(Target, Range("O13,Q13,O14,Q14")) Is Nothing Then
    If Target.Value <> 0 Then
        For Each c In Range("O13,Q13,O14,Q14")
            If c.Address <> Target.Address And c.Row = Target.Row Then
                c.Value = 0
            End If
        Next c
    End If
End If
 
fin:
End Sub

[fring]

Autre solution, pour appliquer ce code sur les lignes 10 à 100 par exemple :

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
21
22
23
24
25
26
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
 
On Error GoTo fin
If Not Application.Intersect(Target, Range("E10:G100")) Is Nothing Then
    If Target.Value <> 0 Then
        For Each c In Range("E" & Target.Row & ":G" & Target.Row)
            If c.Address <> Target.Address Then
                c.Value = 0
            End If
        Next c
    End If
End If
 
If Not Application.Intersect(Target, Range("O10:O100,Q10:Q100")) Is Nothing Then
    If Target.Value <> 0 Then
        For Each c In Range("O" & Target.Row & ",Q" & Target.Row)
            If c.Address <> Target.Address Then
                c.Value = 0
            End If
        Next c
    End If
End If
 
fin:
End Sub

[EricQ]

merci !!!

bonne continuation

[fring]

Vu que nos messages se sont croisés, je ne sais pas si tu as vu la 2ème solution.

[EricQ]

sublime !!!
cela m'évite d'entrer les cellules de chaque ligne.
comme quoi, il y a toujours moyen de faire quelque chose d'élégant (et de pratique surtout).
encore merci !