VBA : test de + de 7 valeurs texte

Bonjour Forum,

J'ai vraiment du mal avec le VBA et je suis vraiment désolé de vous solliciter encore pour pas grand chose à mon avis aux yeux des spécialistes...

Je voudrais tester sur une valeur texte de 3 caractères et je pensais faire :

IF trig = "BGI" OR trig = "BMA" OR trig = "CGI" OR trig = "CRA"....

et ainsi de suite pour au moins 16 valeurs...

Malheureusement, le test ne dépasse pas la 7e valeur (mais je pense que c'est pareil que des "SI imbriqués" dans les formules) et je ne sais pas comment faire.

Peut-être avec une boucle mais sur des valeurs "texte", j'avoue que je ne sais pas comment m'y prendre.

Merci d'avance à mon "sauveur"...

Amicalement.

Fabrice,

tu pourrais utiliser SELECT CASE

Public Sub Test()
    Select Case trig
        Case "BGI"
            'Code à effectuer
        Case "BMA"
            'Code à effectuer
        Case Else
            'Code si aucun des choix
    End Select
End Sub

tu peux aussi regrouper des valeurs

Public Sub Test()
    Select Case trig
        Case "BGI", "BMA"
            'Code à effectuer
        Case Else
            'Code si aucun des choix
    End Select
End Sub

Re-, le forum, Math,

J'avais essayé avec le select Case mais les opérations que je dois faire ensuite valeur par valeur (il y en a 16) sont longues.En fait, il y a beaucoup de lignes de codes derrière et je me voyais mal avec une macro de plusieurs centaines de lignes...

Mais je ne savais pas que l'on pouvait regrouper les valeurs comme dans ta 2e proposition. C'est ce que je vais essayer de faire.

Je te tiens au courant car j'aurai certainement encore besoin d'aide...

Merci en tout cas pour cette solution.

Amicalement.

Fabrice,

ce que tu peux aussi faire c'est de mettre le code à executer dans une procedure et seulement appeler la procedure:

Public sub ProcedurePrincipale
Select case trig
   Case "BGI"
       ProcedureTraitement
   Case "BMA"
       ProcedureTraitement
   Case Else
       'Le code
End Select
End Sub

Public Sub ProcedureTraitement
'Le code à faire
End Sub

ça reste très lisible. C'est à toi de voir

Bonjour Forum, Math,

Je teste tout ça et vous tiens au courant.

Merci de ton aide Math.

Amicalement.

Fabrice,