Est-il possible d'utiliser la condition "inclus dans" dans VBA ?

Hello,

Est-il possible d'utiliser la condition "inclus dans" dans VBA ?

Par exemple :

Code:

---

1 2 3 4

liste = Array(121,122,455,784,...)   If Cells(i, 1).Value "inclus dans" liste Then

---

Merci par avance

Bonjour,

Un "Select Case" pourrait convenir

Code:

---

1 2 3 4

Select Case Cells(i, 1) Case 121, 122, 455, 784: MsgBox "OK" End Select

---

Bonjour.

Tu peux évrire une fonction personnalisée :

Code:

---

1 2 3 4 5 6 7 8 9 10

Function fIsIn(ByVal vValeur As Variant, ByVal vArray As Variant) As Boolean Dim v As Variant   For Each v In vArray If v = vValeur Then Exit For Next v   fIsIn = IIf(IsEmpty(v), False, True)   End Function

---

que tu appelles comme dans ce test :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub testfIsIn() Dim i As Integer   i = 9 Debug.Print i & " : " & fIsIn(i, Array(2, 3, 8))   i = 3 Debug.Print i & " : " & fIsIn(i, Array(2, 3, 8))   End Sub

---

Cordialement,

PGZ

Merci !!