erreur d'incompatibilité type

Staple1600

XLDnaute Barbatruc

• 7 Novembre 2012

• #2

Re : erreur d'incompatibilité type

Bonjour


Cela marche mieux ainsi

Code:

Sub da()
[A1] = CDate("09/06/2009")
MsgBox (Sheets(1).Range("A1") - Date) 'pour test
If ((Sheets(1).Range("A1") - Date) <= 84) Then
MsgBox "vrai"
Else
MsgBox "faux"
End If
End Sub

PS: Mais c'est pas plutôt l'inverse qu'il faudrait faire ?
MsgBox (Date- Sheets(1).Range("A1") 'pour test

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 7 Novembre 2012

• #3

Re : erreur d'incompatibilité type

bonjour,

essai comme ceci, si cells est vraiment une date !?

Dim DateTmp As Date
DateTmp = Sheets(1).Range("AE1")
If DateTmp - Date <= 84 Then

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Novembre 2012

• #4

Re : erreur d'incompatibilité type

Ren bonjour Roland_M


Comme dit précédemment

Code:

Sub b()
[A1] = CDate("15/08/2012")
MsgBox "AUJOURDHUI - 84 = " & (Date - 84) 'pour test
If ((Date - Sheets(1).Range("A1")) <= 84) Then
MsgBox "vrai"
Else
MsgBox "faux"
End If
End Sub

 

Vote positif 0 Vote négatif

K

knl2

XLDnaute Nouveau

• 7 Novembre 2012

• #5

Re : erreur d'incompatibilité type

Bonjour, Je vous remercie pour vos reponses et commentaires qui m'ont étaient très utiles. J'ai essayer le code de staple1600. le code marche très bien sur un autre fichier. Mais le vrai problème ici et que sheets(1) et en lecture seul et j'ai tjrs incompatibilité type.
Vous aurez une idée comment procéder.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Novembre 2012

• #6

Re : erreur d'incompatibilité type

Re


Pourquoi ton classeur est-il ouvert en lecture seule?

Ou veux-tu dire que ta feuille est protégée?

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 7 Novembre 2012

• #7

Re : erreur d'incompatibilité type

salut

cette erreur doit être provoquée par un contenu de Sheets(1).Range("A1") non numérique !
Contrôle donc le contenu de cette cellule. Si... Range("A1") ne prète pas à confusion par contre Sheets(1)...

 

Vote positif 0 Vote négatif