Discussion :

[Nikkos78]

Bonjour,

Le code suivant s'éxécute plusieurs fois d'affilée.
Seuls les entiers entre 1 et 100 sont autorisés en colonne J par restriction de validation de donnée.
Lorsque je saisis une valeur non autorisée dans la cellule, j'ai 2 solutions
- soit J'annule et alors l'évènement worksheet_change est quand même lancé => problème car je copie une ligne à tord
- soit je clic ré-essayer et mets une valeur entre 1 et 100 et alors la sub est lancée plusieurs fois, j'ai plusieurs fois mes msgbox et la ligne est copiée plusieurs fois


Comprenez vous pourquoi ?
Comment puis je faire pour que la sub ne soit effectuée qu'une fois et lorsque je rentre une valeur autorisée

Merci d'avance

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
38
39
40
41
42
Private Sub worksheet_change(ByVal target As Range)
 
Dim keycells As Range
Dim i As Integer
Dim CopyRange As Range
Dim PasteRange As Range
 
Dim lastrowjournal As Integer
 
 
Application.EnableEvents = False
MsgBox ("la feuille a bougé")
 
If target.Count > 1 Then
' MsgBox (" target.count " & target.Count)
  Application.EnableEvents = True
  Exit Sub
End If
 
 
Set keycells = Range("J3:J10")
If Not Application.Intersect(keycells, Range(target.Address)) Is Nothing Then
 
    MsgBox ("la colonne J  a bougé")
 
    For i = 3 To 10
        If Not Application.Intersect(Range("J" & i), Range(target.Address)) Is Nothing Then
            MsgBox ("la cellule J" & i & " a bougé")
            Set CopyRange = ThisWorkbook.ActiveSheet.Range("A" & i).Resize(1, 100)
            With ThisWorkbook.Sheets("journal")
                lastrowjournal = ThisWorkbook.Sheets("journal").Cells(Rows.Count, "A").End(xlUp).Row
                Set PasteRange = ThisWorkbook.Sheets("journal").Range(.Cells(lastrowjournal + 1, 1), .Cells(lastrowjournal + 1, 100))
            End With
            PasteRange.Value2 = CopyRange.Value2
        End If
    Next
End If
 
Application.EnableEvents = True
 
 
End Sub

[Invité]

Bonjour,

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)
 Static Sortir As Boolean
If Sortir Then Exit Sub
Sortir = True
'traitement
Sortir = False
End Sub

[Nikkos78]

Bonjour,

Je n'ai pas compris votre réponse.
Sur quel critère devrais-je sortir de la sub ?

merci

[Invité]

sur le critère qu'une cellule modifier dans worksheet_change rappel événements worksheet_change!

Static Sortir As Boolean

[Nikkos78]

Vous pensez que c'est une cellule modifiée dans worksheet_change qui rappelle la sub ?


ok je vais essayer mais je pensais qu' Application.EnableEvents = False empéchait le rappel de la sub pendant l'éxécution de ladite sub.
Au départ je n'avais pas mis Application.EnableEvents = False et le fait de modifier des cellules dans la feuille rappelait effectivement la sub. Mais depuis que je l'ai mis ca ne le fait plus.

C'est seulement lorsqu'il y a intéraction avec l'activation verrouillée en integer que ca le fait.

[Nikkos78]

Cela ne marche pas avec le test booleen
La sub est appelée plusieurs fois, mais pas par elle-même.

[Nikkos78]

Bonjour,

Quelqu'un peut il me dire pourquoi l'évènement est joué plusieurs fois et comment l'empécher ?


Nouveau test Code Simplifié :
J'ai simplifié le code pour tester si la sub est appelée plusieurs fois lorsque les cellules ont une contrainte de validation de donnée.
En effet, le message apparait plusieurs fois.

J'ai testé avec la proposition de dysorthographie ci-dessous, avec ou sans Application Enableevents ..., Rien n'y fait. Le Msgbox apparait plusieurs fois

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 worksheet_change(ByVal target As Range)
 
 
Static Sortir As Boolean
Application.EnableEvents = False
'test effectué avec ou sans enable
'test effectué avec ou sans la proposition d'utiliser Sortir en boolean
 
If Sortir Then Exit Sub
 
Sortir = True
MsgBox ("la feuille a bougé")
Sortir = False
 
Application.EnableEvents = False
 
 
End Sub

[Phil'oche]

Salut,

Te dire pourquoi, je ne sais pas car pas testé...

Par contre, voilà quelque chose qui peut t'aider :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
Dim keycells As Range
 
Set keycells = Range("J2:J11")
If Application.Intersect(keycells, Range(Target.Address)) Is Nothing Then Exit Sub
If Not Target.Validation.Value Then
    Application.EnableEvents = False
    Application.Undo
    Application.EnableEvents = True
End If

Ce qui est intéressant, c'est qu'en décochant tout dans les onglets "Message de saisie" et "alerte d'erreur" de la validation de données, tu peux malgré tout, par le code, récupérer Vrai ou Faux si la donnée saisie est valide ou non, puis faire jouer le reste...

[Nikkos78]

Oui, ça fonctionne effectivement.
En virant les messages qui précisaient que la valeur n'est pas autorisée, je n'ai plus les appels multiples de la proc.
Et pour compenser le traitement des valeurs non autorisées, je peux traiter moi même les actions/messages à mener selon la valeur vrai faux de Target.Validation.Value)

Merci pour cette réponse très pertinente !