Copie de cellules selon format

Question

Un jour, une question! Heureusement que le week end est la. Ma question est simple. J'ai donc toujours mon classeur avec une douzaine de feuilles dedans. Elles contiennent des listes de noms, et les fonds de cellules des noms et prenoms deviennent rouge ou jaune en fonction de la validation de deux criteres, blanc si rien. J'aimerais savoir s'il est possible dans une feuille annexe de mon classeur, d'avoir des copies de ces listes par couleur, c'est a dire copier toutes les cellules a fond rouge de toutes les feuilles dans une colonne de cette feuille annexe, les jaunes dans une autre... Voici un petit fichier fictif, dites moi si vous avez des erreurs avec (avec les formats surtout): https://www.excel-pratique.com/~files/doc/Exemple_copie_de_cellules_selon_format.xls Une formule serait preferable puisque je suis novice et j'ai un peu de mal a adapter les macros a mon fichier reel ensuite, mais je suis toujours ouvert a toute suggestion! Merci d'avance, Alain...

dubois · Answer

Tu veux juste récupérer le nom ? Claude...

Amadéus · Answer

Une solution.. https://www.excel-pratique.com/~files/doc/Exemple_selon_format_2.xls Cordialement...

Amadéus · Answer

Alain a écrit: Oeuvrant dans la catégorie qualifiée "Formuliste", j'essaie de trouver une solution par formules aux questions qui sont posées. Pour les Macros et VBA, place aux experts...... Cordialement...

Sylvain TBM · Answer

J'ai repris ton problème du début, en essayant de composer avec les différentes infos... Je te propose ceci : https://www.excel-pratique.com/~files/doc/exemple_copie_cellules_filtrees_2.xls Les lignes rouges sont copiées sur la feuille "Rouge", les jaunes sur la "Jaune", les blanches sont ignorées. Comme tu disais dans ton précédent post, la macro ne copie que les infos que tu as sur la feuille active. Peut-être préfèrerais tu passer d'un coup toutes les feuilles en revue ...

Sylvain TBM · Answer

Nouveau Bonjour,

Je crois que je viens de comprendre... (c'est bête ta macro expliquait pourtant, si je l'avais lue...)

Je croyais que tu voulais que la macro mette en place le filtre... Or on est bien d'accord que tu filtres d'abord manuellement, et la macro ne fais que recopier ? Et copie tout en feuille 3 (quel que soit le filtre utilisé) ?

Je commence dans ce sens

Sylvain TBM · Answer

Re,

Difficile d'avancer avec tout ce qui se passe à Pékin...!

Ton code un tout petit peu modifié pour commencer.

Teste et dis nous.

Sub CopyFilter()
'by Tom Ogilvy
Dim rng As Range
Dim rng2 As Range

With ActiveSheet.AutoFilter.Range
 On Error Resume Next
   Set rng2 = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
       .SpecialCells(xlCellTypeVisible)
 On Error GoTo 0
End With
If rng2 Is Nothing Then
   MsgBox "No data to copy"
Else
   Set rng = ActiveSheet.AutoFilter.Range
   rng.Offset(1, -1).Resize(rng.Rows.Count - 1, 3).Copy _
     Destination:=Worksheets("Sheet3").Range("A65536").End(xlUp).Offset(1, 0)
End If
   ActiveSheet.ShowAllData

End Sub

Amadéus · Answer

Pour ceux, qui comme moi, sont réfractaires à VBA, la même en XL4. Sécurité des Macros sur Niveau Moyen, si vous êtes curieux ou intéréssés. https://www.excel-pratique.com/~files/doc/Filtre_selon_criteres.xls Cordialement...