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????????
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????????
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
tu pourrais ajouter une fonctiontu pourras évoquer not dedans(a,b,b,d,e,f,g,h,i,j,k,l,m,n)
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 n'es pas limité en nombre d'arguments
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager