Discussion :

[Mimosa777]

bonjour a tous,

J'ai des cellules avec des valeurs tel que :
06:15
04:23
etc...

Dans mon code ci-dessous:

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
Sub FillRosterSA()
Dim sht, targetsht As Worksheet
rotaNLAM = 3
rotaNLPM = 8
 
 
For j = 2 To LastRow
    'Saturday
        If Right(sht.Cells(j, 6).Value, 1) = "A" Then
            'AM
            If sht.Cells(j, 3).Value <= sht.Cells(4, 1).Value Then
                    targetsht.Cells(rotaNLAM + 1, 10).Value = sht.Cells(j, 3).Value
                    targetsht.Cells(rotaNLAM + 2, 10).Value = sht.Cells(j, 4).Value
                    twelvehourscond = targetsht.Cells(rotaNLAM + 1, 10).Value
                    fortyminCond = targetsht.Cells(rotaNLAM + 2, 10).Value
                    rotaNLAM = rotaNLAM + 11
 
            End If
 
            'PM
            If sht.Cells(j, 3).Value - fortyminCond > sht.Cells(3, 1).Value And sht.Cells(j, 4).Value - twelvehourscond <= sht.Cells(5, 1).Value Then
                    targetsht.Cells(rotaNLPM, 10).Value = sht.Cells(j, 12).Value
                    rotaNLPM = rotaNLPM + 11
 
            End If
 
 
        End If
    Next
 
End Sub

dans mon dernier IF, j<essaie de voir si la difference entre de cellules est superieur 40min, alors execute le IF. Le probleme c'est qu'il l'execute peu importe meme si la difference est inferieur a 40min.
Dans ma cellule sht.Cells(3, 1).Value , il y a la valeur 00:40. On dirait qu'il ne fait pas la soustraction correctement. Est ce une question de format ?

merci de votre aide

[helas]

Bonjour,

Peut-être en forçant le type de donnée en Double

Code :

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

1
2
 
If CDbl(sht.Cells(j, 3).Value) - CDbl(fortyminCond) > CDbl(sht.Cells(3, 1).Value) And CDbl(sht.Cells(j, 4).Value) - CDbl(twelvehourscond) <= CDbl(sht.Cells(5, 1).Value) Then

[vinc_bilb]

Bonjour,

Vous avez des fonctions natives VBA qui pourraient grandement vous simplifier la vie je pense et votre code par la même occasion, en particulier:

1. TimeValue: vous permet d'extraire et de tester si une valeur est bien un temps, quel que soit le format
2. DateDiff: permet de faire une différence entre deux dates / temps, en secondes, minutes, heures, jours, ....
3. DatePart

Note: la représentation des dates / temps entre Excel et VBA est complètement différentes

Si ça peut vous aider

[Mimosa777]

merci enormement a vous deux - probleme resolu