1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

Toutes versions Macro: un seul raccourci plusieurs couleurs

Discussion dans 'Forum Excel' démarrée par Ritz, 12 Février 2019 à 10:12.

  1. Ritz

    Ritz XLDnaute Nouveau

    Inscrit depuis le :
    Mardi
    Messages :
    1
    "J'aime" reçus :
    0
    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
     
  2. Chargement...

    Discussions similaires - Macro seul raccourci Forum Date
    XL 2010 Macro qui change un raccourci clavier valable dans un seul fichier Forum Excel 26 Septembre 2018
    raccourcir plusieurs macro en une seule Forum Excel 7 Janvier 2014
    mutualisation de macro par un seul raccourci Forum Excel 12 Septembre 2005
    XL 2010 consolider les donnees de deux fichiers excel en un seul: macro? RechercheV? Forum Excel 19 Décembre 2018
    XL 2016 macro qui se déclenche seule Forum Excel 19 Novembre 2018

  3. sousou

    sousou XLDnaute Accro

    Inscrit depuis le :
    21 Février 2005
    Messages :
    1656
    "J'aime" reçus :
    67
    Habite à:
    La Garenne Colombes
    Utilise:
    Excel 2010 (PC)
    Bonjour
    ceci pour les couleurs
    tu dois pouvoir faire l'équivalent pour le format
     
  4. eriiiic

    eriiiic XLDnaute Barbatruc

    Inscrit depuis le :
    12 Juillet 2008
    Messages :
    2418
    "J'aime" reçus :
    164
    Utilise:
    Excel 2010 (PC)
    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:

  5. sousou

    sousou XLDnaute Accro

    Inscrit depuis le :
    21 Février 2005
    Messages :
    1656
    "J'aime" reçus :
    67
    Habite à:
    La Garenne Colombes
    Utilise:
    Excel 2010 (PC)
    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
     

Partager cette page