un petit tutoriel pour gagner quelques lignes de prog...
Source / Exemple :
'EXPLICATION DE IIF...
'----------------------
option EXPLICIT
Dim strTmp As String, resultat As String
'Je me souviens avoir eu du mal à comprendre
'ce que pouvait bien renvoyer iif(expression,truepart,falsepart)
'----
'Donc je continuais à écrire :
strTmp = text1.Text
If strTmp = "micheline" Then
resultat = CestJolieNom'fonction CestjolieNom
Else
resultat = PasJolieNom'fonction PasJolieNom
End If
msgbox resultat
'----
'Et en voyant ça ...
resultat = iif(strTmp = "micheline",CestJolieNom, PasJolieNom)
msgbox resultat
'j'avais toujours pas compris !!
'mais bon... maintenant oui :), et vous ??
Private Function CestJolieNom() As String
CestJolieNom = "Vous avez un jolie nom :) !! "
End Function
Private Function PasJolieNom() As String
PasJolieNom = "Votre nom est MOCHE !!"
End Function
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.