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 : 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
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!