Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Programmation

Instruction If dans VB 6.0

Dernière réponse le 14 oct 2005 à 18:52:19 Polly, le 14 oct 2005 à 18:35:44

Signaler ce message aux modérateurs

Bonjour,

Pouvez-vous SVP me corriger le code suivant:

Vérifier surtout l'utilisation de Else If et la définition des conditions.

If Rep = "01" Or Rep = "02" Or Rep = "03" Then
VarNum = Varold
operator.Text = Varoperator
ElseIf Rep = "14" Or rep = "20" Or Rep = "23" Then
VarNum = VaroldNum + 1
operator.Text = Varoperator
ElseIf Rep = "05" Or Rep = "06" Then
VarNum = Varold - 15
Operator.Text = VarNum
end If
End If
EndIf

Merci d'avance

Polly.

Meilleures réponses pour « Instruction If dans VB 6.0 » dans :

Telecharger vb 6.0 Voir

Telecharger vb 6.0 gratuit (Résolu) Voir

VB 6.0 et base de données ORACLE Voir

Connection de VB 6.0 à MySQL Voir

Application Client/Serveur sous VB 6.0 Voir

Vb 6 datareport basé sur requête paramétré Voir

Télécharger Visual Basic 6 Runtime (VB6 DLL) VoirLe Runtime Visual Basic 6 contient l'ensemble des librairies (DLL) nécessaires pour exécuter des programmes écrits en langage Visual Basic 6.0. Il contient notamment les DLL suivantes :...

Télécharger Apprendre Photoshop Elements 6 Voir

Posez votre question Répondre

Armojax, le 14 oct 2005 à 18:52:19

Salut polly,

Je ne vois pas de problème, à part 2 End If en trop en fin de proc.
Je conseillerais plutôt, pour la clarté, l'utilisation de Select Case :

Select Case Rep
  Case "01", "02", "03"
    VarNum = Varold
    Operator.Text = Varoperator
  Case "14", "20", "23"
    VarNum = VaroldNum + 1
    Operator.Text = Varoperator
  Case "05", "06"
    VarNum = Varold - 15
    Operator.Text = VarNum
End Select

Répondre à Armojax

Posez votre question Répondre