Erreur recherche avec find

Bonjour à tous j'ai une erreur dans mon code et je n'arrive pas à la comprendre, pourriez-vous m'aider svp ?

Set Annuel = Worksheets("Congés et HotLine 2015")
S = "Semaine" & " " & Sheets("s1").Range("B3")
   With Annuel
   Annuel.Select
TrouveSemaine = .Range("C11:BM11,C35:BM35,C59:BM59,C84:BM84,C108:BM108,C132:BM132").Find(What:=S, After:=ActiveCell, LookIn:=xlValues, lookat:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=True).Address

Bonjour

Enlèves , After:=ActiveCell parce que ...... heu je ne sais pas

Peut être parce que tu as des zones bien définies

Bonjour,

.find te retourne un objet range. Je verrai mieux :

Set TrouveSemaine = .......
If TrouveSemaine is nothing then
  'trouvé
else
  'trouvé
endif

eric

Merci j'essaye aujourd'hui. Avant ma fonction find donnait un résultat correcte mais d'un coup sans rien changer elle n'as plus fonctionné .

doggerip a écrit :

Merci j'essaye aujourd'hui. Avant ma fonction find donnait un résultat correcte mais d'un coup sans rien changer elle n'as plus fonctionné .

Bonjour, il y a forcément "quelque chose" qui a changé "quelque part" car une fonction ne fait pas de zèle...Elle fait ce qu'elle doit faire sans traiter les données à la gueule du client .

Bonjour

Ma solution .... quelque chose à dire à son sujet parce que je me sens un peu seul là ?

désolé de répondre si tard car j'étais absent.

Je n'ai plus mon fichier avec moi car je suis en formation en ce moment .

Je reprend d'ici 1 semaine