Compléter un code pour sélectionner une ligne

Résolu/Fermé

Vanessa - 17 févr. 2014 à 17:03
Vanessa - 18 févr. 2014 à 18:24

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:

Compléter un code pour sélectionner une ligne
Aller à la ligne excel - Guide
Hors ligne instagram - Guide
Vente en ligne particulier - Guide
Code asci - Guide
Code puk bloqué - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
18 févr. 2014 à 09:03

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

Vanessa
18 févr. 2014 à 18:24

Bonjour,

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

Discussions similaires

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

Statut « en ligne » alors que non

Ligne occupée : pourquoi mon téléphone sonne occupé ?

Discussions similaires

Newsletters