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
'---------------------------------------------------------------------
Sub Formule()
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
sniff!!!
persone ne peut me répondre !!!!
help me
merci
"J&B" a écrit dans le message de news: 487a425d$0$30772$
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
'--------------------------------------------------------------------- Sub Formule()
"J&B" <jb@free.fr> a écrit dans le message de news:
487a425d$0$30772$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
'---------------------------------------------------------------------
Sub Formule()
"J&B" a écrit dans le message de news: 487a425d$0$30772$
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
'--------------------------------------------------------------------- Sub Formule()
désolé pas vu la réponse, sinon j'aurai pas insister. Et je connais bien le principe forum car je reponds aussi quand je peux et je je ne veux pas en bal perso Je ne comprends pas pourquoi évoqué ce point !!!!
"Modeste" a écrit dans le message de news: % Bonsour® J&B avec ferveur ;o))) vous nous disiez :
sniff!!! persone ne peut me répondre !!!! help me
sur un forum public, sauf exception il n'y a pas de réponse en BAL perso il suffit de consulter les réponses sur ce forum.
il t'a déja été répondu de regarde l'écriture de l'appel de la fonction !!!
désolé pas vu la réponse, sinon j'aurai pas insister.
Et je connais bien le principe forum
car je reponds aussi quand je peux et je je ne veux pas en bal perso
Je ne comprends pas pourquoi évoqué ce point !!!!
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
%23nGz1sm5IHA.1420@TK2MSFTNGP06.phx.gbl...
Bonsour® J&B avec ferveur ;o))) vous nous disiez :
sniff!!!
persone ne peut me répondre !!!!
help me
sur un forum public, sauf exception il n'y a pas de réponse en BAL perso
il suffit de consulter les réponses sur ce forum.
il t'a déja été répondu de regarde l'écriture de l'appel de la fonction !!!
désolé pas vu la réponse, sinon j'aurai pas insister. Et je connais bien le principe forum car je reponds aussi quand je peux et je je ne veux pas en bal perso Je ne comprends pas pourquoi évoqué ce point !!!!
"Modeste" a écrit dans le message de news: % Bonsour® J&B avec ferveur ;o))) vous nous disiez :
sniff!!! persone ne peut me répondre !!!! help me
sur un forum public, sauf exception il n'y a pas de réponse en BAL perso il suffit de consulter les réponses sur ce forum.
il t'a déja été répondu de regarde l'écriture de l'appel de la fonction !!!