Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel fonction personnalisée en VBA

fonction personnalisée en VBA

1 réponse
Avatar
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
Signaler un problème avec ce contenu

1 réponse

Supprimer
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
Avatar
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


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