Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 VBA fonction non reconnue

ciocciu

XLDnaute Nouveau
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
 

pierrejean

XLDnaute Barbatruc
Bonjour cioccu
Salut Paf

la fonction in_array pourrait etre:
Code:
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…