Recherche cellule puis recuperation ligne

Bonjour,

J'ai un fichier avec une dizaine d'onglets. chaque onglet comprend des noms et prénom en colonne A;

Je souhaiterais une macro qui en inscrivant le nom (sans le prénom) d'une personne elle m’envoie directement sur l'onglet et la ligne correspondante.

Pour l'instant ce que j'ai réussi à faire c'est juste me dire sur quelle feuille se trouve le nom.

merci de votre aide

cordialement

Bonsoir,

un essai voir si cela te convient.

Cordialement.

Bonjour

Bonjour bigdaddy154

Très simple

Rajoutes la ligne

Sub chercher()
cherche = InputBox("valeur cherchée ?")
Nbre = ThisWorkbook.Sheets.Count
For cptr = 1 To Nbre
    If Application.CountIf(Sheets(cptr).Cells, cherche) > 0 Then
        MsgBox cherche & " se trouve dans la feuille " & Sheets(cptr).Name
       Sheets(cptr).Select
        Exit Sub
    End If
Next
MsgBox "valeur cherchée, " & cherche & ", inconnue.", vbExclamation

End Sub

Bonjour

Un essai en partant de ta macro.

Bye !

PS : Bonjour à Banzaï et Bigdaddy !

bonsoir,

Merci de vos réponses.

les formules fonctionnent

cependant mon exemple n'est pas bon car tous les noms commencent par la même lettre,mais y a t'il une possibilité de mettre juste le nom.

ex: MARTIN Michel qui se trouve en colonne A.

Je tape MARTIN et il me renvoie sur tous les martin.

Merci

cordialement

Bonjour à tous

Nouvel essai

Bye !

Bonjour gmb,

merci de ton aide

C'est la formule dont j'avais besoin.

y a t'il la possibilité qu'elle m'indique également la ligne correspondante STP comme tu me l'avais indiqué sur la première version

cordialement

tseoy

Voilà :

Bye !

merci beaucoup

bonne journée

tseoy

Bonjour,

J'ai voulu transposer la macro sur mon fichier mais elle bloque sur cette ligne, je ne comprends pas pourquoi.

Range("D4").Resize(UBound(v, 2), 3) = Application.Transpose(v)

J'ai rajouté array pour selectionner les onglets concernés

Merci

tseoy