Comparaison d'une valeur à une liste

[Pietro_L]

Bonjour tout le monde,

Ma question semble toute simple mais je n'arrive pas à trouver la solution.

Je voudrais comparer la valeur que je récupère dans une cellule à une liste de valeur, comme ce qui peut se faire en sql avec le not in.
C'est ce que j'ai mis en rouge dans mon code.

Sub test()

Dim init As Double
Dim i As Double
Dim Valeuri As String

Nb = Range("A1").End(xlToRight).Column

'init = 2
'ValInit = Cells(1, init)
NbVar = 1

For i = 2 To Nb

    j = i + 1

    'valeur de la cellule i
    Valeuri = Cells(1, i)
    Underscorei = LastOccurence(Valeuri, "_")
    Extraiti = Left(Valeuri, Underscorei - 1)
    
    Valeurj = Cells(1, j)
    Underscorej = LastOccurence(Valeurj, "_")
    Extraitj = Left(Valeurj, Underscorej - 1)
    
    
    
    If Extraiti <> Extraitj and Extraitj [COLOR="Red"][B]not in ("_LIKE_" "ID" "COMP")[/B][/COLOR] Then
         
         NbVar = NbVar + 1
        
         'init = j
         'ValInit = Cells(init, 1)
    Else: GoTo toto
    End If
            
toto:

Next i

End SubSi qqn à l'astuce

Si qqn à l'astuce je suis preneur.

Merci d'avance.

PCL

 

[Pierrot93]

Re : Comparaison d'une valeur à une liste

Bonjour Pietro

si j'ai bien compris, pas sur et difficile sans exemple concret :

If Extraiti <> Extraitj And Not (Extraitj Like "ID" Or Not Extraitj Like "COMP") Then

bonne soirée
@+

 

[Pietro_L]

Re : Comparaison d'une valeur à une liste

Merci Pierrot93 mais en fait comme j'ai pas mal de modalité à comparer je chercher un truc du type :

Extraitj not in ("_LIKE_" "ID" "COMP" "AA" "BB" "TT")

Mais bon je vais pas jouer le parresseux et je vais tout ecrire.

Merci

 

[Pierrot93]

Re : Comparaison d'une valeur à une liste

re

j'avais compris que dans le code donné, tu parlais de l'opérateur "like" ..... sinon, il faut citer les différentes valeurs...

If Extraiti <> Extraitj And Not (Extraitj = "_Like_" Or Not Extraitj = "ID" Or Not Extraitj  = "COMP") Then

@+

Edition : un like était encore présent...