je n'arrive pas a utiliser une fonction personnalisée dans une macro VBA.
j'ai dans colonne U des #NOM
Si j'utilise la fonction directement ça marche
Si quelqu'un peut m'aider
Voici mon Code
Merci
---------------------------------------------------------
Function HeureOuvres(Début, Fin, PlageFériés)
For i = Début * 1 To Fin * 1 Step TimeValue("0:01")
If Hour(i) >= 8 And Hour(i) < 18 And Day(i) = Day(i +
TimeValue("0:01")) _
And Application.CountIf([PlageFériés], CDate(Int(i)) * 1) = 0 _
And Weekday(CDate(Int(i)) * 1, 2) < 6 Then x = x + 1
Next
HeureOuvres = x / 1440
End Function
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
J&B
Il y a eu 1 pb mais la ligne contient bien. formulalocal
"J&B" a écrit dans le message de news: 4877b8ce$0$13938$
Bonjour,
je n'arrive pas a utiliser une fonction personnalisée dans une macro VBA. j'ai dans colonne U des #NOM Si j'utilise la fonction directement ça marche Si quelqu'un peut m'aider Voici mon Code Merci ---------------------------------------------------------
Function HeureOuvres(Début, Fin, PlageFériés) For i = Début * 1 To Fin * 1 Step TimeValue("0:01") If Hour(i) >= 8 And Hour(i) < 18 And Day(i) = Day(i + TimeValue("0:01")) _ And Application.CountIf([PlageFériés], CDate(Int(i)) * 1) = 0 _ And Weekday(CDate(Int(i)) * 1, 2) < 6 Then x = x + 1 Next HeureOuvres = x / 1440 End Function
Il y a eu 1 pb mais la ligne contient bien. formulalocal
"J&B" <jb@free.fr> a écrit dans le message de news:
4877b8ce$0$13938$426a34cc@news.free.fr...
Bonjour,
je n'arrive pas a utiliser une fonction personnalisée dans une macro VBA.
j'ai dans colonne U des #NOM
Si j'utilise la fonction directement ça marche
Si quelqu'un peut m'aider
Voici mon Code
Merci
---------------------------------------------------------
Function HeureOuvres(Début, Fin, PlageFériés)
For i = Début * 1 To Fin * 1 Step TimeValue("0:01")
If Hour(i) >= 8 And Hour(i) < 18 And Day(i) = Day(i +
TimeValue("0:01")) _
And Application.CountIf([PlageFériés], CDate(Int(i)) * 1) = 0 _
And Weekday(CDate(Int(i)) * 1, 2) < 6 Then x = x + 1
Next
HeureOuvres = x / 1440
End Function
Il y a eu 1 pb mais la ligne contient bien. formulalocal
"J&B" a écrit dans le message de news: 4877b8ce$0$13938$
Bonjour,
je n'arrive pas a utiliser une fonction personnalisée dans une macro VBA. j'ai dans colonne U des #NOM Si j'utilise la fonction directement ça marche Si quelqu'un peut m'aider Voici mon Code Merci ---------------------------------------------------------
Function HeureOuvres(Début, Fin, PlageFériés) For i = Début * 1 To Fin * 1 Step TimeValue("0:01") If Hour(i) >= 8 And Hour(i) < 18 And Day(i) = Day(i + TimeValue("0:01")) _ And Application.CountIf([PlageFériés], CDate(Int(i)) * 1) = 0 _ And Weekday(CDate(Int(i)) * 1, 2) < 6 Then x = x + 1 Next HeureOuvres = x / 1440 End Function