Forcer exécution de Worksheet_Change même si rien n'a été modifié

**PhilippeHenry** · 04/06/2018, 00h33

Bonjour à tou(te)s,

Je cherche sans succès une solution au problème suivant :

Dans l'event Worksheet_Change, je vérifie la validité de la donnée introduite. Si la valeur est incorrecte, j'affiche une MsgBox avec un message d'erreur et quand l'utilisateur a cliqué sur OK, je resélectionne la cellule qui vient d'être vérifiée pour que l'utilisateur puisse corriger.
Mon problème, c'est que si l'utilisateur ne change rien du tout et fait simplement Enter, le curseur passe à la cellule suivante en laissant la valeur incorrecte.
Je voudrais pouvoir forcer l'utilisateur à modifier la valeur incorrecte.

Comment puis-je faire cela ? Peut-on forcer l'exécution de Worksheet_Change ?

Merci d'avance pour votre aide et bonne journée.

Philippe

Invité · 04/06/2018, 05h01

Envoyé par PhilippeHenry

Bonjour,

Il suffirait peut-être d'utiliser une boucle "Tant que" ou une cellule pour contrôler la valeur saisie. Si la valeur entrée est mauvaise en fonction du résultat du contrôle, Worksheet_Change reste sur la cellule erronée et fait apparaître de nouveau le Msgbox. Une MFC permettrait de mettre en évidence également la mauvaise saisie.

**PhilippeHenry** · 04/06/2018, 11h49

Envoyé par Eric KERGRESSE

Bonjour,

Il suffirait peut-être d'utiliser une boucle "Tant que" ou une cellule pour contrôler la valeur saisie. Si la valeur entrée est mauvaise en fonction du résultat du contrôle, Worksheet_Change reste sur la cellule erronée et fait apparaître de nouveau le Msgbox. Une MFC permettrait de mettre en évidence également la mauvaise saisie.

Merci. Si je reste dans Worksheet_Change, je n'aurai pas la possibilité de corriger le contenu de la cellule, je pense ...

Invité · 04/06/2018, 07h06

Bonjour,
Il faut déclarer une variable publique pour contenir l'adresse de la celle en erreur.

Puis dans évènement sélection change vérifier si <> de "".

**unparia** · 04/06/2018, 07h52

Bonjour
Excel est construit de telle manière que l'évènement Change est déclenché même si l'on saisit (dynamiquement ou manuellement) une valeur rigoureusement identique à celle qui était là.

On en profite donc ainsi :

On lui dit que la cellule que l'on sélectionne "prend" la valeur ... qu'elle avait déjà (et cela déclenche alors l'évènement Change) -->>

Exemple :

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 2 And Target.Value <> "toto" Then MsgBox "corriger"
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 2 then Target.Value = Target.Value
End Sub

le message "corriger" sera affiché chaque fois que, se rendant dans une cellule de la colonne B, le contenu de celle-ci ne sera pas "toto"

**eriiic** · 04/06/2018, 08h56

Bonjour,

pas faisable par une simple validation de données ?
eric

**PhilippeHenry** · 04/06/2018, 11h58

Envoyé par eriiic

Bonjour,

pas faisable par une simple validation de données ?
eric

Non, la validation se fait via une fonction que j'ai écrite.
Merci.

**PhilippeHenry** · 04/06/2018, 11h55

Envoyé par unparia

Bonjour
Excel est construit de telle manière que l'évènement Change est déclenché même si l'on saisit (dynamiquement ou manuellement) une valeur rigoureusement identique à celle qui était là.

On en profite donc ainsi :

On lui dit que la cellule que l'on sélectionne "prend" la valeur ... qu'elle avait déjà (et cela déclenche alors l'évènement Change) -->>

Exemple :

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 2 And Target.Value <> "toto" Then MsgBox "corriger"
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 2 then Target.Value = Target.Value
End Sub

le message "corriger" sera affiché chaque fois que, se rendant dans une cellule de la colonne B, le contenu de celle-ci ne sera pas "toto"

Ca me semble astucieux, je vais essayer. Merci !

**PhilippeHenry** · 04/06/2018, 11h51

Envoyé par dysorthographie

Bonjour,
Il faut déclarer une variable publique pour contenir l'adresse de la celle en erreur.

Puis dans évènement sélection change vérifier si <> de "".

Merci, je n'avais pas pensé à cet événement. Je vais essayer.

**Menhir** · 04/06/2018, 09h01

Envoyé par PhilippeHenry

Je voudrais pouvoir forcer l'utilisateur à modifier la valeur incorrecte.

Comment sait-on qu'une valeur est "incorrecte" ?
Est-ce que tu utilises ce terme au sens où l'entend Excel ou en tant qu'erreur dans un exercice ?

**pijaku** · 04/06/2018, 10h20

Bonjour,

Une variante :

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
27
28
29
30
31
32
33
34
35
36
37
Option Explicit
 
Dim Plage() As Range
Dim indice As Integer
Dim AncTarget As Range
 
Const Adresses As String = "B1;B3;B5;C8"
 
Private Sub Worksheet_Activate()
Dim i As Integer
   ReDim Plage(3) '4 cellules concernées
   For i = 0 To 3
      Set Plage(i) = Range(Split(Adresses, ";")(i))
   Next
   indice = 0
   Set AncTarget = Plage(indice)
   AncTarget.Select
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Cells.Count > 1 Then Exit Sub 'garde fou
   If Not AncTarget Is Nothing Then
      If AncTarget.Value = "toto" Then
         If indice < UBound(Plage) Then
            indice = indice + 1
         Else
            indice = 0
         End If
         Set AncTarget = Plage(indice)
      Else
         MsgBox "corriger"
      End If
      Application.EnableEvents = False
      AncTarget.Select
      Application.EnableEvents = True
   End If
End Sub

**PhilippeHenry** · 04/06/2018, 12h04

Envoyé par pijaku

Bonjour,

Une variante :

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
27
28
29
30
31
32
33
34
35
36
37
Option Explicit
 
Dim Plage() As Range
Dim indice As Integer
Dim AncTarget As Range
 
Const Adresses As String = "B1;B3;B5;C8"
 
Private Sub Worksheet_Activate()
Dim i As Integer
   ReDim Plage(3) '4 cellules concernées
   For i = 0 To 3
      Set Plage(i) = Range(Split(Adresses, ";")(i))
   Next
   indice = 0
   Set AncTarget = Plage(indice)
   AncTarget.Select
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Cells.Count > 1 Then Exit Sub 'garde fou
   If Not AncTarget Is Nothing Then
      If AncTarget.Value = "toto" Then
         If indice < UBound(Plage) Then
            indice = indice + 1
         Else
            indice = 0
         End If
         Set AncTarget = Plage(indice)
      Else
         MsgBox "corriger"
      End If
      Application.EnableEvents = False
      AncTarget.Select
      Application.EnableEvents = True
   End If
End Sub

Merci, je vais décortiquer cela, car je ne suis pas très expérimenté encore.