Decaler vers le bas

Zooloo- Messages postés 44 Date d'inscription   Statut Membre Dernière intervention   -  
michel_m Messages postés 16602 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 ?
A voir également:

2 réponses

Réponse 1 / 2
Zooloo- Messages postés 44 Date d'inscription   Statut Membre Dernière intervention  
 
le probleme doit etre :

t1 = Range("G9")
t2 = Range("H9")

Mais par quoi remplacer ?
0
Réponse 2 / 2
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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 fonction 
Function 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 ?
0

Discussions similaires

Touche clavier flèche du bas qui fonctionne toute seule
unsterkaymi -
fabul -

1 réponse
Flèche allumé clavier
Crevette85 -
Jacotte -

22 réponses
configurer touche [flèche bas]
redflamingo -
redflamingo -

4 réponses
tiret du bas
na -
Kahlan2016 -

14 réponses
Colis en cours de transport vers votre site de livraison ?
Ninan_5568 -
JulieVdr -

7 réponses