Utilisation de la Fonction Int() (partie entière)

**petiteabeille64** · 09/04/2009, 11h01

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!

**ucfoutu** · 09/04/2009, 11h10

Bonjour,

Existe la fonction Day (voir ton aide en ligne ou F1) et elle te retourne un entier.

**petiteabeille64** · 09/04/2009, 11h17

Bonjour, merci pour ta réponse, j'ai intégré la fonction Day à la place de Int, mais cela me dit toujours "dépassement de capacité", en surlignat cette fois i+1 dans la boucle...

En fait je ne sais pas ce que "dépassement de capacité" veut dire...

**ucfoutu** · 09/04/2009, 11h21

Envoyé par petiteabeille64

Bonjour, merci pour ta réponse, j'ai intégré la fonction Day à la place de Int, mais cela me dit toujours "dépassement de capacité", en surlignat cette fois i+1 dans la boucle...

En fait je ne sais pas ce que "dépassement de capacité" veut dire...

Combien de lignes as-tu à lire avec i et avec j ?
Tu as défini i et j comme Integer et ils ont donc la limite d'un entier (voir cette limite dans ton aide en ligne et voir également quelle est la limite d'un Long)

EDIT : tu devrais par ailleurs lire avec attention cette rédaction de ouskel'n'or :

http://www.developpez.net/forums/d56...-lutilisation/
puis indenter ton code et utiliser les balises ad hoc pour le présenter sur ce forum.