Macro: un seul raccourci plusieurs couleurs

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
467
Réponses
0
Affichages
501
Retour