Compléter un code pour sélectionner une ligne

Résolu
Vanessa -  
 Vanessa -
Bonjour,

Mon code est le suivant: 

Sub chercher()
cherche = InputBox("Veuillez saisir la référence recherchée:")
nbre = ThisWorkbook.Sheets.Count
For cptr = 1 To nbre
    If Application.CountIf(Sheets(cptr).Cells, cherche) > 0 Then
        Sheets(cptr).Select
        Exit Sub
    End If
Next
MsgBox "La référence " & cherche & " est introuvable.", vbExclamation

End Sub

Il me permet de saisir une donnée dans une fenêtre pop-up, qui sera recherchée dans tout le classeur. Lorsque la donnée est trouvée, la feuille la contenant s'ouvre, mais j'aimerais aussi sélectionner la ligne contenant la donnée trouvée; que dois-je ajouter?

Merci par avance!
A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

une facon de faire: 

Sub chercher()
    cherche = InputBox("Veuillez saisir la référence recherchée:")
    nbre = ThisWorkbook.Sheets.Count
    For cptr = 1 To nbre
        If Application.CountIf(Sheets(cptr).Cells, cherche) > 0 Then
            Sheets(cptr).Select
            Set cel = Cells.Find(What:=cherche, LookAt:=xlWhole)
            Sheets(cptr).Rows(cel.Row).Select
            Exit Sub
        End If
    Next cptr
    MsgBox "La référence " & cherche & " est introuvable.", vbExclamation

End Sub
2
Vanessa
 
Bonjour,

Cela répond tout à fait à mon attente, merci bcp!
0

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
Pat -

10 réponses