Comment effectuer ce test

Question

Bonjour a toutes et tous, Forum bonjour

Configuration: Windows 7 / Excel 2007

Je souhaiterai svp effectuer un petit test sur 3 conditions et je ni parviens pas

Pour Infos:


Gest = Nom de l'Userform
Cpt = Compteur de vidéos


Comment svp effectuer le test si dessous.


If si Cpt = 0 Then Gest.Label203.Caption =  " Aucune vidéo trouvée" : Exit Sub
if si Cpt = 1 Then Gest.Label203.Caption =  Cpt & " Vidéo trouvée" : Exit Sub
if si Cpt > 1 Then Gest.Label203.Caption = Cpt & " Vidéos trouvées" : Exit Sub


On sort du test dès que le résultat est affiché dans le Label203.

Merci a vous et de votre temps

Bonne fin d'après midi a vous

Cdlt

Heliotte · Answer

Bonsoir dudulleray ,
Dans ton énoncé, je n'ai pas vu le langage, donc en langage procédural:SI (Cpt==0) ALORS
..Gest.Label203.Caption =  " Aucune vidéo trouvée"
..Exit Sub
SINON
..Gest.Label203.Caption = "" + Cpt + " Vidéo" + SII(Cpt==0,"","s") + " trouvée" + SII(Cpt==0,"","s")
FIN SIremarque : SII = opérateur tertiaire

dudulleray · Answer

Salut Heliotte

Merci pour ta réponse, je suis sous Excel 2007 en VBA

je ne sais pas c'est quoi le langage procédural ???

je ne comprends pas trop le code que tu me propose si gentiment, désolé.

Merci a toi

A plus tard 

Cdlt

dudulleray · Answer

Bonjour Héliotte,

Merçi pour ta réponse, je viens de faire l'essai et ça fonctionne très bien

je garde ton code sous le coude.


Encore merçi a toi et pour ton aide.

Déja vendredi alors je te souhaite un bon W-end

Bonne journée Bye

Cordialement  Raymond

Comment effectuer ce test

3 réponses

Votre réponse

Newsletters