Discussion :

[canard338]

Bonjour,

J'utilise une fonction pour numéroter les lignes de mon code VBA afin de simplifier le suivi des erreurs.

Une fois numéroté, l'outil de compilation plante sur le 1° CASE dans les SELECT CASE. Pourquoi ?

cdt, NC

[joe.levrai]

Bonjour,

probablement parce qu'il y a une erreur sur cette ligne ou sur les conditions préalables au Select Case


ça ne t'avance pas je présume ce que je viens de dire ? C'est normal, tu ne nous montres même pas ton code, ni décrit l'erreur renvoyée

A toi de jouer

[Marc-L]

Bonjour !

l'outil de compilation plante sur le 1° CASE dans les SELECT CASE. Pourquoi ?

Cette ligne de code ne respecte pas le langage VBA !

_________________________________________________________________________________________________________
Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[canard338]

Bon je la refais plus simplement avec un petit exemple. La compilation ne plante pas pour :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub test()
    I = 2
    Select Case I
        Case 1
            Debug.Print "1"
        Case 2
            Debug.Print "2"
        Case Else
            Debug.Print "Autre"
    End Select
End Sub

Je numérote :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub test()
2    I = 2
3    Select Case I
4        Case 1
5            Debug.Print "1"
6        Case 2
7            Debug.Print "2"
8        Case Else
9            Debug.Print "Autre"
10    End Select
End Sub

La compilation plante avec le message : Instructions et étiquettes incorrectes entre Select Case et le premier Case
Je modifie la numérotation et la compilation ne plante plus :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub test()
2    I = 2
3    Select Case I
         Case 1
5            Debug.Print "1"
6        Case 2
7            Debug.Print "2"
8        Case Else
9            Debug.Print "Autre"
10    End Select
End Sub

Est-ce plus clair ?
Je trouve ça bizarre.

[Marc-L]

Le message d'erreur est pourtant clair et sans compter l'aide associée ‼

Ce n'est donc pas possible et tout à fait inutile car en cas d'erreur la ligne est déjà surlignée …

[joe.levrai]

Bonjour,

si tu as numéroté tes lignes, sans laisser de "trous" comme tu nous l'as montré ... et comme Marc-L t'as suggéré que ce n'était pas possible ....


Erl() te donnera le numéro de ligne

exemple tout simple :

Code :

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

1
2
3
4
5
6
7
8
9
Sub toto()
1 Dim t As Integer
2 On Error GoTo errhandler
3 t = 20000000
4 Exit Sub
 
errhandler:
MsgBox "Erreur suivante : " & Err.Description & vbCrLf & "A la ligne : " & Erl()
End Sub

Après, numéroter ses lignes ou pas ? Un choix perso
moi je ne l'ai jamais fais (peut-être à tort !)