Afficher ligne après une recherche

Fermé
JonBid Messages postés 7 Date d'inscription jeudi 9 mars 2017 Statut Membre Dernière intervention 30 mars 2017 - 28 mars 2017 à 09:45
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 30 mars 2017 à 18:33
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
A voir également:

1 réponse

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
28 mars 2017 à 11:07
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 jeudi 9 mars 2017 Statut Membre Dernière intervention 30 mars 2017
30 mars 2017 à 15:21
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 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728 > JonBid Messages postés 7 Date d'inscription jeudi 9 mars 2017 Statut Membre Dernière intervention 30 mars 2017
30 mars 2017 à 18:33
Tu auras la réponse à tes questions ici:

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

@+
0