Sélection d'une ligne en VBA

[jeremy57]

Bonjour à tous,

J 'ai un code qui me permet de faire une recherche dans une base donnée. Ce code me sélectionne automatiquement la cellule que je recherche. comment pourrais-je faire pour qu'à partir de cette cellule, je puisse sélectionner toute la ligne qui correspond pour la couper ensuite et l'inscrire en haut de ma base de donnée

Merci d'avance

 

[Staple1600]

Re : Sélection d'une ligne en VBA

Bonsoir à tous, jeremey57


J'ai un nouveau membre qui me permet ce trait d’humour.
Ce nouveau membre ne pense pas automatiquement à lire (et appliquer) les conseils de la charte.
Comment pourrais-je faire pour qu'à partir de cette boutade, il puisse la lire pour ensuite joindre un fichier exemple en bas de son premier message.

Merci d'avance.

 

[jeremy57]

Re : Sélection d'une ligne en VBA

je vous joints un fichier exemple

 

[Staple1600]

Re : Sélection d'une ligne en VBA

Re

Aie, aie , j'ai échoué.

Pourquoi tu crées plusieurs fils ?
https://www.excel-downloads.com/threads/faire-une-recherche-dans-une-base-de-donnees.175087/
C'est le même fichier non ?

 

[jeremy57]

Re : Sélection d'une ligne en VBA

oui presque mais dans le fichier que je viens d'envoyer, je fais une recherche uniquement par le nom sinon ça pose trop de problèmes.
C'est ça que tu appelles fils? Désolé ais je suis plutot débutant en informatique

 

[Staple1600]

Re : Sélection d'une ligne en VBA

Re

C'est pour cela que je te suggérai de lire la charte du forum
(Pour apprendre comment fonctionne ce forum et comment optimiser les chances de résolution de tes questions)

Pour info:
Un fil = une discussion
Un post = un message dans une discussion

Pour ta question proprement dite, un peu de patience.

EDITION: Voilà, essaye ton code ainsi modifié

Private Sub Rechercher_Click()
Dim rngTrouve As Range, strChaine$
strChaine = TextBox1.Value
Set rngTrouve = ActiveSheet.Columns(2).Cells.Find(what:=strChaine)
Rows(rngTrouve.Row).Select
If rngTrouve Is Nothing Then
MsgBox "Pas trouvé"
Else
Cells.Find(what:=strChaine).Activate
End If
Set rngTrouve = Nothing
End Sub

 

[jeremy57]

Re : Sélection d'une ligne en VBA

Super merci beaucoup, c'est exactement ce que je cherchais. LLe forum est super utile, encore un grand merci