Macro: un seul raccourci plusieurs couleurs

Ritz

XLDnaute Nouveau
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
 

eriiiic

XLDnaute Barbatruc
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
 

Fichiers joints

sousou

XLDnaute Accro
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
 

Discussions similaires


Haut Bas