Decaler vers le bas
Zooloo-
Messages postés
44
Statut
Membre
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
ca fonctionne sur la ligne 9, je voudrai l'appliquer sur les autres lignes :
Function temps_moins_pauses(t As Variant) As Variant
Dim t1 As Variant
Dim t2 As Variant
t1 = Range("G9")
t2 = Range("H9")
If TimeValue("10:00:00") > t1 And TimeValue("10:10:00") < t2 Then
temps_moins_pauses = t - 0.00694444444
ElseIf TimeValue("15:00:00") > t1 And TimeValue("15:10:00") < t2 Then
temps_moins_pauses = t - 0.00694444444
ElseIf TimeValue("11:50:00") > t1 And TimeValue("12:40:00") < t2 Then
temps_moins_pauses = t - 0.00694444444 * 5
ElseIf t1 > t2 Then
temps_moins_pauses = t - 0.00694444444 * 2
Else
temps_moins_pauses = t
End If
End Function
Quelqu'un a la soluce ?
ca fonctionne sur la ligne 9, je voudrai l'appliquer sur les autres lignes :
Function temps_moins_pauses(t As Variant) As Variant
Dim t1 As Variant
Dim t2 As Variant
t1 = Range("G9")
t2 = Range("H9")
If TimeValue("10:00:00") > t1 And TimeValue("10:10:00") < t2 Then
temps_moins_pauses = t - 0.00694444444
ElseIf TimeValue("15:00:00") > t1 And TimeValue("15:10:00") < t2 Then
temps_moins_pauses = t - 0.00694444444
ElseIf TimeValue("11:50:00") > t1 And TimeValue("12:40:00") < t2 Then
temps_moins_pauses = t - 0.00694444444 * 5
ElseIf t1 > t2 Then
temps_moins_pauses = t - 0.00694444444 * 2
Else
temps_moins_pauses = t
End If
End Function
Quelqu'un a la soluce ?
2 réponses
-
le probleme doit etre :
t1 = Range("G9")
t2 = Range("H9")
Mais par quoi remplacer ? -
bonjour
au passage
extrait de la charte CCM-respect d'autrui
merci d'avance me m'aider...
tu inscris la ligne dans l'appel de la fonctionFunction temps_moins_pauses(t As Variant, Lig as integer) As Variant
t1 = Range("G" & lig)
t2 = Range("H" & lig")
....
mais pourquoi déclarer en variant ?
