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
 

eriiic

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
 

Pièces jointes

  • formats cycliques.xlsm
    20.8 KB · Affichages: 13

sousou

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

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 848
dernier inscrit
Djigbenou