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 ?
A voir également:
- Decaler vers le bas
- Décaler une colonne excel - Guide
- Flèche vers le bas clavier ✓ - Forum Clavier
- Windows 7 vers windows 10 - Accueil - Mise à jour
- Qwerty vers azerty - Guide
- En copiant la cellule a1 vers le bas - Forum Excel
