Copier ds 1 colonne les cellules colorées d’1 plage variable

Bonjour à tous,

Malgré mes multiples essais je n’arrive pas à trouver une solution à mon problème.

A vraie dire, tout est dans l’intitulé, je souhaite transposer toutes les cellules colorées d’une plage (AN3:BB ?) dont les lignes sont variable dans la colonne BF.

Je reste à votre disposition pour d’autres informations.

Merci d’avance.

Bonjour,

à tester,

Sub test_transfert()
n = 3
For i = Cells(3, "AN").Column To Cells(3, "BB").Column Step 2
    For Each c In Cells(3, i).CurrentRegion
      If c.Interior.ColorIndex <> xlNone Then
        c.Copy Cells(n, "BF")
        n = n + 1
      End If
    Next
Next
End Sub

Bonjour sabV,

Désolé pour le retard et merci pour votre réponse.

Je viens de tester votre code, il fonctionne parfaitement et me satisfait totalement.

Salutations.

Rechercher des sujets similaires à "copier colonne colorees plage variable"