Test sur la couleur d'une cellule

Bonjour à tous,

j'aurais besoin de faire un test sur la couleur d'une cellule. Savez-vous si cela est possible?

Merci d'avance

Bonjour,

peux-tu donner un exemple de fichier ?

Pierrot

Bonjour,

oui c'est possible.

Voilà au revoir, de rien, un plaisir d'aider.

Bonjour,

en annexe tu trouveras un fichier. Je souhaiterais copier le contenu des données de la colonne B en colonne A lorsque la cellule est grise et ne rien faire si ce n'est pas le cas.

Merci pour ton support

Je suis désolé, j'ai seulement trouvé le N° de la couleur grise =15

je n'arrive pas à faire une macro pour copier

le code qui trouve la couleur

Sub indexCouleur()
        MsgBox "Le n° de couleur de fond est : " & ActiveCell.Range("A1").Interior.ColorIndex
    End Sub

Sub Compte_Couleur()
'
' Compte_Couleur Macro
' Totalise les couleurs du tableau
'
' Touche de raccourci du clavier: Ctrl+k
'
    'DAn - 13/05/13
    Dim Cellule As Range
    ' Zone B5:G27
    For Each Cellule In Range("B:B")
        Select Case Cellule.Interior.ColorIndex
            Case Is = 15
Selection .Copy

       End Select
    Next

End Sub

plus, je ne sais pas.

Pierrot

Bonjour, Salut à tous,

Essaye le code suivant :

Sub copierSelonCouleur()
    For Each cel In Range("B3:B" & Range("B" & Rows.Count).End(xlUp).Row)
        If cel.Interior.ColorIndex = 15 Then
            cel.Copy
            cel.Offset(0, -1).PasteSpecial xlPasteAll
        End If
    Next cel
    Application.CutCopyMode = False
End Sub

Bonjour, Raja, TH051

J'ai adapté le code de Raja, qui fonctionne à merveille, on le déclenche avec un double-clic colonne B

j'ai ajouté un code qui efface la colonne A avec un double-clic colonne A

les codes double-clic se trouvent dans le classeur ThisWorkbook ce qui permet leur action sur toutes les feuilles du classeur

Amicalement et un grand merci à Raja

Pierrot