Excel vba, macro de recherche

djib -  
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,

J'ai un tableau excel traçant des documents
chaque ligne contenant leurs titres ,leurs références...


Je souhaiterais créer une macro qui permettrait de chercher tous les documents d'une meme référence (que je précise dans un TextBox)
et copier les lignes concernées (depuis l'onglet s'appelant "LDA") dans un nouvel onglet se nomant "Recherche".

j'arrive déja à un petit quelque chose mais voici mon problème:

La macro ne récupère QUE le premier doc du tableau ayant la référence (ou la partie de référence) cherchée or il y en a plusieurs.


voila ce que j'ai fait:



Private Sub CommandButton1_Click()



Dim Cellule As Range
Dim i As Byte
Dim PlageR As Range 'plage sur laquelle on recherche la reference
Set PlageR = Sheets("LDA").Range("M7:M" & Range("M65536").End(xlDown).Row)


Dim PlageC As Range 'tableau dans lequel on copie les lignes trouvées
Set PlageC = Sheets("Recherche").Range("A7:A" & Range("A65536").End(3).Row)

Dim ref_trouvee As Range
Dim ref_cherchee As String

ref_cherchee = TextBox1.Text
Set ref_trouvee = PlageR.Cells.Find(what:=ref_cherchee)


If ref_trouvee Is Nothing Then


        MsgBox "Document absent de la LDA"
Else

        Dim cible As Range
        Set cible = PlageC.Offset(1, 0)
        
    ref_trouvee.EntireRow.Copy
    Sheets("Recherche").Select
        
    cible.Select
    ActiveSheet.Paste
    
    
 
   
   
End If

Set ref_trouvee = Nothing

End Sub




merci d'avance

1 réponse

pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Salut,
Sur CCM, il y a également des astuces.
En cherchant, je t'ai trouvé celle-ci (et encore une fois, merci Lermitte222).
"Laissez-moi deviner... Votre surnom, c'est «Bande Passante»? "
- Le Tribunal des flagrants délires- P.Desproges -
0