incompatibilté de type sur des dates

dg62

XLDnaute Barbatruc

• 31 Mars 2005

• #2

Bonjour JimRCL


Peux tu joindre ton bout de code ?

 

Vote positif 0 Vote négatif

Dugenou

XLDnaute Barbatruc

• 31 Mars 2005

• #3

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

 

Vote positif 0 Vote négatif

J

Jimrcl

XLDnaute Occasionnel

• 31 Mars 2005

• #4

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

Code:

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

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 31 Mars 2005

• #5

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

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 31 Mars 2005

• #6

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

Cliquez pour agrandir...

Bon Après Midi
@+Thierry

 

Vote positif 0 Vote négatif