VB, code avec IF OR et AND

Fermé

Line - 3 oct. 2011 à 22:21
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 4 oct. 2011 à 09:26

Bonjour,

Je fais un modèle dans lequel je cherche à inscrire des valeurs à partir d'un code.
Jai écrit ce code en VB mais cela ne fonctionne pas. Je ne suis pas habile en VB, pouvez-vous trouver mon erreur s'il-vous-plait? Si cela ne peut être fait en VB, quelles sont les solutions ?

Le code est le suivant :

Dim lang
If [PAP]="AL" OR [PAP]="CIR" OR [PAP]="CO" OR [PAP]="CRE" OR [PAP]="DR" OR [PAP]="LAN" OR [PAP]="POT" OR [PAP]="RO" Then
lang ="Ang"
ElseIf [PAP] = "POT" AND [MIN] = "RO" Then
lang = "Fr"
Else
lang ="Fr"
End If

Merci beaucoup de me répondre

A voir également:

VB, code avec IF OR et AND
Code asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Code blocks free - Télécharger - Langages
Fast and furious torrent magnet ✓ - Forum Téléchargement

2 réponses

Réponse 1 / 2

Lord Zero Messages postés 459 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 15 juin 2018 115
Modifié par Lord Zero le 3/10/2011 à 23:15

Il te manque un End If, pour 2 condition , 2 End If
Avec quel VB tu code?

Réponse 2 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
4 oct. 2011 à 09:26

Bonjour,

Dim lang
If [PAP] = "POT" AND [MIN] = "RO" Then
lang = "Fr"
ElseIf [PAP]="AL" OR [PAP]="CIR" OR [PAP]="CO" OR [PAP]="CRE" OR [PAP]="DR" OR [PAP]="LAN" OR [PAP]="POT" OR [PAP]="RO" Then
lang ="Ang"
Else
lang ="Fr"
End If

encode dans ce sens cela marche commme vous le demande

Bonne suite

Discussions similaires

"Reboot and Select proper Boot Device"

enigme

Code Ascii

Code de renvoi d'appel : Ooredo, Mobilis...

help! codage ascii a decoder !

Discussions similaires

Newsletters