tester si une valeur appartient à un groupe de valeur

Bonjour.
Essaie :

Sub test()
A = 45
If IsNumeric(Application.Match(A, Array(1, 5, 26, 45, 99), 0)) Then
MsgBox "c'est dedans!"
Else
MsgBox "c'est pas dedans!"
End If
End Sub

Cordialement.
Daniel

Bonjour à tous,
quel est le moyen le plus simple pour tester que le chiffre 45 est présent ou
non dans un groupe de chiffre (1,5,26,45,99)

du style
AE
if A in (1,5,26,45,99) then


merci

Bonsoir,
Avec VBA :
Sub Macro1()
a = 45
rep = Evaluate("=NOT(ISNA(MATCH(" & a _
& ",{1;5;26;45;99},0)))")
If rep = True Then MsgBox "La valeur" _
& " de A est présente dans la série"
End Sub

sans VBA :
=NON(ESTNA(EQUIV(45;{1;5;26;45;99};0)))
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"Xavier" <Xavierpowaga@free.fr> a écrit dans le message de
news:4aa3f430$0$434$426a34cc@news.free.fr...

Bonjour à tous,
quel est le moyen le plus simple pour tester que le chiffre 45 est présent
ou non dans un groupe de chiffre (1,5,26,45,99)

du style
AE
if A in (1,5,26,45,99) then


merci

Merci à tous les 2
vous êtes des chefs

Xavier


Philippe.R a écrit :

Bonsoir,
Avec VBA :
Sub Macro1()
a = 45
rep = Evaluate("=NOT(ISNA(MATCH(" & a _
& ",{1;5;26;45;99},0)))")
If rep = True Then MsgBox "La valeur" _
& " de A est présente dans la série"
End Sub

sans VBA :
=NON(ESTNA(EQUIV(45;{1;5;26;45;99};0)))