Copier les lignes des feuilles dans une autre sous condition

Question

Je débarque tout juste sur ce super forum car j'ai un léger souci Je m'explique... J'ai un fichier contenant 31 feuilles, correspondant aux 31 jours du mois. J'aimerais que toutes les lignes de toutes les feuilles qui contiennent le message "Fraude importante" soient copiées dans une dernière feuille appelée "Fraudes". Après une recherche, je suis tombé sur un bout de code VBA qui m'a déjà bien aidé. Mais il faudrait ajouter la condition que la cellule en G contienne "Fraude importante" pour copier la ligne. Il faudrait aussi que la macro ne m'efface pas la 1ère ligne du fichier Fraudes quand je la lance. Quelqu'un pour m'aider??? Voici le code VBA que j'ai : Sub transfert() 'Macro Dan pour CecileCosma - 20/09/12 Dim dlgR As Integer, dlgi As Integer Dim i As Byte With Sheets("Fraudes") dlgR = .Range("D" &amp; Rows.Count).End(xlUp).Row .Range("A2:M" &amp; dlgR).ClearContents End With For i = 1 To Worksheets.Count If Sheets(i).Name &lt;&gt; "Fraudes" Then 'MsgBox Sheets(i).Name dlgR = Sheets("Fraudes").Range("A" &amp; Rows.Count).End(xlUp).Row With Sheets(i) dlgi = .Range("A" &amp; Rows.Count).End(xlUp).Row .Range("A2:M" &amp; dlgi).Copy Sheets("Fraudes").Range("A" &amp; dlgR + 1) End With End If Next End Sub Je joins également le fichier excel en question PS : Merci Dan pour ton code que j'ai trouvé sur un ancien sujet...

Jean-Eric · Answer

Une proposition Power Query. Nécessite l'installation du complément gratuit de Microsoft. https://support.office.com/fr-fr/article/Présentation-de-Microsoft-Power-Query-pour-Excel-6E92E2F4-2079-4E1F-BAD5-89F6269CD605 https://www.microsoft.com/fr-FR/download/details.aspx?id=39379 Le classeur comporte 31 feuilles par défaut. Les données sont sous forme de tableaux (structurés). L'actualisation est automatique à l'activation de la feuille Fraudes. Pour résumer, pas de VBA, sauf pour l'actualisation de la requête. Cdlt...

Curulis · Answer

Salut Jean-Eric, étant largué en matière de PowerQuery, je me contenterai dinosauresquement de ce code VBA... Code en 'ThisWorkbook', la macro démarrant sur un double-clic dans n'importe quelle feuille. En fonction de tes habitudes de travail, on peut évidemment exécuter cette macro selon la méthode qui te convient le mieux! Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) ' Dim sWk As Worksheet Dim iRow% ' Cancel = True Application.ScreenUpdating = False ' Set sWk = Worksheets("Fraudes") With sWk iRow = .Range("A" &amp; Rows.Count).End(xlUp).Row + 1 .Range("A2:H" &amp; iRow).Delete iRow = 1 End With ' For x = 1 To Sheets.Count If Sheets(x).Name &lt;&gt; "Fraudes" Then With Sheets(x) For y = 2 To .Range("A" &amp; Rows.Count).End(xlUp).Row If LCase(.Range("G" &amp; y).Value) = "fraude importante" Then iRow = iRow + 1 sWk.Range("A" &amp; iRow).Resize(1, 8).Value = .Range("A" &amp; y).Resize(1, 8).Value End If Next End With End If Next sWk.Columns.AutoFit sWk.Activate ' Application.ScreenUpdating = True ' End Sub A+...

Jean-Eric · Answer

Re,

Bonjour curulis57,

Ci-dessous, la requête Power Query, pour consolider les 31 jours du mois.

Seule la première ligne est saisie manuellement. Le reste s'effectue avec les commandes du Ruban dans l'éditeur Power Query.

Moins d'une minute pour réaliser la chose (je ne parle pas de la création des feuilles et des tableaux )

Alors, pas curieux d'en apprendre un peu plus sur la bête ?

Cdlt.

let
    Source = Excel.CurrentWorkbook(),
    #"Lignes filtrées1" = Table.SelectRows(Source, each [Name] <> "T_Fraudes" and [Name] <> "T_Actualisation"),
    #"Valeur remplacée" = Table.ReplaceValue(#"Lignes filtrées1","T_","",Replacer.ReplaceText,{"Name"}),
    #"Colonnes renommées" = Table.RenameColumns(#"Valeur remplacée",{{"Name", "Jour"}}),
    #"Content développé" = Table.ExpandTableColumn(#"Colonnes renommées", "Content", {"Heure", "Ligne", "Parcours", "ODM",
     "Localité", "Chauffeur", "Message", "Réponse"}, {"Heure", "Ligne", "Parcours", "ODM", "Localité", "Chauffeur", "Message", "Réponse"}),
    #"Lignes filtrées" = Table.SelectRows(#"Content développé", each ([Heure] <> null) and ([Message] = "Fraude importante")),
    #"Colonnes permutées" = Table.ReorderColumns(#"Lignes filtrées",{"Jour", "Heure", "Ligne", "Parcours", "ODM", "Localité", "Chauffeur", "Message", "Réponse"})
in
    #"Colonnes permutées"

Curulis · Answer

Pourquoi double-cliquer sur une cellule pour la modifier ? Une simple sélection suffit ! Cela dit, on peut démarrer depuis un bouton, depuis une cellule précise..., etc... @Jean-Eric : houla, tu as dû passer un mois de retraite pour apprendre quasi un nouveau langage ! Je ne sais déjà pas comment installer la bête! Bon, j'ajoute donc PowerQuery aux TCD et Dico : va être chaude, la retraite... A+...

Jean-Eric · Answer

@curulis57, Pour Excel 2016 et les versions ultérieures, Power Query est natif (Ruban, Données,Récupérer et transformer des données). https://support.office.com/fr-fr/article/aide-de-microsoft-power-query-pour-excel-2b433a85-ddfb-420b-9cda-fe0e60b82a94?ui=fr-FR&rs=fr-FR&ad=FR Cdlt...

Curulis · Answer

Salut l'équipe,

@Jean-Eric, j'ai trouvé la bête (pas compliqué, tu me diras!), chipoté un peu (mal, certainement), pu implanter ta requête et obtenu deux feuilles de résultats (1 pour chaque feuille de données du fichier reçu, sans doute) : une correcte, l'autre acceptant d'autres messages de la colonne [G:G].

Faudrait un peu bosser dessus, évidemment... mais pas dans l'immédiat...

Faut un début à tout, n'est-ce pas ?

Merci pour l'étrier, en tout cas!

A+