Discussion :

[horemheb]

Bonjour,
Je développe une petite application de résolution automatique de sudoku.
Pour cela, à chaque entrée de valeur dans une case de la grille, le programme annule automatiquement toutes les valeurs qui ne sont plus envisageables dans les autres cases, à partir de l'évènement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Worksheet_Change(ByVal Selection As Range)

Après un certain temps de mise au point il fonctionne.
Une fois la grille résolue je souhaite la remettre à zéro par un bouton (intitulé RAZ) associé à une macro. C'est là que je rencontre mon problème. En effet je fais quelques tests sur la sélection tels que :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
'Test du nombre de cellules sélectionnées
If Selection.Count > 1 Then
       MsgBox "Erreur de sélection"
       Exit Sub
       End If

Ce message d'erreur est systématiquement affiché quand je sélectionne le bouton. C'est ce que je voudrais éviter.

L'évènement est placé dans la feuille, la macro associée au bouton dans un module

Comment, dans le contenu du programme de cet évènement, au départ, distinguer la sélection d'une cellule de la sélection du bouton RAZ ?

Y a-t-il une instruction du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'Test du bouton RAZ
If Selection.Bouton Then Exit Sub

qui permettrait de détecter la sélection du bouton et de sortir de l'évènement ?

Merci

[Philippe Tulliez]

Bonjour,
Un bouton placé sur une feuille, est soit un bouton Formulaire, soit un bouton ActiveX.
Un bouton formulaire lance une procédure lorsque l'on clique dessus (à condition bien entendu qu'on le lui ait associé)
Quant au bouton ActiveX, il a ses propres événements comme par exemple Private Sub CommandButton1_Click(). Il suffit donc de lancer l'effacement par la méthode ClearContents de l'objet Range dans cette procédure événementielle

[horemheb]

Le bouton est un bouton Formulaire qui active l'évènement Worksheet_Change qui, lui-même, envoie un msgbox "Erreur de sélection" lors du test Selection.Count. C'est ce que je veux éviter.

[Philippe Tulliez]

Bonjour,
Pourquoi utiliser un bouton pour activer une procédure événementielle ?

Exemple
Suivant l'illustration ci-dessous, il y a dans la feuille

• Une plage de cellules (plage B3:E7)) nommée maGrille (Attention de portée : Feuille)
• Un bouton ActiveX nommé cmdDeleteValue qui sert à effacer les valeurs de la plage maGrille
• Dans le module de cette feuille deux procédures événementielle dans la feuille où se trouve une grille (plage B3:E7) et nommée maGrille (Attention de portée : Feuille)

Lorsque l'on sélectionne l'une des cellules de la plage maGrille, la valeur de celle-ci prend comme Valeur un X si elle est vide et s'efface si c'est l'inverse

Les procédures

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
Option Explicit
 
Const rngName As String = "maGrille"
 
Private Sub cmdDeleteValue_Click()
  Range(rngName).ClearContents
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Range(rngName), Target) Is Nothing Then
     With Target
      If .Count = 1 Then
      .Value = IIf(.Value = "X", "", "X")
      End If
     End With
  End If
End Sub

Illustration

[horemheb]

Effectivement, je pourrais utiliser un bouton ActiveX, j'ai utilisé un bouton de formulaire par habitude.

Si j'ai bien compris la méthode utilisée, il s'agit de comparer la plage de cellules générée par l'action sur le bouton et celle de la grille pour obtenir l'effet recherché.

Est-ce bien cela ?

[Philippe Tulliez]

Bonjour,

Effectivement, je pourrais utiliser un bouton ActiveX, j'ai utilisé un bouton de formulaire par habitude.

J'aurais pu également utiliser un bouton formulaire qui aurait pointé sur une procédure placée alors dans un module Standard avec comme seule action d'effacer la grille.

Cependant pour aller plus vite et utiliser l'objet Range pour la plage nommée, j'ai utilisé un nom de portée feuille et ainsi l'instruction Range("maGrille") pouvait être utilisée au sein du module de la feuille où la grille et le bouton ActiveX se trouvaient.

Si j'ai bien compris la méthode utilisée, il s'agit de comparer la plage de cellules générée par l'action sur le bouton et celle de la grille pour obtenir l'effet recherché.

Non. Il y a deux procédures événementielles.

• cmdDeleteValue_Click intercepte le clic sur le bouton nommé cmdDeleteValue et efface les valeur de la plage nommée maGrille à l'aide de l'instruction Range(rngName).ClearContents
• Worksheet_SelectionChange intercepte la sélection d'une cellule, vérifie que c'est bien dans les cellules de la plage nommée maGrille que la sélection a eu lieu (If Not Intersect(Range(rngName), Target) Is Nothing) Then et que la sélection est faite sur une seule cellule (If .Count = 1 Then) et met un X ou l'efface (.Value = IIf(.Value = "X", "", "X"))

Je vous conseille la lecture de ces deux tutoriels

• Les évènements dans la feuille de calcul Excel
• Les évènements du module objet ThisWorkbook, dans Excel