Macro Rechercher un texte et copier/coller la ligne

Bonjour à toutes et tous,

je sollicite votre aide pour la création d'une macro. Je débute, j'ai pleins d'idées mais pas les moyens de mes ambitions

Dans feuill2 de mon classeur, j'ai dans la colonne A des noms, et dans les colonnes B et C des informations sur ce client.

Je souhaiterai pouvoir faire dans un formulaire sur feuil1 une recherche par nom et que tout le contenu de la ligne de la feuil2 soit copier/coller sur la feuill1.

Idéalement, je souhaiterai pouvoir modifier les infos sur le formulaire de la feuil1 pour qu'elles s'enregistrent sur la feuil2.

J'ai fait des test avec find mais j'ai du mal à comprendre comment ça marche. Mes If sont incorrects, Bref, a part une boite de dialogue où j'écris le nom, rien ne marche...

Si vous avez des solutions à me proposer, je vous remercie beaucoup.

J'ai trouvé ça sur le forum qui devrait m'aider

Sub MaMacro()

    Dim iBD As Long

    Dim iSP As Long

    Dim BD As Worksheet

    Dim SP As Worksheet

    Dim lig As Range

    Dim xxx As String

    Set SP = Worksheets("SynthesePatient")

    Set BD = Worksheets("Basededonnées")

    dlbd = BD.Cells(Rows.Count, 1).End(xlUp).Row
    dlsp = SP.Cells(Rows.Count, 1).End(xlUp).Row

    For iSP = 3 To dlsp
        With SP
            xxx = SP.Cells(iSP, 1)
            Set lig = BD.Range("A2:A" & dlbd).Find(xxx, LookIn:=xlValues, lookat:=xlPart) ' on peut remplacer xlpart par xlwhole s'il faut une correspondance sur le contenu de toute la cellule
            If Not lig Is Nothing Then
                BD.Rows(lig.Row).Copy Destination:=SP.Cells(iSP, 1)
            Else
                SP.Cells(iSP, i) = SP.Cells(iSP, 1) & " non trouvé"
            End If
        End With
    Next iSP

End Sub

Merci h2so4 qui avait répondu sur le post.

Je vais l'adapter.

Par contre pour faire les modifications et les enregistrer sur la liste, quelqu'un a une idée, svp

Rechercher des sujets similaires à "macro rechercher texte copier coller ligne"