Code couleur noir

Bonjour,

J'ai besoin d'un coup de main pour corriger mon code.

Je veux qu'il me copie/colle les lignes de couleur noir (ou automatique, de base ...) mais je ne trouve pas le bon chiffre. Quand je mets 10, donc vert, ça marche. Après recherche j'ai essayé 1, 0, et m^me RGB(0,0,0), rien n'y fait.

Merci d'avance.

Sub ModifTexte()

Dim Cel As Range

Dim Depart As String

'**creer la nouvelle feuille**

On Error Resume Next 'On s'affranchit de toute les erreurs dans le code

Sheets("NON TRAITEES").Value.Visible = True 'Mettre sa propriété Visible à True

'(offre une valeur d'erreur:0 si la feuille existe)

Faute = Err.Number 'recupere le n° d'erreur

On Error GoTo 0 'réinitialise les erreurs

If Faute > 0 Then 'si..alors*

Sheets.Add After:=Sheets(Sheets.Count)

ActiveSheet.Name = "NON TRAITEES" ' a remplacer par ce que tu veux (meme range("A1").value par exemple)

Else 'sinon...*

MsgBox "Feuille existante"

Exit Sub

End If '...fin d'if*

'**transfere les lignes NOIR vers la NON TRAITEES**

'Sheets("NON TRAITEES").Activate

lignesuiv = Cells(Rows.Count, 1).End(xlUp).Row + 1 'ligne vide suivante

Sheets("feuil1").Activate

For i = 1 To 768

If Rows(i).Font.ColorIndex = 10 Then

Rows(i).Copy Sheets("NON TRAITEES").Rows(lignesuiv)

lignesuiv = lignesuiv + 1

End If

Next i

End Sub

Salut Eloïse,

Essaye cette macro sur la selection en cours :

Sub TrouverIndexCouleur()
    MsgBox ("Index couleur police = " & Selection.Font.Color)
End Sub

Ca te donnera l'index pour la couleur du texte. Si tu veux la couleur du fond de la cellule, remplace Font par Interior.

Cordialement,

Uras

Bonjour,

regarde peut être ceci :

.Font.ColorIndex = xlAutomatic

mais pas sur que tu puisses tester une ligne entière, pas sur du résultat si une seulle cellule diffère...

bonne journée

@+