Change couleur

Bonjour,

Quelqu'un pourrait-il m'aidé sur ce code

J'ai trois boutons qui servent a colorier rouge vert bleue une cellule sélectionné

Je voudrai créer qu'un seul bouton qui fasse varier les couleurs de ma cellule

si Rouge passe au Vert si vert passe au bleue si bleue passe au noir si noir passe au Rouge .....

Par avance Merci

Bjr,

Essaie ceci

Sub tri()
    With ActiveCell
    Selection.Font.Bold = False
    Selection.Font.Bold = True
    With Selection.Font
        If .Color = -4165632 Then .Color = -16777024
        If .Color = -16777024 Then .Color = -11489280
        If .Color = -11489280 Then .Color = -4165632
        .TintAndShade = 0
    End With
    End With
End Sub

SteelSon Merci,

Cela ne varie pas de couleur il reste figé a couleur d'origine

Cordialement

En effet, j'aurais du mettre des ElseIf

Autre solution :

Sub triCOULEUR()
    With Selection.Font
        If .ColorIndex = 3 Then
            .ColorIndex = 23
        ElseIf .ColorIndex = 23 Then
            .ColorIndex = 14
        Else
            .ColorIndex = 3
        End If
    End With
End Sub

Bonjour, Salut Steelson !

Sub ChangeCouleurFont()
    With ActiveCell.Font
        Select Case .Color
            Case vbBlack: .Color = vbRed
            Case vbRed: .Color = vbGreen
            Case vbGreen: .Color = vbBlue
            Case vbBlue: .Color = vbBlack
        End Select
    End With
End Sub

Si tu choisis des couleurs autres que les couleurs de base, il faut prédéfinir une palette des couleurs utilisées (tableau qui sera utilisé pour le passage d'une couleur à l'autre)...

Cordialement.

Merci infiniment à vous deux,

c'est parfait !!!!