RESOLU - macro qui ne recherche que dans une feuille du classeur

Usine à gaz · 27 Septembre 2015

Bonjour à toutes et à tous,
Tout d'abord, je vous souhaite un beau dimanche ensoleillé,

Me voilà à nouveau avec un souci que je n'arrive pas à résoudre :

J'ai la macro suivante qui m'a été donné sur le forum et que j'ai pu modifier avec un ami :

Code:

Sub rechercher()
Dim rgZoneRecherche As Range, rgLastzoneCell As Range
  Set rgZoneRecherche = Sheets("Repondeurs").Range(ZoneRecherche)
  With rgZoneRecherche.Areas(rgZoneRecherche.Areas.Count)
    Set rgLastzoneCell = Cells(.Row + .Rows.Count - 1, .Column + .Columns.Count - 1)
  End With
  On Error Resume Next
  Set lastCell = rgZoneRecherche.Find(What:=Quoi, _
          After:=IIf(lastCell Is Nothing, rgLastzoneCell, lastCell), _
          LookIn:=IIf(Valeur, xlValues, xlFormulas), _
          LookAt:=IIf(Totalite, xlWhole, xlPart), _
          SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
          MatchCase:=Casse, SearchFormat:=False)
  On Error GoTo 0
  Application.EnableEvents = False
  If Not lastCell Is Nothing Then
    lastCell.Select
Else
    Sheets("Repondeurs").Range(ZoneCliquer).Select
End If
  Application.EnableEvents = True
End Sub

Ce code fonctionne parfaitement mais quand je recherche une info (c'est un n° de tel) qui est dans une autre feuille, il n'y va pas !!!

Je pense que ce le code à modifier est le suivant :

Code:

Set rgZoneRecherche = Sheets("Repondeurs").Range(ZoneRecherche)

et qu'il faut remplacer "Repondeurs" par un truc qui lui indique "tout le classeur" mais je n'arrive pas à trouver.

Je joins un fichier test.

Merci pour votre aide précieuse,
Amicalement,
Lionel,

RESOLU - macro qui ne recherche que dans une feuille du classeur

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Discussions similaires