Macro: un seul raccourci plusieurs couleurs

[Ritz]

Bonjour à tous!

Je fais appel à vos lumières parce que je réalise aujourd'hui que je ne sais pas reproduire une macro que j'ai longtemps eu dans un autre job.

En gros, avec le raccourci ctrl + j la cellule devenait bleue avec une police blanche. Quand on refaisait ctrl+j, la cellule bleue devenait rouge avec police noire. Refaire ctrl+j la rendait grise, puis jaune, puis de retour à blanche.

De la même manière, ctrl+m mettait en forme la cellule en k€, re-appuyer sur ctrl+m transformait les k€ en Mn€, et ainsi de suite.

De mon côté, étant très novice en macro, je ne sais faire qu'une seule mise en forme par raccourci. Auriez-vous une idée?

Merci beaucoup et excellente journée!
R

 

[sousou]

Bonjour
ceci pour les couleurs
tu dois pouvoir faire l'équivalent pour le format

 

[eriiic]

Bonjour,

Un exemple.
Tu as juste à mettre tes formats voulus dans des cellules. La macro les récupère et les applique cycliquement.
Pas de limite au nombre de formats.
eric

 

[sousou]

Oups! je crois que j'ai oublié quelque chose.
Sub couleurs()
couleur = Array(13995347, 65535, 255, 0, 16777215)
With ActiveCell
For n = 1 To UBound(couleur) + 1
If .Interior.Color = couleur(n - 1) Then
.Interior.Color = couleur(n Mod (UBound(couleur) + 1))
Exit Sub
End If
Next
End With
End Sub