XL 2013 VBA fonction non reconnue

[ciocciu]

Bonjour
j'ai excel 2013 et dans une macro toute bête j'essaie
fs = Array("Feuil1", "Feuil2", "Feuil3")
For Each ws In Worksheets
r = in_array(fs, ws.Name)
If r = 0 Then

MsgBox ("on efface " & ws.Name)

End If
Next

et j'ai une erreur de compilation "SUb ou fonction non définie " sur le in_array
je comprends pas car j'ai déjà utilisé cette fonction sur l'ordi du boulot
merci par avance

 

[Paf]

Bonjour,

a priori la fonction in_array() fait partie d'un Add-in, qui n'est sans doute pas installé sur votre machine...

Voir http://www.excel-pratique.com/fr/fonctions-complementaires.php
A+

Edit : Bonjour pierrejean

 

[pierrejean]

Bonjour cioccu
Salut Paf

la fonction in_array pourrait etre:

Function in_array(tableau, nom)
in_array = 0
For n = LBound(tableau) To UBound(tableau)
  If tableau(n) = nom Then in_array = 1
Next
End Function

 

[ciocciu]

effectivement la fonction n'était pas installée sur ma machine
merci