imbriquation if et do

[tao.tix]

Bonsoir,

Je bloque sur un pb depuis quelques heures, je n'arrive pas à exécuter une boucle Do après le Then du If si la condition est vrai. J'ai un message d'erreur me disant qu'il n'y a pas de bloc If.

Voici mon instruction:

If SaisieLogiciels.ComputerList.ListIndex > -1 And SaisieLogiciels.ComputerList.ListCount > 0 Then _
Do
SaisieLogiciels.ComputerList.RemoveItem (SaisieLogiciels.ComputerList.ListCount - 1)
Loop While SaisieLogiciels.ComputerList.ListCount > 0
End If

Merci de votre aide

 

[G.David]

Salut
exscuse moi je ne suis pas trop caler en vb par contre l'instruction DO ne doit elle pas se conclure par EndDo
et l'instrcution While oar Wend ?
A+ G.David

 

[herve]

bonjour,

l'instruction pour if est :

If..... then ' début conditionnelle
else 'option contraire conditionnelle
end if

et pour la boucle :

Do While .....
.....
Loop


ce qui devrait donner a peu pres ceci...

If SaisieLogiciels.ComputerList.ListIndex > -1 And SaisieLogiciels.ComputerList.ListCount > 0 Then _
DoWhile SaisieLogiciels.ComputerList.ListCount > 0
SaisieLogiciels.ComputerList.RemoveItem (SaisieLogiciels.ComputerList.ListCount - 1)
Loop
End If

cependant cela reste a tester avec tes valeurs...

Bon courage
Herve

 

[Talere]

Dans ton cas, tu a mis un underscore à la fin de l'instrucation if ...then. celui ci n'est pas necessaire étant donné que tu as plusieurs ligne dans ton instruction if...endif.

L'underscore permet de faire continuer la ligne sur la ligne suivante. Ceci peut être utile pour avoir la totalité d'une ligne à l'écran.
Exemple:
if toto=0 then
toto=1
tata=3
end if

peut s'écrire :
if toto=0 then toto=1:tata=3 ' le endif n'est plus necessaire

ou alors
if toto=0 then_
toto=1:tata=3 ' la aussi le endif n'est plus necessaire