Couper-coller ligne sur autre feuille en VBA Résolu/Fermé

Question

Bonjour,

J'ai un fichier excel qui contiens déja une macro qui agit en tant que filtre. En faite ce filtre est utilisé pour identifier les doublons. Mon classeur contiens des données de la colonne A jusqu'a la colonne U et de la ligne 1 jusqu'a la ligne 25 000.

Par exemple lorsqu'un doublon est détecté, la couleur de fond de la cellule se met en vert dans la colonne R.

Maintenant voici mon probleme. Je souhaite que les cellules identifiées en vert dans la colonne R ( les doublons) soient coupées puis collées sur la feuille 2. En faite je ne veux pas seulement que les données en vert de la colonne R soit coupée puis collées, je veux que la ligne entière le soit seulement si la couleur de fond de la colonne R est verte.

Merci de creuser vos méninges :)

onesdf · Accepted Answer

Essaies ca : 


    Sheets("Feuil1").Select
    LigneFeuille2 = 1
    
    NbLignes = 25000
    For i = 1 To NbLignes
        ' Test sur la colonne R
        If Cells(i, 18).Interior.ColorIndex = 4 Then ' 4 étant l'index du vert pétant
            Cells(i, 18).EntireRow.Cut
            Sheets("Feuil2").Select
            Cells(LigneFeuille2, 1).EntireRow.Select
            ActiveSheet.Paste
            Sheets("Feuil1").Select
            LigneFeuille2 = LigneFeuille2 + 1
            NbLignes = NbLignes - 1
        End If
    Next i

Couper-coller ligne sur autre feuille en VBA

1 réponse

Discussions similaires