Conversion de MFC/formule

Bonjour,

Après moultes recherches, je me tourne vers vous.

J'aimerais convertir =EQUIVX(A2;Data!$G$3:$G$13)" en code vba.
Je n'est pas trouvé l'équivalent de EQUIVX en vba.

J'ai bien essayé avec MATCH, mais j'y suis pas arriver.

Merci d'avance pour votre aide.

Hello,

Si tu veux utiliser une fonction en vba essaie ça :

Application.WorksheetFunction.Match(Range("A2"), Sheets("Data").Range("G3:G13"),0)

@+

Merci bcp Baroute78,

Après quelques essais j'ai finalement réussi à mettre en place la fonction, mais seulement avec Application.Match, parce qu'avec le WorksheetFunction ça plantait.

Voici la résultat final.

With Cells(w, 1) 'marque les jours fériés
 comp = Application.Match(Cells(w, 1), Sheets("Data").Range("G3:G13"), 0)
  If Not IsError(comp) Then
   Cells(w, 1).Interior.Color = RGB(255, 192, 0)
 End If
End With

Merci encore pour ton aide.