extraction

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++

RE


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



A+++

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+++