fonction personnalisée en 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).F = 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 #15406541
Il y a eu 1 pb mais la ligne contient bien. formulalocal

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


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



Publicité
Poster une réponse
Anonyme