Discussion :

[iIncoming]

Bonjour,

Le morceau de code ci-dessous lance une boîte de dialogue lorsque je passe la souris sur la case E12 et/ou E13. Sauf que j’aimerais que cette boîte de dialogue ne s’affiche pas (que le code soit ignoré) lorsque je clique sur un bouton (Bouton 3) qui lui même déclenche une autre macro (qui s’appelle Sub DEMANDE()).

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [E12,E13]) Is Nothing Then
Calendrier.Show
End If
End Sub

Merci pour votre aide !

[Jean-Philippe André]

Salut,

pour stopper volontairement un code on passe par

Code :

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

Stop

si on ne souhaite pas lancer un code dans certaines conditions, on passe par un test sur une variable booléenne qui doit avoir une portée Public voire Global selon les cas

[iIncoming]

Uhuh compliqué ça !

[joe.levrai]

Bonjour,

ce n'est pas vraiment compliqué

1) la variable

dans un module standard

Code :

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

Public NePasFaire As Boolean

2) neutraliser

au tout début de ta procédure reliée au clic bouton

Code :

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

NePasFaire = True

dans ta procédure évènementielle

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [E12,E13]) Is Nothing And Not NePasFaire Then
Calendrier.Show
End If
End Sub

3) Restaurer

là c'est à toi de voir à quel moment tu souhaites annuler la neutralisation de la procédure... il suffit de remettre NePasFaire à False

[iIncoming]

OUAH merci ça marche du tonnerre ! Merci !

[Pierre Fauconnier]

Salut.

On peut aussi désactiver les évènements puis les restaurer après, avec une gestion d'erreur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
  On Error GoTo EndHandler
 
  Application.EnableEvents = False
  ...
  ...
  ...
 
EndHandler:
  Application.EnableEvents = True
End Sub