marco+couleur cellule Résolu/Fermé

Question

Bonjour,

Est-ce que quelqu'un à une marco qui puisse lorsque je clique sur les cellules de la colonne B par exemple ca me mette la couleur rouge sur la cellule sélectionné et lorsque je double clique me mette une autre couleur et lorsque je clique encore me remette à l'état initial l'enlève....?

Explication: La couleur rouge indique que je dois faire attention à certaine donnée mais il n'y a pas de chiffre je dois donc le faire moi-même.

La deuxième couleur indique que l'affaire est close...

Et la mise à l'état initial c'est juste au cas où je me trompe de cellule....

gbinforme · Answer

bonjour

Ceci devrait remplir la fonction que tu recherche :

Private Sub Worksheet_BeforeDoubleClick(ByVal sel As Range, Cancel As Boolean)
Cancel = True
If sel.Column = 2 Then
    If sel.Interior.ColorIndex = xlNone Then
        sel.Interior.ColorIndex = 4
    Else
        sel.Interior.ColorIndex = xlNone
    End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal sel As Range)
If sel.Column = 2 Then
    If sel.Interior.ColorIndex = xlNone Then
        sel.Interior.ColorIndex = 3
    Else
        sel.Interior.ColorIndex = xlNone
    End If
End If
End Sub

Marco+couleur cellule

1 réponse

Discussions similaires