Comment puis-je sélectionner des valeurs de cellules par couleur et les coller dans une colonne séparée?

Question

Mes valeurs de colonne représentent des réponses à choix multiple à une question. La cellule qui est considérée comme "correcte" est colorée en vert. Je veux choisir automatiquement la réponse "correcte" et la coller dans une colonne séparée. Comment puis-je y parvenir, existe-t-il une solution VBA pour cela?

Answer 1

Si je comprends bien ce que vous demandez, quelque chose comme cela devrait fonctionner:

Sub CopyGreen() 
For Each cell In ActiveSheet.Columns("A:D").SpecialCells(xlCellTypeConstants) 
    If cell.Font.Color = RGB(155, 187, 89) Then cell.Copy ActiveSheet.Cells(cell.Row, 5) 
Next cell 
End Sub 

Cela suppose qu'il n'y a qu'une seule réponse correcte par ligne.