Extraire des données d'après couleur de remplissage

[Christine]

Bonjour à tous,

Comment puis-je recopier des lignes d'une feuille sur une autre feuille suivant la couleur de remplissage des cellules ???

Merci

Christine

 

[C@thy]

Bonjour Christine,

une question : ta couleur de remplissage est-elle obtenue par un format mise en forme conditionnelle?

 

[Christine]

Bonjour Cathy,

Oui, ma couleur de remplissage est obtenue par un format mise en forme conditionnelle.

Merci pour ton aide

Christine

 

[C@thy]

Aïe, c'est ce que je craignais, dans ce cas ma macro ne marchera pas!

il faudra alors tester non pas la couleur, mais la condition qui donne la couleur, tu me suis?

 

[Christine]

Merci Cathy,

Oui, je te suis. Mes lignes en couleurs représentent les articles en alerte dans un stock.

 

[C@thy]

Donc, ta macro donnerait quelquechose comme ça :

derligne = Range("A65535").End(xlUp).Row
For i = 1 To derligne
If Range("A" & i).Value > ... 'en dépassement' then
Rows(i & ":" & i).Copy
'... coller ailleurs (paste)
End If
Next i