C Christine Guest 13 Octobre 2003 #1 Bonjour à tous, Comment puis-je recopier des lignes d'une feuille sur une autre feuille suivant la couleur de remplissage des cellules ??? Merci 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 C@thy Guest 14 Octobre 2003 #2 Bonjour Christine, une question : ta couleur de remplissage est-elle obtenue par un format mise en forme conditionnelle? Vote positif 0 Vote négatif
Bonjour Christine, une question : ta couleur de remplissage est-elle obtenue par un format mise en forme conditionnelle?
C Christine Guest 14 Octobre 2003 #3 Bonjour Cathy, Oui, ma couleur de remplissage est obtenue par un format mise en forme conditionnelle. Merci pour ton aide Christine Vote positif 0 Vote négatif
Bonjour Cathy, Oui, ma couleur de remplissage est obtenue par un format mise en forme conditionnelle. Merci pour ton aide Christine
C C@thy Guest 14 Octobre 2003 #4 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? Vote positif 0 Vote négatif
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?
C Christine Guest 14 Octobre 2003 #5 Merci Cathy, Oui, je te suis. Mes lignes en couleurs représentent les articles en alerte dans un stock. Vote positif 0 Vote négatif
Merci Cathy, Oui, je te suis. Mes lignes en couleurs représentent les articles en alerte dans un stock.
C C@thy Guest 14 Octobre 2003 #6 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 Vote positif 0 Vote négatif
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