Excel vba, macro de recherche
djib
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 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:
merci d'avance
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
A voir également:
- Excel vba, macro de recherche
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Si ou excel - Guide
1 réponse
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 -
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 -