transformer un ifRésolu

Question

j'ai un if de cette forme



If (DataCombo1.BoundText = "") Then

        val1 = 0

Else

        val1 = DataCombo1.BoundText

End If



Mais j'en ai plein des if dans mon form



alors j'aimerai savoir s'il existe pas une technique plus rapide pour faire le test comme



val1 = (...... ? 0 : DataCombo1.BoundText)

NHenry · Accepted Answer

VB6 VBA 

iif(DataCombo1.BoundText "",val1 0,val1 = DataCombo1.BoundText)



Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)

Une question se pose sur le forum, pas en priv&#233;


NH

aieeeuuuuu · Answer

c'est ce que j'allais dire :D

sinon si tu prefere garder ta syntaxe de IF...THEN
tu peux tout mettre sur la meme ligne, car si j'ai bien compris c'est un probleme de lisibilit&#233; que tu as ?

alors ca ca marche aussi :If (DataCombo1.BoundText "") Then val1 0 Else  val1 = ataCombo1.BoundText

Mais attention il n'y a plus le End If !

Renfield · Answer

Attention NHenry...
http://www.vbfrance.com/code.aspx?ID=33789

PCPT · Answer

salut,
[VB6]
perso, je ferais plut&#244;t :
val10: if  LenB (DataCombo1.BoundText)>0 Then val1Val(DataCombo1.BoundText)

++
PCPT

PCPT · Answer

oubien pour ne pas faire 2 enregistrements :

If LenB(DataCombo1.BoundText)>0 Then val1Val (DataCombo1.BoundText) Else val10

au choix
PCPT

Renfield · Answer

val1=Val
(DataCombo1.BoundText)

suffit m&#234;me ici....(renvoi d'un 0 si la donn&#233;e ne va pas...)

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

NHenry · Answer

Renfield, je ne savais pas ceci, merci. &#224; noter que je ne l'utilise jamais dans mes progs.



Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)

Une question se pose sur le forum, pas en priv&#233;


NH

Transformer un if

7 réponses

Discussions similaires