formule pour n'éditer que des cellules fond coloré

[lucdes]

Bonjour,
j'ai une feuille de calcul qui dans la colonne B a une case par ligne qui est soit colorée (en rouge) si c'est un fournisseur et soit non colorée si c'est autre chose.
il ne me faut extraire que ces lignes qui ont cette case colorée.
Avec quelle fonction peut-on faire cela ?
Par avance merci
lucdes

 

[JeanMikael]

Re : formule pour n'éditer que des cellules fond coloré

Bonjour lucdes,


Regarde ce bout de code

sub test()

Dim cell As Range

For Each cell In Range("B1:B" & Range("B65536").End(xlUp).Row)
If cell.Interior.ColorIndex = 3 Then cell.Copy Destination:=cell.Offset(0, 1)

next cell

end sub

 

[lucdes]

Re : formule pour n'éditer que des cellules fond coloré

Merci pour la macro,
je me suis mal exprimé, et ce que je veux obtenir dans une cellule d'une autre colonne sur la même ligne du tableau un chiffre: 1 si la cellule colonne B est rouge et 0 si elle est différente
mes excuses
lucdes