XL 2010 Correction code vba multiconditions

[Pierre Martin]

Bonjours à vous tous,

Je suis nouveau sur le forum et j'ai besoin d'aide pour corriger cette portion de code :

Cells(y, 1).Select
    Secteur = ActiveCell.Value

    If Secteur = 59 Then
    RefRep = 1
    ElseIf Secteur = 2 Or MonDpt = 5 Then
    RefRep = 2
    Else
    RefRep = 3
    End If

Je pensais qu'en l'écrivant ainsi les 3 conditions allaient être vérifiées mais ça ne marche pas tout se passe comme s'il n'y avait pas de contrôle sur la troisième condition.

Pourriez-vous m'indiquer comment rédiger cette portion de code afin que les 3 conditions soient examinées correctement ?

Merci beaucoup

 

[Paf]

bonjour,

Le code semble correct.

Suivant la valeur de Secteur et MonDpt, on passera dans 1, 2 ou 3 tests :
si MonDpt = 0 ( MonDpt n'est pas initialisé dans le bout de code fourni)
si Secteur= 59 on exécute RefRep = 1 et on n'évalue pas le reste des conditions
si Secteur= 2 on exécute RefRep =2 et on n'évalue pas le reste des conditions
si Secteur= autre que 59 et 2 on exécute RefRep =3

Par contre si MonDpt=5
si Secteur= 59 on exécute RefRep = 1 et on n'évalue pas le reste des conditions
si Secteur= 2 on exécute RefRep =2 et on n'évalue pas le reste des conditions
si Secteur= autre que 59 et 2 on exécute RefRep =2 (puisque MonDpt=5) et on n'évalue pas le reste des conditions


Après, en fonction de ce que vous voulez obtenir on peut modifier les tests.

A+