Rechercher une date dans plusieurs feuilles

Re : Rechercher une date dans plusieurs feuilles

Bonjour,

voir Pj

http://boisgontierjacques.free.fr/pages_site/cellules.htm#RechercheDate
http://boisgontierjacques.free.fr/fichiers/FindMultiFeuilles2.xls

JB
Formation Excel VBA JB

Re : Rechercher une date dans plusieurs feuilles

Bonjour,

Merci BOISGONTIER pour votre post matinal.... je vais essayer une des solutions..
La déclaration des variables de vos procédures est implicite. Pour des dates, elle devrait être explicite, non?
Cela n'appelle pas de réponse, je vais tester....
encore merci!
Lio

Re : Rechercher une date dans plusieurs feuilles

Re, j'ai essayé?? cela fonctionne!
Mais je souhaiterai
1. tester la valeur saisie sur un plage de cellules range("B6:B11")
2. Sélectionner la cellule et la feuille trouvées

J'ai essayé mais le code ne fonctionne pas, qu'en pensez vous?

Private Sub CommandButton2_Click()
Dim s As Variant
'Dim d As Date
d = InputBox("Date? jj/mm/aa")
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
If d <> "" Then
On Error Resume Next
Range("B6:B11").Find(What:=CDate(d), LookIn:=xlValues).Select
If Err <> 0 Then MsgBox "Inconnu"
End If
End With
Next s

End Sub

Merci...