Copier lignes

[Adriano43]

Bonjour à tous,

Un problème rapide très certainement mais je n'arrive plus à prendre le recul nécessaire pour voir mon erreur sur le code suivant qui doit copier des lignes sous conditions les coller sur un autre onglet, mais il s'arrête uniquement à la première ligne qui remplit la condition sans passer aux autres...

Voici mon code

Public Sub prccopier()

    Dim i As Integer
    Dim derligne As Integer
    derligne = Sheets("Tri").Range("A65536").End(xlUp).Row
        
    Application.ScreenUpdating = False
      Sheets("BDD").Select
      For i = 2 To Sheets("BDD").Range("A5000").End(xlUp).Row
        If Cells(i, 1).Interior.ColorIndex = 3 Then 'si la couleur de la cellule est rouge (3)
           Cells(i, 1).EntireRow.Copy
           Sheets("Tri").Select
           Range("A65536").End(xlUp).Offset(1, 0).Select
           Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
           :=False, Transpose:=False
        End If
      Next i
    
    Application.ScreenUpdating = True
    
End Sub

Cordialement

Adriano43

 

[phlaurent55]

Re : Copier lignes

Bonjour Adriano,

.............le code suivant qui doit copier des lignes sous conditions les coller sur un autre onglet

si j'ai bien compris, la condition est: si la couleur de la cellule est rouge

le code ne me semble pas erroné.

Erreurs possibles:

1- La couleur rouge de la cellule testée est-elle mise par mise en forme conditionnelle (dans ce cas, ça ne fonctionnera pas)
2- es-tu bien certain de la valeur ColorIndex de la cellule testée (rouge ou presque-rouge )

Sans voir le fichier, il m'est difficile d'être plus précis dans la réponse

à+
Philippe