Compléter un code pour sélectionner une ligne
Résolu
Vanessa
-
Vanessa -
Vanessa -
Bonjour,
Mon code est le suivant:
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!
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!
1 réponse
-
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
