Bonjour,

j'ai créé plusieurs fonctions de recherche toutes basée sur le même principe et qui fonctionne sauf une qui me donne une erreur de type incompatible.

Toute mes fonction on cette forme exactement:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 Dim thecell As Range
 
 For Each thecell In Range("B1", Cells(Rows.Count, "B").End(xlUp))
     With thecell.Offset(0, 1)
         .EntireRow.Hidden = Year(CDate(.Value)) <> CInt (textbox.value)       End With
 Next
Et elles fonctionne.

Je viens de faire cette même recherche sur un autre document et erreur: type incompatible alors que j'ai bien une date avec l'année de la forme jj/mm/aaaa.

Par ailleurs je fais une recherche sur le mois de la meme forme :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 Dim thecell As Range
 
 For Each thecell In Range("B1", Cells(Rows.Count, "B").End(xlUp))
     With thecell.Offset(0, 1)
         .EntireRow.Hidden = Month(CDate(.Value2)) <>Cint(textbox2.value)
     End With
 Next
Je pense que la syntaxe n'est pas mauvaise mais je me retrouve avec la même erreur que plus haut.

Une idée? Merci.