Discussion :

[grayfox1]

Bonjour,

J'ai un petit problème avec la fonction IF, je voudrais utiliser plusieurs condition dans la fonction mais je ne trouve pas comment le faire.

J´ai un tableau (voir capture écran en annexe) ou je dois trouvez les temps: t<2h ou 2h<t>4h ou 4h<t>8h ou t>8h.

Pour la condition IF sur t<2h et t>8h pas de problème vu que il ni a que une condition.
Mon problème c'est dans les deux autre: t>2h et t<4H ; t>4h et t<8h.

En faite c'est une fonction ET dans la fonction IF.

Quelqu’un peut me donner une petite aide SVP

[dodo28]

bonjour ,
essaye avec and

[grayfox1]

Comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If t > V2H And t < V4H Then
Tsup2inf4 = Tsup2inf4 + t
End If

Je vais essayer...j'avais pas penser aussi simple

Pour chacune de mes condition en faite

[grayfox1]

Ok ça marche impecable, merci beaucoup pour l'aide, j'avais pas pensez a un truc aussi simple.

Avec ça je additionne des valeur en heures: 00:00:00 sur mes différent temps

C’est créer des variable date, mais j' un petit problème quand mes valeurs de tempos sont élever (05:00:40 par ex.), il me donne le temps comme ça: 31-12-1899 06:18:18, au final de mes operation je voudrais montrer la durée total pour chaque "t" mais je voudrais la montrer en heures (00:00:00).

C'est plus simple faire la conversion a la fin de la date en heure ou faire différant depuis le début?

Le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Sub Temps()
 
Dim t As Date
Dim Tinf2 As Date
Dim Tsup2inf4 As Date
Dim Tsup4inf8 As Date
Dim Tsup8 As Date
 
Dim V2H As Date
Dim V4H As Date
Dim V8H As Date
Dim Linha As String
 
Tsup2inf4 = "00:00:00"
Tsup4inf8 = "00:00:00"
Tinf2 = "00:00:00"
Tsup8 = "00:00:00"
Linha = "2"
V8H = "08:00:00"
V4H = "04:00:00"
V2H = "02:00:00"
Do While ActiveWorkbook.Worksheets("Registo AG").Range("J" & Linha) <> ""
t = ActiveWorkbook.Worksheets("Registo AG").Range("J" & Linha).Value
 
'inferieur 2h
If t < V2H Then
Tinf2 = Tinf2 + t
End If
 
 
'Entre 02h et 4h
If t > V2H And t < V4H Then
Tsup2inf4 = Tsup2inf4 + t
End If
 
'entre 04h et 08h
If t > V4H And t < V8H Then
Tsup4inf8 = Tsup4inf8 + t
End If
 
 
'Sup 08h
 
If t > V8H Then
Tsup8 = Tsup8 + t
End If
Linha = Linha + 1
 
Loop
End Sub