incompatibilté de type sur des dates

[Jimrcl]

Bonjour le forum,
j'effectue dans ma macro une soustraction entre deux dates.
sous excel A1-A2 çà marche il me donne le nb de jours
et lorsque je fais la même chose dans ma macro j'ai une erreur qui me dis 'erreur d'excecussion 13 incompatibilité de type'
Comment faire ???
Merci à celui qui a déjà eu ce problème.
B)

 

[dg62]

Bonjour JimRCL


Peux tu joindre ton bout de code ?

 

[Dugenou]

Salut Jim,

ne serait-ce pas du à une variable pas déclarée correctement ?

les dates sont des nombres à 5 chiffres + quelquechose derrière la virgule.

Cordialement

 

[Jimrcl]

voilà la ligne qui coince ,
toutes les variables sont déclarées et initialisées

If Cells(i, 29) - Cells(i, 2) <= 5 Then
                nbrec = nbrec  
End If

 

[dg62]

Re


Ce n'est pas suffisant pour ce rendre compte de l'erreur.


maintenant, je vois que tu boucles (i) est-tu certain qu'une valeur d'un autre type ne soit pas dans ta boucle ?



Inseres un ' debug.print i ' dans ton code pour savoir ou ca coince !

Message édité par: dg62, à: 31/03/2005 15:37

 

[_Thierry]

Bonjour Jim, Didier, Dugenou, le Fil, le Forum

Je crois qu'il manque une incrémentation de ton 'nbrec' non ?

Sub Test()
Dim i As Integer, nbrec As Integer

For i = 1 To 100
&nbsp; &nbsp; If Cells(i, 1) - Cells(i, 2) <= 5 Then
&nbsp; &nbsp; &nbsp; &nbsp; nbrec = nbrec + 1
&nbsp; &nbsp; End If
Next
MsgBox nbrec
End Sub

Bon Après Midi
@+Thierry