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.
Si qqn à l'astuce je suis preneur.
Merci d'avance.
PCL
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.
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