Désolé Curulis
Merci a vous deux, votre code est plus simple que le mien.
Hier, j'avais réussi a faire comme voici:
J'avais ajouter les valeurs pour la variable couleur.
J'ignore pourquoi, si je clic trop rapidement sur mon bouton, la couleur ne change pas. Par ailleurs, il arrive que la cellule visée ne prenne pas la couleur du bouton, je dois cliquer ailleurs puis revenir sur cette cellule, avez-vous une idée?
Private Sub Worksheet_SelectionChange(ByVal target As Range) 'lorsqu'on clic sur une cellule
If Not Application.Intersect(target, Range("B2:D600")) Is Nothing Then 'clic dans une cellule de colonne B
Selection.Interior.ColorIndex = couleur
End If
End Sub
Private Sub CommandButton3_Click() 'bouton Couleur
If CommandButton3.BackColor = vbRed Then
CommandButton3.BackColor = vbBlue
couleur = 5
ElseIf CommandButton3.BackColor = vbBlue Then
CommandButton3.BackColor = vbGreen
couleur = 4
ElseIf CommandButton3.BackColor = vbGreen Then
CommandButton3.BackColor = vbYellow
couleur = 6
ElseIf CommandButton3.BackColor = vbYellow Then
CommandButton3.BackColor = vbMagenta
couleur = 7
ElseIf CommandButton3.BackColor = vbMagenta Then
CommandButton3.BackColor = vbCyan
couleur = 8
ElseIf CommandButton3.BackColor = vbCyan Then
CommandButton3.BackColor = vbWhite
couleur = 2
ElseIf CommandButton3.BackColor = vbWhite Then
CommandButton3.BackColor = vbRed
couleur = 3
End If
End Sub