Discussion :

[wyzer]

Hello,

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

Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci par avance

[fring]

Bonjour,

Un "Select Case" pourrait convenir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pgz]

Bonjour.

Tu peux évrire une fonction personnalisée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[wyzer]

Merci !!