Extraction d'une ligne selon un critère
Bonsoir à tous,
Je recherche une solution me permettant d'extraire une ligne complète selon un critère afin de pouvoir y travailler dessus.
Je m'explique :
- Mon critère sera la date du jour en A1 : en sélectionnant la date, je souhaite que la ligne complète ou figure la date soit extraite de la base de données dans "Extraction ligne base".
J'ai mis mon fichier en pièce jointe.
J'ai pensé à utiliser la rechercheV mais la saisie est vraiment longue + si je modifie le fichier je vais devoir retravailler dessus.
Mon fichier est en pièce jointe, si quelqu'un à la possibilité de m'aider je suis preneur
En attendant je recherche encore la solution, si je trouve je la posterai.
Je vous remercie par avance,
Cordialement.
Bonjour GMB,
Merci beaucoup je ne pouvais pas rêver mieux. Je vais de mon côté décortiquer la macro afin d'essayer de comprendre et pouvoir un jour me lancer dedans !
J'avais réussi également à recopier la ligne mais par une fonction rechercheV "adaptée".
En tout cas je ne pouvais pas espérer aussi bien.
Merci encore.
Cordialement.
Bonjour GMB,
Je ne comprends pas pourquoi mais, lorsque j'ouvre la piece jointe, il y a bien le fichier mais je ne vois pas les macro.
Pourrais-tu me les envoyer en ecrit.
Cdlt.
Leo.
Bonjour
Pour voir les macros, il te suffit de taper simultanément sur les touches Alt et F11
OK ?
Bye !
Encore moi,
Oui, c'est ce que j'ai fait mais, la page de macro apparait blanche ...
Merci.
Leo
C'est curieux, sur mon PC ça marche :leo14700 a écrit :Oui, c'est ce que j'ai fait mais, la page de macro apparait blanche ...
Bye !
Merci beaucoup
Leo.
Re,
J'ai vraiment beaucoup a faire pour progresser.
Je souhaite extraire des lignes completes ''contenu dans une seule cellule pour chaque ligne'' dans une autre feuille selon les criteres ''skf, ina, rabourdin'' mais, je n'y parviens pas.
Cdlt.
Leo.
Bonjour
Tu devrais donner au moins un exemple de ce que tu veux obtenir.
Bye !
Encore-moi,
Deplacer de la feuille 1 a 2 les lignes completes contenant les mots skf, ina, rabourdin.
j'ai essaye de programmer quelque chose mais, rien n'y fait. En piece jointe avec les 2 feuilles.
Merci.
Leo
Bonjour,
Merci GMB,
Alors voila grossomodo (pioche a droite a gauche) ce que je veux mais, au lieu d'avoir la boite de dialogue qui s'ouvre, je souhaite mettre dans la macro les conditions du style 'skf' ou 'ina' ou 'rabourdin' etc ..
J'ai des milliers de reference a trier.
Cdlt.
Leo.
Sub Cherche_Copie_Ligne()
Dim strSearch
Dim rg As Range, rgF As Range
Dim i As Integer
Application.ScreenUpdating = False
strSearch = Application.InputBox("Texte à trouver : ")
'On défini ici la plage de cellules contenant les données
' comme étant la région autour de la cellule 1 (A1)
Set rg = Sheets("36012").Cells(1).CurrentRegion
'On boucle sur chaque ligne de la plate
For i = 1 To rg.Rows.Count
'On cherche dans cette ligne la valeur à trouver
Set rgF = rg.Rows(i).Find(strSearch, , xlValues, xlPart)
'Si on la trouve alors rgF n'est pas vide, on copie dans notre onglet Résultats
If Not rgF Is Nothing Then
rg.Rows(i).Copy Sheets("36012@").Range("A60000").End(xlUp).Offset(1, 0)
Set rgF = Nothing
End If
Next i
Application.ScreenUpdating = True
End Sub