Copier ligne(s) sous condition dans une autre feuille Résolu

Question

Bonsoir la communauté ^^
J'ai cherché d'abord un moyen sans macro, mais n'ai pas trouvé. J'aurais préféré, mais les macros ne me dérangeront pas :)
Je cherche donc à copier des lignes contenant un terme exact d'une feuille à l'autre, et ce, pour trois termes différents.
J'ai bien trouvé ceci, https://forums.commentcamarche.net/forum/affich-28651561-macro-excel-copier-une-ligne-sous-condition mais je ne parviens pas l'adapter à mon fichier
L'idée c'est que lorsque dans la colonne A de la feuille Subventions 2017 il est inscrit strictement "Associations subventionnées en 2016 sans demande 2017", toute la ligne soit copier et coller dans la première ligne vide de la feuille "Subs 2016 sans demande 2017".
En poursuivant, toujours dans la colonne A de la feuille Subventions 2017, lorsqu'il est inscrit strictement "Associations subventionnées en 2016 avec demande 2017", toute la ligne soit copier et coller dans la première ligne vide de la feuille "Subs 2016 et demande 2017".
Idem pour les nouvelles demandes.
Il faudrait que les associations dont le contenu de la colonne A passent de "pas de demande 2017" à "demande 2017" soient supprimés de la feuille "pas de demande" et copier dans la feuille "demande 2017".
Je vous remercie d'avance infiniment pour votre aide ^^
EDIT : le fichier en question : https://www.cjoint.com/c/FLmsEBjh7Ti
Configuration: Configuration: Windows 7 (64 bits)
Google Chrome (dernière version)
Intel(R) Core(TM) i7 CPU
2.4GHz
Mémoire 8,00 Go 
Bien à vous,
Naï
ps: je surveille tous mes sujets non résolus, si solution vous avez, je la lirais à coup sûr :)

yg_be · Answer

Tu veux copier les lignes, ou bien les déplacer?

gbinforme · Answer

Bonjour, 
Voilà ton classeur avec la copie :
https://www.cjoint.com/c/FLmvXMuhg4l 
Idem pour les nouvelles demandes. 
Pour ceci je ne vois pas ce que tu souhaites

yg_be · Answer

Je propose ceci : Option Explicit Sub nai() Dim numligne As Long, numdest As Long Dim dest As String Const ca As String = "Associations subventionnées en 2016 sans demande 2017" Const fa As String = "Subs 2016 sans demande 2017" Const cb As String = "Associations subventionnées en 2016 avec demande 2017" Const fb As String = "Subs 2016 et demande 2017" numligne = 1 Do While Worksheets("Subventions 2017").Cells(numligne, 1) <> "" Select Case Worksheets("Subventions 2017").Cells(numligne, 1) Case ca: dest = fa Case cb: dest = fb Case Else: dest = "" End Select If dest <> "" Then numdest = Worksheets(dest).Cells(5, 1).End(xlDown).Row + 1 Worksheets("Subventions 2017").Rows(numligne).Copy _ Worksheets(dest).Rows(numdest) Worksheets("Subventions 2017").Rows(numligne).EntireRow.Delete Else numligne = numligne + 1 End If Loop 'Do While Worksheet("").Cells(numligne, 1) <> "" End Sub

Nai · Answer

Coucou la communauté ^^
Je poursuis le sujet, puisqu'il est lié, mais s'il faut en créer un nouveau, je le ferais.
Le fichier a quelque peu été adapté, notamment par rapport au MFC, mais j'ai un problème qui, je pense, ne doit pas être lié aux MFC.
En effet, la catégorie "Nouvelles demandes" ne semble pas être pris en compte. Enfin, si, mais juste une entrée :/
Quelqu'un peut-il jeter un oeil aux macros et me dire ce qui cloche ? :)
Fichier : https://www.cjoint.com/c/GAEl0AGQqH2
Merci d'avance :)
Bien à vous,
Naï
ps: je surveille tous mes sujets non résolus, si solution vous avez, je la lirais à coup sûr :)

Copier ligne(s) sous condition dans une autre feuille

4 réponses

Discussions similaires

Newsletters