Fonction personnalisée dans une Macro VBA

Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Entraide Applications Microsoft Office Excel Fonction personnalisée dans une Macro VBA

3 réponses

J&B

13/07/2008 à 20:03

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

3 réponses

J&B

15/07/2008 à 12:58

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()

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

15/07/2008 à 13:07

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

15/07/2008 à 19:28

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

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

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

--
--
@+
;o)))

Fonction personnalisée dans une Macro VBA

3 réponses

Veuillez sélectionner un problème