Bonjour,

J'essaie d'effacter une ligne lorsque je clique dans une certaine cellule. Tout fonctionne lorsque j'utilise ceci:


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("AA52")) Is Nothing Then
Range("J52:W52").ClearContents
End If
End Sub

mais pas lorsque j'écris cela:

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("AA52")) Is Nothing Then
Range("J52:W52").ClearContents
End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("AA53")) Is Nothing Then
Range("J53:W53").ClearContents
End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("AA54")) Is Nothing Then
Range("J54:W54").ClearContents
End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("AA55")) Is Nothing Then
Range("J55:W55").ClearContents
End If
End Sub
Bref, j'essai d'effacer une ligne différente dépendamment de la cellule dans laquelle je clique.

Au plaisir