Utilisation de la Fonction Int() (partie entière)
Bonjour,
Je cherche à faire un programme qui regarde les données d'une feuille et recopie ces données dans une autre feuille seulement si les jours correspondent. Comme Dans une des feuilles la date contient aussi l'heure, je veux extraire la partie entière de la date (donc le jour) pour comparer avec l'autre feuille.
J'ai vu qu'on pouvait utiliser la fonction Int()
Pour l'instant mon programme donne ça :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Sub ExtraitPluie()
Dim i As Integer
Dim j As Integer
Dim Jour1 As Integer
Dim Jour2 As Double
i = 3
j = 2
Jour1 = 0
Do
Do
Jour2 = Sheets("ExtraitVent").Range("A" & i).Value
Jour1 = Int(Jour2)
If Jour1 = Sheets("PluieCol").Range("D" & j).Value Then
Sheets(ExtraitVent).Range("D" & i).Value = Sheets("PluieCol").Range("E" & j).Value
End If
i = i + 1
Loop
j = j + 1
Loop
End Sub |
Cependant, quand je lance la macro cela ne marche pas et le débogueur m'indique un "dépassement de capacité" en surlignant "jour1=Int(Jour2)"...
Je ne vois vraiment pas ce qui cloche!
Merci d'avance pour votre aide!
