[Excel] Macro de recherche toutes feuilles Résolu/Fermé

Question

Bonjour à tous,

je suis actuellement en galère, je souhaite faire une macro excel de recherche d'une suite alpha-numérique.
Pour expliquer avec plus de détails, sur ma première feuille de mon classeur (feuille de "menu"), je souhaite pouvoir entrer ma suite alpha-numérique et ensuite lancer une macro qui me trouvera cette suite au sein des différentes feuilles. Je précise que cette suite est unique et se trouve donc une seule fois au sein des feuilles.

Merci d'éclairer le néophyte que je suis dans ses débuts de macros...

Papou93 · Accepted Answer

Bonjour el osito,

Voici une macro qui j'espère te conviendra :

Private Sub ChercheTexte()
' Parcourt les Feuilles de la 2ème à la dernière
For sh = 2 To Sheets.Count
  With Sheets(sh).Range("a1:iv65536")
    ' recherche la valeur située en 'A1' sur la première feuille
    Set t = .Find(Sheets(1).Range("a1").Value, LookIn:=xlValues)
    If Not t Is Nothing Then
      ' Si la valeur est trouvée, alors
      ' Active la feuille contenant cette valeur
      Sheets(sh).Activate
      ' Récupère l'adresse de la cellule trouvée et la selectionne
      a = t.Address
      .Range(a).Select
      ' Arrête la recherche
      Exit Sub
    End If
  End With
Next

End Sub

Tu peux la saisir telle quelle dans un module de code, ou saisir les lignes situées entre 'Private Sub' et 'End Sub' dans l'événement 'Click' d'un bouton. Les commentaires devraient te suffire à comprendre le déroulement.

Espérant t'avoir été utile.

Cordialement.

Papou93 · Answer

Petite précision :

Si tu saisis ce code dans un module, il te faut remplacer 'Private Sub' par 'Public Sub', autrement tu obtiendras un message d'erreur.

Cordialement.

Sir_DEC · Answer

Et pour accélérer un peu, on peut se contenter de "UsedRange" au lieu de Range("A1:IV65536").

el osito · Answer

Merci bien de tous ces conseils, en plus avec les commentaires j'ai pu comprendre parfaitement la procédure.

Merci à vous deux

Voici le code final :Private Sub CommandButton1_Click()
' Parcourt les Feuilles de la 2ème à la dernière
For sh = 2 To Sheets.Count
  With Sheets(sh).UsedRange
    ' recherche la valeur située en 'C7' sur la première feuille
    Set t = .Find(Sheets(1).Range("c7").Value, LookIn:=xlValues)
    If Not t Is Nothing Then
      ' Si la valeur est trouvée, alors
      ' Active la feuille contenant cette valeur
      Sheets(sh).Activate
      ' Récupère l'adresse de la cellule trouvée et la selectionne
      a = t.Address
      .Range(a).Select
      ' Arrête la recherche
      Exit Sub
    End If
  End With
Next


End Sub

Merci d'aider aussi bien et aussi vite les petits néophytes comme moi, ça nous donne de l'espoir... 

Petite citation au passage : "La connaissance est la seule chose qui s'accroit lorsqu'on la partage." ;-)

bertie312 · Answer

Gros Necro des famille s:)

Je cherche la meme fonction mais qui m'affiche plusieurs resultat, au cas ou le mot recherché se trouve en plusieurs feuiles ??

Bertrand