Discussion :

[weetoz]

Bonjour à tous,

hier dans ce topic, Philippe Tulliez et Pierre Fauconnier ont expliqué dans les grandes lignes l'arrêt des écoutes, ceci a résolu chez moi une partie des problèmes que j'avais.
En gros mes trois combobox apparaissent selon si une cellule est selectionné, chaque combobox a sa propre cellule pour apparaitre.

Mais j'ai constaté d'autres problèmes qui font "planter" Excel. Donc je m'y prends mal avec Application.EnableEvents et la gestion d'erreur.
Voici un des évènements qui pose problème:

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 CB_NumAff_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim c As Range
    If KeyCode = 13 Then  'And Me.CB_NumAff.ListIndex >= 0
        Application.EnableEvents = False
        On Error GoTo reactivEvents
        Range("D20").Value = Me.CB_NumAff.Value
        fillClient_Intitule Me.CB_NumAff.Value
        Me.CB_NumAff.Visible = False
        SDHH_formatCell "D20"
reactivEvents:
        Application.EnableEvents = True
        Range("D25").Select
    End If
End Sub

Ma question est: est-ce que les instructions qui suivent le label "reactEvents:" sont exécutés si il n'y a pas d'erreur?

Merci d'avance pour vos indications.

[Philippe Tulliez]

Bonjour,

Ma question est: est-ce que les instructions qui suivent le label "reactEvents:" sont exécutés si il n'y a pas d'erreur?

La réponse est oui. La lecture d'un code est toujours séquentielle et comme il n'y a aucune structure décisionnelle (par exemple un If) pour l'empêcher d'y aller, il passe par là.
Sans avoir testé, je mettrais le End If avant l'étiquette reactivEvents: et pour ne pas passer par cette étiquette s'il n'y a pas d'erreur, je mettrais un If Err.Number <> 0 Then

Ne pas oublier de placer un On Error Goto 0

A lire éventuellement ce tutoriel La gestion des erreurs dans Excel

[weetoz]

Bonjour Philippe,

en effet, j'ai vu dans l'article de gestion des erreurs qu'il fallait mettre l'étiquette et ses instructions juste avant "End Sub" (ou End Function...).

La réponse est oui. La lecture d'un code est toujours séquentielle et comme il n'y a aucune structure décisionnelle (par exemple un If) pour l'empêcher d'y aller, il passe par là.

Merci, j'avais un sérieux doute.