Discussion :

[Identifiant_Anonyme]

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

[Philippe Tulliez]

Bonjour,
Au lieu de nous afficher deux codes de procédures événementielles d'objets différents (La première étant de l'objet ThisWorkbook, l'autre de la feuille où se trouve la procédure), il serait plus constructif que tu nous dises ce que tu veux obtenir comme résultat.

[Identifiant_Anonyme]

Désolé, oui.

Voici mon besoin :

Interdire la sélection de plusieurs cellules
Je clique sur la colonne C (ou I), n'importe quelle ligne, un V s'affiche et les 2 cellules de droite sont effacées.
Je clique sur la colonne D (ou J), n'importe quelle ligne, un N s'affiche et les 2 cellules autour de celle-ci sont effacées.
Je clique sur la colonne E (ou k), n'importe quelle ligne, un V s'affiche et les 2 cellules de gauche sont effacées.

Pour moi, il s'agit d'un code à insérer dans thisworkbook (Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range))
mais dans le code qu'on m'a proposé (le même que le mien en amélioré, je suppose), on m'a suggéré de créer un module simple.

[Philippe Tulliez]

Bonjour,

Pour moi, il s'agit d'un code à insérer dans thisworkbook (Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range))

S'il s'agit de faire ce que tu souhaites sur plusieurs feuilles de ton classeur, il faut privilégier la procédure Workbook_SheetSelectionChange. Dans le cas contraire il faut choisir la procédure Sub Worksheet_SelectionChange
Dans les deux cas, le code est pratiquement identique.
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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 With Target
  If .Count > 1 Then Exit Sub
  If .Row = 1 Then Exit Sub ' Action sur lignes > 1
  Select Case .Column
   Case 3 ' Colonne C
   .Value = "V": .Offset(, 1) = "": .Offset(, 2) = ""
   Case 4 ' Colonne D
   .Value = "N": .Offset(, -1) = "": .Offset(, 1) = ""
   Case 5 ' Colonne E
   .Value = "V": .Offset(, -1) = "": .Offset(, -2) = ""
  End Select
 End With
End Sub

Exemple 2 : La procédure se déroule sur toutes les feuilles exceptée la feuille nommée [Feuil1]

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
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 If Sh.Name = "Feuil1" Then Exit Sub
 With Target
  If .Count > 1 Then Exit Sub
  If .Row = 1 Then Exit Sub ' Action sur lignes > 1
  Select Case .Column
   Case 3 ' Colonne C
   .Value = "V": .Offset(, 1) = "": .Offset(, 2) = ""
   Case 4 ' Colonne D
   .Value = "N": .Offset(, -1) = "": .Offset(, 1) = ""
   Case 5 ' Colonne E
   .Value = "V": .Offset(, -1) = "": .Offset(, -2) = ""
  End Select
 End With
End Sub

D'autres tests sont possibles évidemment

[Identifiant_Anonyme]

Bonjour,

Merci beaucoup pour cette réponse.
J'ai donc essayé de plusieurs façons, et effectivement, il faut bien que le code soit inséré dans thisworkbook, car dans un module standard il ne fonctionne pas.

C'est très gentil en tout cas de m'avoir dépanné.

Merci beaucoup.

II

[Philippe Tulliez]

Bonjour,
Mon explication n'était sans doute pas suffisamment claire.
La procédure événementielle Worksheet_SelectionChange se place dans un module Objet Feuille quant à la procédure événementielle Workbook_SheetSelectionChange elle se place dans le module classeur nommé ThisWorkbook.
Si l'on doit intercepter un événement se produisant sur plusieurs feuilles l'on choisira Workbook_SheetSelectionChange alors que si la procédure ne concerne qu'une seule feuille on privilégiera Worksheet_SelectionChange.
Une procédure événementielle ne se place jamais dans un module standard.
A lire
Les évènements du module objet ThisWorkbook, dans Excel
Les évènements dans la feuille de calcul Excel
Utiliser les évènements dans les graphiques Excel
Les évènements dans un UserForm