Year ne fonctionne pas

[JBARBE]

Bonjour à tous,

ci-joint un fichier avec macro qui ne fonctionne pas !

Sub essai()
If Cells(1, 1) = Year(Cells(1, 5)) Then MsgBox "ok"
End Sub

Merci !

 

[MJ13]

Re : Year ne fonctionne pas

Bonjour JBarbe

Pour comprendre il faut debugger ou mettre des msgbox:

Sub essai()
MsgBox Cells(1, 1).Value
MsgBox Year(Cells(1, 5))
If Cells(1, 1) = Year(Cells(1, 5)) Then MsgBox "ok"
End Sub

 

[Dranreb]

Re : Year ne fonctionne pas

Bonsoir.

Histoire de rigoler, essayez celle là :

Sub essai()
MsgBox (Cells(1, 5) = Year(Cells(1, 1))) & vbLf _
     & (Cells(1, 1) = Year(Cells(1, 5)))
End Sub

Edit. Bonjour MJ13

 

[JBARBE]

Re : Year ne fonctionne pas

Bonjour Dranreb et MJ13,

ben non cela ne me fait pas rigoler ce message 1905 à la place de 2013 et l'autre message vrai - faux !

donc cela serait un bug d'excel puisse-que je n'ai pas trouvé la solution sur internet !

Que puis-je faire ?

 

[JCGL]

Re : Year ne fonctionne pas

Bonjour à tous,

Cells(1,1) vaut 41376
Year (Cells(1,5) vaut 2013

Si tu poses :

Option Explicit
Sub essai()
If Year(Cells(1, 1)) = Cells(1, 5) Then MsgBox "ok"
End Sub

Pas de problème.

A+ à tous

 

[JBARBE]

Re : Year ne fonctionne pas

Bonjour à tous,

Cells(1,1) vaut 41376
Year (Cells(1,5) vaut 2013

Si tu poses :

Option Explicit
Sub essai()
If Year(Cells(1, 1)) = Cells(1, 5) Then MsgBox "ok"
End Sub

Pas de problème.

A+ à tous

Quel étourdi ! en effet c'est logique de mettre year pour la cellule cells(1,1) qui contient le format 12/04/2013 !

Ah, il faut que je me repose de l'ordi que j'utilise des heures et des heures !

Merci JCGL et merci pour la démo pour les autres !

bonne soirée