Discussion :

[zalalus]

Salut,

je veux simplifier l'ecriture d'une condition
If A <> B And A <> C And A <> D _
And A<> E And A <> F And A <> G _
And A <> H And A <> I And A <> J_
And A <> K And A <> L And A <> M _
And A <> N And A <> O And A<> P

des idées????????

[Jean-Philippe André]

salut,
je partirais sur un select case :

Code :

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

1
2
3
4
5
6
Select Case A
Case B, C, D, E, F, G, H, I, J, K, L, M, N, O, P :
'rien
Case Else :
'ton code
End Select

[random]

tu pourrais ajouter une fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Function dedans(x As Variant, ParamArray y() As Variant) As Boolean
Dim iter As Variant
For Each iter In y
If x = iter Then
dedans = True
Exit Function
End If
Next iter
dedans = False
End Function

tu pourras évoquer not dedans(a,b,b,d,e,f,g,h,i,j,k,l,m,n)

tu n'es pas limité en nombre d'arguments