Condition encore et encore

[denjo]

Bonsoir à tous

je renseigne avec des userform une feuil qui à 54 colonnes dans la colonne AS j'ai un format conditionnel qui change la couleur de la police rouge pour le matin, bleu pour l'aprés-midi.

je voudrai recopier sur la feuil2 toute les lignes ou la colonne AS et rouge,

et sur la feuil3 toutes les lignes ou la colonne AS et bleu.

avec la condition si(ref="";"";ref) je peux bien copier cellule par cellule mais le fichier pèse trop lourd, il doit bien y avoir une fonction pour recopier toute la ligne

Ps: en macro ou pas,

d'avance Merci, et bonne soirée

 

[Mytå]

Bonsoir denjo

Peut-etre ceci fera ....

Option Explicit
Sub copier_couleur()
Dim feuil_2 As Integer, feuil_3 As Integer, ligne As Double
feuil_2 = 1: feuil_3 = 1
For ligne = 1 To Sheets("Feuil1").Range("a65535").End(xlUp).Row
If Sheets("Feuil1").Cells(ligne, 45).Font.ColorIndex = 3 Then
Sheets("Feuil1").Rows(ligne & ":" & ligne).Copy
Sheets("Feuil2").Select
Rows(feuil_2 & ":" & feuil_2).Select
ActiveSheet.Paste
Application.CutCopyMode = False
feuil_2 = feuil_2 + 1
End If
If Sheets("Feuil1").Cells(ligne, 45).Font.ColorIndex = 5 Then
Sheets("Feuil1").Rows(ligne & ":" & ligne).Copy
Sheets("Feuil3").Select
Rows(feuil_3 & ":" & feuil_3).Select
ActiveSheet.Paste
Application.CutCopyMode = False
feuil_3 = feuil_3 + 1
End If
Next ligne
End Sub



A suivre

P.S. Prière d'accuser réception si cela te convient
ou ne convient pas en répondant sur ce Post ... Merci !

 

[denjo]

Bonjour à tous

Merci Myta,

Belle macro, mais rien ne marche. Est-ce qu'elle marche chez toi? peut-être que j'ai mal placer la macro?

Help me, please

Merci,@+

 

[Mytå]

Re denjo

Voila le fichier complet il marche bien

 

[denjo]

Re Myta

Oups, bien sur que ça marche, merci c'est super

salutations