La fonction suivante ne fonctionne pas.
Quand je la trace, elle ne passe jamais le test et pire elle boucle sur elle
même.
Je n'arrive pas à trouver ce qui cloche.
Pouvez vous me dire ou ça cloche ?
Merci de votre aide !
Philippe
Les Paramêtres sont les suivantes :
Db_Mensu = 01/10/2005
F_Mensu =31/05/2005
M_en_Cours =01/10/2005
Les données sur la feuilles sont :
Bt_HeureF1=18
Bt_MinuteF1=45
Bt_HeureD1=8
Bt_MinuteD1=05
Public Function Régularisation(Db_Mensu As Date, F_Mensu As Date, M_en_Cours
As Date)
Dim i, Nb_Heures As Integer
i = 0
Nb_Heures = 0
While Month(DateAdd("d", i, M_en_Cours)) = Month(M_en_Cours)
If DateDiff("d", DateAdd("d", i, M_en_Cours), Db_Mensu) > -1 _
And Range("JOUR" & i).Value = True Then
Nb_Heures = (Range("Bt_HeureF" & i).Value + (Range("Bt_MinuteF"
& i).Value / 60)) _
- (Range("Bt_HeureD" & i).Value +
(Range("Bt_MinuteD" & i).Value / 60))
End If
i = i + 1
Wend
Régularisation = Nb_Heures
End Function
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
bartez
Ne cherchez plus, je crois que j'ai trouvé ou était mon erreur. @+ Philippe
"bartez" a écrit dans le message de news: e%
Bonjour à tous,
La fonction suivante ne fonctionne pas. Quand je la trace, elle ne passe jamais le test et pire elle boucle sur elle même. Je n'arrive pas à trouver ce qui cloche.
Pouvez vous me dire ou ça cloche ?
Merci de votre aide !
Philippe
Les Paramêtres sont les suivantes : Db_Mensu = 01/10/2005 F_Mensu 1/05/2005 M_en_Cours /10/2005
Les données sur la feuilles sont : Bt_HeureF1 Bt_MinuteF1E Bt_HeureD1=8 Bt_MinuteD1
Public Function Régularisation(Db_Mensu As Date, F_Mensu As Date, M_en_Cours As Date) Dim i, Nb_Heures As Integer i = 0 Nb_Heures = 0 While Month(DateAdd("d", i, M_en_Cours)) = Month(M_en_Cours) If DateDiff("d", DateAdd("d", i, M_en_Cours), Db_Mensu) > -1 _ And Range("JOUR" & i).Value = True Then
Nb_Heures = (Range("Bt_HeureF" & i).Value + (Range("Bt_MinuteF" & i).Value / 60)) _ - (Range("Bt_HeureD" & i).Value + (Range("Bt_MinuteD" & i).Value / 60)) End If i = i + 1 Wend Régularisation = Nb_Heures End Function
Ne cherchez plus, je crois que j'ai trouvé ou était mon erreur.
@+
Philippe
"bartez" <philippe.blancon@free.fr> a écrit dans le message de news:
e%23QP9t9yFHA.1856@TK2MSFTNGP12.phx.gbl...
Bonjour à tous,
La fonction suivante ne fonctionne pas.
Quand je la trace, elle ne passe jamais le test et pire elle boucle sur
elle même.
Je n'arrive pas à trouver ce qui cloche.
Pouvez vous me dire ou ça cloche ?
Merci de votre aide !
Philippe
Les Paramêtres sont les suivantes :
Db_Mensu = 01/10/2005
F_Mensu 1/05/2005
M_en_Cours /10/2005
Les données sur la feuilles sont :
Bt_HeureF1
Bt_MinuteF1E
Bt_HeureD1=8
Bt_MinuteD1
Public Function Régularisation(Db_Mensu As Date, F_Mensu As Date,
M_en_Cours As Date)
Dim i, Nb_Heures As Integer
i = 0
Nb_Heures = 0
While Month(DateAdd("d", i, M_en_Cours)) = Month(M_en_Cours)
If DateDiff("d", DateAdd("d", i, M_en_Cours), Db_Mensu) > -1 _
And Range("JOUR" & i).Value = True Then
Nb_Heures = (Range("Bt_HeureF" & i).Value + (Range("Bt_MinuteF"
& i).Value / 60)) _
- (Range("Bt_HeureD" & i).Value +
(Range("Bt_MinuteD" & i).Value / 60))
End If
i = i + 1
Wend
Régularisation = Nb_Heures
End Function
Ne cherchez plus, je crois que j'ai trouvé ou était mon erreur. @+ Philippe
"bartez" a écrit dans le message de news: e%
Bonjour à tous,
La fonction suivante ne fonctionne pas. Quand je la trace, elle ne passe jamais le test et pire elle boucle sur elle même. Je n'arrive pas à trouver ce qui cloche.
Pouvez vous me dire ou ça cloche ?
Merci de votre aide !
Philippe
Les Paramêtres sont les suivantes : Db_Mensu = 01/10/2005 F_Mensu 1/05/2005 M_en_Cours /10/2005
Les données sur la feuilles sont : Bt_HeureF1 Bt_MinuteF1E Bt_HeureD1=8 Bt_MinuteD1
Public Function Régularisation(Db_Mensu As Date, F_Mensu As Date, M_en_Cours As Date) Dim i, Nb_Heures As Integer i = 0 Nb_Heures = 0 While Month(DateAdd("d", i, M_en_Cours)) = Month(M_en_Cours) If DateDiff("d", DateAdd("d", i, M_en_Cours), Db_Mensu) > -1 _ And Range("JOUR" & i).Value = True Then
Nb_Heures = (Range("Bt_HeureF" & i).Value + (Range("Bt_MinuteF" & i).Value / 60)) _ - (Range("Bt_HeureD" & i).Value + (Range("Bt_MinuteD" & i).Value / 60)) End If i = i + 1 Wend Régularisation = Nb_Heures End Function
