Test de valeur. Renvoie un texte en fonction du résultat.

Question

Bonjour,

C'est ma première macro (pour poser le décor), je comprends pas trop mal la programmation mais je ne suis pas un crack (je suis ingénieur).
Je cherche à tester la valeur dans une seule cellule à chaque fois. Mais je veux tester pour plusieurs valeurs. 
Par exemple: j'ai x dans ma cellule. je veux que si x = 1, x=5, x=22 alors x est "fourniture", si x=2 alors x est "consommable", si x=40 alors x est "entretien", etc.

Je pensais faire un paquet de if then mais comme je ne connais pas du tout la syntaxe de VB, je demande votre aide. je dois traiter un gros fichier excel et à la main c'est pesant.

Cordialement

Olivier

mcdev2906 · Answer

Après relecture, je dois préciser certains points.

Je teste la valeur d'une cellule et je voudrais que le résultat du test s'affiche dans la cellule situé juste à la gauche de celle qui est testée. 
Les nombres (22, 40 etc) sont bien sur des exemples, et x sera une valeur numérique dans la cellule.

Cordialement,

Olivier

NHenry · Answer

Bonjour,

Dans ton cas, je te conseil plutot un Select Case

Dim lValue as long 'Valeur x
Dim lResultat as String 'Résultat

Select Case lValue
    Case 1,5,22
        lResultat="Fourniture"
    Case 2
        lResultat="Consommable"
    Case 40
        lResultat="Entretien"
    Case Else
        lResultat="Non trouvé"
End Select

Reste à savoir si ça répond à ta question.

Mon site

mcdev2906 · Answer

Merci pour ta réponse. Je vais essayer de faire fonctionner ça.

Test de valeur. Renvoie un texte en fonction du résultat.

3 réponses

Votre réponse

Discussions similaires