Recopier les lignes dons les données de la colonne A sont en rouge

Dull

XLDnaute Barbatruc

• 15 Avril 2010

• #2

Re : Recopier les lignes dons les données de la colonne A sont en rouge

Salut Boby71C, le Forum

Pas sur d'avoir compris mais essaye ce code

Code:

Sub CopyRouge()
Dim C As Range
For Each C In Feuil1.Range("A4:A" & Feuil1.Range("A" & Application.Rows.Count).End(xlUp).Row)
    If C.Font.ColorIndex = 3 Then C.EntireRow.Copy Destination:=Feuil2.Range("A65535").End(xlUp).Offset(1, 0)
Next C
End Sub

Bonne Journée

 

Dernière édition: 15 Avril 2010

Vote positif 0 Vote négatif

Boby71C

XLDnaute Impliqué

• 15 Avril 2010

• #3

Re : Recopier les lignes dons les données de la colonne A sont en rouge

Bonsoir Dull et le forum
Merci beaucoup pour ton aide. C'est ce que je désirai.

Le seul problème, c'est que dans ma situation réelle, je change de fichier, et je ne sais pas comment modifier tn code dans cette situation.

@+

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 16 Avril 2010

• #4

Re : Recopier les lignes dons les données de la colonne A sont en rouge

Salut Boby, le forum

Normalement il n'y a pas de grande difficulté pour déplacer ce code dans ton fichier:

Met le (Code) dans un Module Standard

Remplace le CodeName Feuil1 par Sheets("NomDeTaFeuille") Par exemple, Fait de même pour ta deuxième feuille.

Si la Colonne incriminée n'est pas la Colonne A remplace là par la lettre de ta Colonne

Ce code s'adaptera à tes Plages normalement

n'hésite pas si problème

Bonne Journée

 

Vote positif 0 Vote négatif

Boby71C

XLDnaute Impliqué

• 16 Avril 2010

• #5

Re : Recopier les lignes dons les données de la colonne A sont en rouge

Bonjour Dull et le Forum
Merci pour ton aide qui m'est très précieuse.

Si je n'abuse pas de ta patience, pourrais tu m'indiquer comment effacer les cellules comprises de S4 à IP500 qui sont renseignées en noire et conserver celles qui sont en rouge.

@+

 

Vote positif 0 Vote négatif