decaler vers le bas Fermé

Question

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 ?

Zooloo- · Answer

le probleme doit etre : 

t1 = Range("G9")
t2 = Range("H9") 

Mais par quoi remplacer ?

michel_m · Answer

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 Variantt1 = Range("G" & lig) t2 = Range("H" & lig") ....mais pourquoi déclarer en variant ?

Decaler vers le bas

2 réponses

Discussions similaires