Bonjour,

Après avoir navigué sur les forums, je ne trouve pas vraiment de réponse à mon petit problème.
J'aurais besoin de corriger le code suivant, qui génère l'erreur : La méthode Select de la classe Range a échoué.

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
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 
'Eviter selection multiple 
ActiveSheet.Cells(Target.Row, Target.Column).Select 
' Cocher resultats 
If ActiveCell.Column = 3 Or ActiveCell.Column = 9 Then 
ActiveCell.Value = "V" 
Selection.Offset(0, 1).Value = "" 
Selection.Offset(0, 2).Value = "" 
ElseIf ActiveCell.Column = 4 Or ActiveCell.Column = 10 Then 
ActiveCell.Value = "N" 
Selection.Offset(0, -1).Value = "" 
Selection.Offset(0, 1).Value = "" 
ElseIf ActiveCell.Column = 5 Or ActiveCell.Column = 11 Then 
ActiveCell.Value = "V" 
Selection.Offset(0, -1).Value = "" 
Selection.Offset(0, -2).Value = "" 
End If 
End Sub
Un bienfaiteur m'a suggéré de coller le code suivant dans un module simple, mais rien ne se passe lorsque je change de cellule.

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
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Col As Byte
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
With Target
     Col = .Column
     Select Case Col
          Case 3, 9
               .Value = "V"
               .Offset(0, 1) = ""
               .Offset(0, 2) = ""
          Case 4, 10
                  .Value = "N"
                    Target.Offset(0, -1) = ""
                    ActiveCell.Offset(0, -2) = ""
          Case 5, 11
                    .Value = "N"
                    .Offset(0, -1) = ""
                    .Offset(0, -2) = ""
          End Select
End With
Application.EnableEvents = True
End Sub
Si l'un de vous aurait une solution, ce serait avec grand plaisir.

Merci