extraction

[Sandrine]

Bonjour,

J'aimerai connaitre la formule ,si elle est existe, qui me permettrait d'extraire que les lignes qui sont en couleurs

Merci d'avance.

Cordialement

 

[Zon]

Bonjour Carine,


Je ne connais pas la réponse en formule mais en macro voilà un début de code, si il y a un motif de couleur dans une cellule alors on copie la cellule dans la colonne B

sub couleur ()
dim i as double

For i=1 to Range("A65536").End(xlUp).Row

if not range("A"&i).interior.colorindex=xlnone then
range("A"&i).copy destination:=range("B"&i)
end if
next i
end sub



A++

 

[Zon]

RE


OUPS m'ai trompé dans le prénom sandrine....



A+++

 

[Zon]

Re,



Décidemment pourquoi mettre i en double alors qu'en integer cela devrait suffir (s'il nya pas plus de 32 767 lignes), vivement le Week-end,

Bon appétit à tous.


A+++