Bonjour à tous ...

Je travaille avec VB6 en anglais sur XP Pro en français.

Mon problème est le suivant : j'ai une procédure (3000 lignes ) que je dois essayer de comprendre afin de corriger un problème.

Lorsque je veux exécuter cette procédure, j'ai un soucis avec des tests IF ... en effet, il me manque un END IF à une place et sur 3000 lignes, je ne vous explique pas comme c'est ****** pour rechercher ...

Ma question est la suivante :

Est-ce que le code ci-dessous :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
If tyCourbeDes.nsgValErrMin < tyCourbeDesInv.nsgValErrMin Then _
                nSingle2 = tyCourbeDes.nsgValErrMin _
                Else nSingle2 = tyCourbeDesInv.nsgValErrMin
Peut être écrit comme suit ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
If tyCourbeDes.nsgValErrMin < tyCourbeDesInv.nsgValErrMin Then
        nSingle2 = tyCourbeDes.nsgValErrMin
Else
        nSingle2 = tyCourbeDesInv.nsgValErrMin
End If
Plusieurs tests if sont construit de ce style et cela me pose un peu problème ... Merci d'avance pour votre aide ...

Salutations à tous