Fonction personnalisée dans une Macro VBA

Le
J&B
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()

Sheets("OUT").Select

Mois_Ticket = "=si(D2="""";"""";Mois(D2))"
Mois_Incident = "=si(F2="""";"""";Mois(F2))"
Mois_Date_Cloture = "=si(M2="""";"""";Mois(M2))"

Heures_Ouvres_Ticket = "=HeuresOuvres(D2;F2;XX1:XX2)"

nbLignes = Cells(Rows.Count, "A").End(xlUp).Row

Range("R2:R" & nbLignes).FormulaLocal = Mois_Ticket
Range("S2:S" & nbLignes).FormulaLocal = Mois_Incident
Range("T2:T" & nbLignes).FormulaLocal = Mois_Date_Cloture
Range("U2:U" & nbLignes).FormulaLocal = Heures_Ouvres_Ticket


End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
J&B
Le #16329761
sniff!!!

persone ne peut me répondre !!!!

help me


merci

"J&B" 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()

Sheets("OUT").Select

Mois_Ticket = "=si(D2="""";"""";Mois(D2))"
Mois_Incident = "=si(F2="""";"""";Mois(F2))"
Mois_Date_Cloture = "=si(M2="""";"""";Mois(M2))"

Heures_Ouvres_Ticket = "=HeuresOuvres(D2;F2;XX1:XX2)"

nbLignes = Cells(Rows.Count, "A").End(xlUp).Row

Range("R2:R" & nbLignes).FormulaLocal = Mois_Ticket
Range("S2:S" & nbLignes).FormulaLocal = Mois_Incident
Range("T2:T" & nbLignes).FormulaLocal = Mois_Date_Cloture
Range("U2:U" & nbLignes).FormulaLocal = Heures_Ouvres_Ticket


End Sub




Modeste
Le #16329911
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 !!!

Function HeureOuvres(Début, Fin, PlageFériés)

<####>
Heures_Ouvres_Ticket = "=HeuresOuvres(D2;F2;XX1:XX2)"


--
--
@+
;o)))
J&B
Le #16333041
glups!!!!!!!!!!!!!!!!!!

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" %
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 !!!

Function HeureOuvres(Début, Fin, PlageFériés)

<####>
Heures_Ouvres_Ticket = "=HeuresOuvres(D2;F2;XX1:XX2)"


--
--
@+
;o)))
Publicité
Poster une réponse
Anonyme