Afficher ligne après une recherche

JonBid Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour à tous !

J'ai un fichier excel où j'ai programmé un bouton qui me permet d'effectuer un recherche. Cependant, je souhaiterais qu'à la suite de cette recherche (d'une référence par exemple), cela affiche la ligne du résultat trouvé.

mon code actuel est le suivant:
Sub Recherche()

Range("A1").Select
Application.Dialogs(xlDialogFormulaFind).Show

End Sub


et cela m'affiche:


Comment puis-je faire ça?
Merci d'avance

JB

1 réponse

cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

Le code que tu montres sélectionne déjà le résultat trouvé.
Ce que tu veux c'est sélectionner toute la ligne?

A mettre dans le module de la feuille concernée:

Option Explicit
Dim ligne As Long
Private Sub CommandButton1_Click()
   Application.CommandBars.FindControl(ID:=1849).Execute
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ligne = ActiveCell.Row
 Rows(ligne & ":" & ligne).Select
End Sub

1
JonBid Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

D'abord merci pour ta réponse (certes je n'y arrive pas encore mais j'y travaille).
Ensuite, je me demandais à quoi servent les 2 premières lignes de ton code?
Option Explicit
Dim ligne As Long


Merci
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729 > JonBid Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
Tu auras la réponse à tes questions ici:

https://silkyroad.developpez.com/VBA/LesVariables/

@+
0