Decaler vers le bas

Fermé

Zooloo- Messages postés 44 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 16 mai 2018 - 13 sept. 2016 à 00:00
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 13 sept. 2016 à 11:03

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:

Decaler vers le bas
Windows 7 vers windows 10 - Guide
Transferer photo android vers pc - Guide
Décaler colonne excel - Guide
Qwerty vers azerty - Guide
Vers quelle adresse web renvoie ce lien - Guide

2 réponses

Réponse 1 / 2

Zooloo- Messages postés 44 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 16 mai 2018
13 sept. 2016 à 00:58

le probleme doit etre :

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

Mais par quoi remplacer ?

Réponse 2 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
13 sept. 2016 à 11:03

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 ?

Discussions similaires

Colis en cours de transport vers votre site de livraison ?

je veut créer des codes

Flèche allumé clavier

il est en cours de transport vers votre site de livraison

tiret du bas

Discussions similaires

Newsletters