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 SubMerci 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