imbriquation if et do

T

tao.tix

Guest
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
 
H

herve

Guest
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
 
T

Talere

Guest
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
 

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 786
Membres
101 817
dernier inscrit
carvajal