XL 2016 formule vba

[Guismo33]

Bonjour à tous,
je cale pour une formule vba, j'3 colonnes et un tableau "arrivée", dans ma 1° colonne des nombres de 1 à 5
2° colonne des nombres entre 1 et 18 et un table "arrivée" 5 nombres.

je recherche une formule vba pour :
si colonne 1 il y a le nombre de 1 à 5 et que dans colonne 2 les nombres sont egal au tableau d'arrivée alors
dans colonne 3 mais 1.

merci à vous


bien à vous

 

[Iznogood1]

Bonjour,

en J4

=SI(ET(H4>=1;H4<=5;OU(I4=$B$2;I4=$C$2;I4=$D$2;I4=$E$2;I4=$F$2));1;"")

puis copier/coller vers le bas

 

[Guismo33]

Bonjour,

en J4

=SI(ET(H4>=1;H4<=5;OU(I4=$B$2;I4=$C$2;I4=$D$2;I4=$E$2;I4=$F$2));1;"")

puis copier/coller vers le bas

Bonjour,
merci Iznogood j'aurais préférer en Vba , mais vais m'accommoder avec cet formule.

Bien à vous

 

[Iznogood1]

En VBA, il y a plusieurs solutions.

voici un exemple

Option Explicit

Function test() As Variant
  Dim r As Range
  test = ""
  If Application.Caller.Offset(0, -2).Value >= 1 And Application.Caller.Offset(0, -2).Value <= 5 Then
    For Each r In [B2:F2]
      If r.Value = Application.Caller.Offset(0, -1).Value Then
        test = 1
        Exit Function
      End If
    Next r
  End If
End Function