copie colle lignes sous condition de plusieurs onglets Fermé

Question

Bonjour à tous, 
J'ai épluché plusieurs posts sur le sujet mais mon problème contient une particularité que je n'ai pas trouvée...
Je cherche à copier dans le premier onglet (search) les lignes de tous les onglets dont la colonne ANIM contient le mot clef renseigné dans la cellule MOT CLEF de la première feuille.
A titre d'exemple, dans le fichier joint : http://www.cjoint.com/c/GAgrDUHQrHP  j'ai mis deux onglets tests (109 et 121) et j'ai rempli (en les copiant à la main) les lignes des onglets "episodes" contenant le mot clef DANSE.
Le but est que ceci se fasse automatiquement des que je renseigne le champs MOT CLEF de la première feuille...
merci d'avance pour vos eclaircissements :)
Configuration: libre office 5.2.2.2 - Windows 10 / Chrome 55.0.2883.87

yg_be · Answer

Quelle est ton expérience en VBA?

krostif · Answer

En toute franchise : nulle
Mes seules expériences consistent à adapter des petits scripts et ou macros dans des langages relativement simples d’accès pour quelqu'un de curieux dés lors que cela n'entre pas dans des notions de programmation trop complexes.
actionscript / javascript / vba sont des languages qu'il m'est dejà arrivé de "manipuler" donc. Mais sans réelle connaissance...

f894009 · Answer

Bonjour a vous deux,
krostif
votre fichier modifie
entrez lettre pour affichage de toutes les anim qui commencent par la ou les lettres entrees 
entrez * pour toutes les anim
https://www.cjoint.com/c/GAhkDLVIFsf
Disons que j'apprends en marchant comme on dit
Bonne marche

yg_be · Answer

Suggestion:

Option Explicit

Sub cherche()
Dim ongletcible As Worksheet
Dim ongletrecherche As Worksheet
Dim lignecible As Long
Dim critere As String
Dim lignerecherche As Long

Set ongletcible = ThisWorkbook.Sheets("SEARCH")
lignecible = 6
critere = ongletcible.Cells(2, 2)
For Each ongletrecherche In ThisWorkbook.Sheets
    If ongletcible.Name <> ongletrecherche.Name Then
        lignerecherche = 3
        Do While ongletrecherche.Cells(lignerecherche, 4) <> ""
            If ongletrecherche.Cells(lignerecherche, 4) = critere Then
                ongletrecherche.Rows(lignerecherche).Copy _
                    ongletcible.Rows(lignecible)
                lignecible = lignecible + 1
            End If
            lignerecherche = lignerecherche + 1
        Loop 'Do While recherche.Cells(lignerecherche, 3) <> ""
    End If
Next ongletrecherche
End Sub

krostif · Answer

Merci yg_be
Bon si je crée une macro et que j'intègre ce code sous libreoffice j'ai une erreur de synthaxe sur le mot Worksheet dés que je la lance...

krostif · Answer

@ f894009
Merci pour ce fichier qui fonctionne à peu près comme je l'imaginais :)
J'ai juste quelques petits problèmes :
Lorsque je rentre un mot clef c'est la ligne du dessus qui est reportée dans la feuille search.
Là j'avais simplifié pour l'exemple mais j'ai des colonnes de données en plus à rajouter (en gros deux fois plus).
J'ai étudié la macro pour voir comment cela fonctionnait (et j'avoue essayer de régler le premier problème mais je n'y suis pas arrivé ! Il me faudra encore marcher ! Et surement un bon moment ^^ ) En revanche, je sais qu'il existe des fonctions de copie de la ligne entière. Ne serait-il pas mieux d'utiliser ceci plutot que d'en recopier chaque champ ?... Cela me permettrait d'ajouter autant de colonne de données que necessaire sans avoir à modifier la macro...
Lorsque je vide le champs "search" il ne se passe rien. Il faut mettre un espace pour que les lignes se vident (ça à la rigueur ce n'est pas très grave) Mais l'idéal serait que lorsque je vide ce champs, la liste se "nettoie" en quelque sorte.
Ci-joint le fichier que j'ai tenté de customiser ^^
http://www.cjoint.com/c/GAhrjffFZQy
En tout cas merci pour ce code très proche de ce que je cherche à obtenir :)
Je vais reprendre ma marche ;)
Et merci à tous pour vos interventions

f894009 · Answer

Re,
Fichier avec feuille SEARCH code avec tableaux pour recuperer les Infos et feuille SEARCH_1 code avec copie de lignes entieres pour les infos a recuperer, vous pourrez constater laquelle des deux programmation est la plus rapide en execution
https://www.cjoint.com/c/GAilpDVPINf
A+

krostif · Answer

@f894009
ce dernier fichier semble coller parfaitement à ma demande. Je vais le tester en situation réelle (en rajoutant des onglets et des lignes et en améliorant la lisibilité des infos à traiter) mais à priori cela me semble impeccable.
Un grand merci à toi. Je te ferais un retour sur la finalité de son utilisation et sois assuré que je laisserai l'indication de la source de ce tableur à l'intérieur même si à priori cela restera un travail en interne.
Plus globalement merci à tous ceux qui ont amené leur contribution à ce sujet.
On m'a promis un kilos de M&M's si je trouvais une solution à ce problème. J'aurais du mal à les partager avec vous pour vous en faire profiter mais le coeur y sera ^^

Copie colle lignes sous condition de plusieurs onglets

8 réponses

Discussions similaires