Problème avec un select Case

[Alpha41]

Bonjour à tous, J'ai un problème avec le select case suivant :

testcurrentEquipement = Mid(CurrentEquipement, 1, 3)
    
    Select Case testcurrentEquipement
    Case testcurrentEquipement <> "SIO"

CurrentEquipement est un string de valeur "ConfECS"
TestCurrent vaut donc "Con"
Je ne comprend pas pourquoi il ne rentre pas dans le case alors que "con" est different de "SIO"


Merci d'avance,

Cordialement,

 

[sim]

Re : Problème avec un select Case

Bonjour,

Je ne suis pas sur du tout mais en essayant

testcurrentEquipement = Mid(CurrentEquipement, 1, 3)
    
    Select Case testcurrentEquipement
             With testcurrentEquipement <> "SIO"
             End With
    End Select

Apres vraiment pas sur!

Bonne journee

Sim

 

[Alpha41]

Re : Problème avec un select Case

Bonjour,
J'ai une erreur :
L'objet with doit être de type défini par l'user, object ou variant.

Cordialement,

 

[sim]

Re : Problème avec un select Case

Re,

Malheureusement je suis loin d'etre un expert donc je ne pourrai pas t'aider sur cette erreur

Apres sans plus d'info, je pense qu'il te sera difficil d'avoir une reponse efficace sur ton probleme.

Ensuite, si j'etais toi:

testcurrentEquipement <> "SIO" ' me parrait etre une condition

alros en essayant avec un IF.....Then...

Et si ca ne marche pas....donner plus de details (tenant et aboutissant) et les experts de se forum se feront une joie de pouvoir t'aider.

Bonne journee et dsl de ne pas avoir pu t'aider efficacement.

Cordialement.

Sim

 

[Alpha41]

Re : Problème avec un select Case

Bonjour,

Pas de problème sim, merci déjà d'avoir essayé.
Je peux voir un if mais ça va m'obliger à alourdir mon code qui est déjà assez conséquent .

Je vais me renseigner sur le case plus amplement

Cordialement,

 

[sim]

Re : Problème avec un select Case

Re,

Je crois metre tromper dans la synthaxe essaye comme ca peut etre

testcurrentEquipement = Mid(CurrentEquipement, 1, 3)
    
    Select Case

    Case testcurrentEquipement
             
             With testcurrentEquipement <> "SIO"
             End With
    
    End Select

 

[Alpha41]

Re : Problème avec un select Case

Bonjour,

Problème résolu : Il suffisait de mettre case IS <> "SIO"

Merci encore,

Cordialement,