Attribuer une couleur à un raccourci clavier

Dull

XLDnaute Barbatruc

• 8 Avril 2010

• #2

Re : Attribuer une couleur à un raccourci clavier

Salut nicocontrole, le Forum

As-tu essayer L'enregistreur de Macro

Rien de Plus Simple

Outils/macro/nouvelle Macro
et tu as ça



ensuite tu met w dans la petite case à coté de Ctrl+
puis tu click sur Ok

tu colorie ta case en jaune pour cette Macro et quant c'est fini click sur Arrêter l'enregistrement

et tu as ta première Macro

fait de même pour tes autres Couleurs

Bonne Journée

 

Vote positif 0 Vote négatif

N

nicocontrole

XLDnaute Junior

• 8 Avril 2010

• #3

Re : Attribuer une couleur à un raccourci clavier

Salut DULL

Désolé, mais cette méthode fonctionne si tu veux l'attribuer à la case enregistée dans la macro, mais si je veux l'attribuer à d'autres cases, ça ne fonctionne pas. La macro exécute la case enregistrée.

Qu'en penses-tu?

@+

 

Vote positif 0 Vote négatif

blord

XLDnaute Impliqué

• 8 Avril 2010

• #4

Re : Attribuer une couleur à un raccourci clavier

Bonjour,

Dans le code de ta macro remplace la cellule nommée par ActiveCell...

La couleur se mettra alors dans la cellule active de ta feuille Excel...

Blord

 

Vote positif 0 Vote négatif

N

nicocontrole

XLDnaute Junior

• 8 Avril 2010

• #5

Re : Attribuer une couleur à un raccourci clavier

Salut Blord

Voilà ce qu'était le code de la macro:

Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 08/04/2010 par Commentaire
'
' Touche de raccourci du clavier: Ctrl+w
'
Range("A93:C93").Select
Selection.Interior.ColorIndex = 40
End Sub

et voici par quoi je l'ai modifié:

Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 08/04/2010 par Commentaire
'
' Touche de raccourci du clavier: Ctrl+w
'
Range("ActiveCell").Select
Selection.Interior.ColorIndex = 40
End Sub

Et là, ça bug

Peux-tu m'aider STP

Merci d'avance

@+

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 8 Avril 2010

• #6

Re : Attribuer une couleur à un raccourci clavier

Bon jour,

essaie, en changeant la lettre (w pris par Excel)

Code:

Sub Macro3()

' Touche de raccourci du clavier: Ctrl+[B]u[/B]
'
  [B]ActiveCell[/B].Interior.ColorIndex = 40
End Sub

 

Vote positif 0 Vote négatif

blord

XLDnaute Impliqué

• 8 Avril 2010

• #7

Re : Attribuer une couleur à un raccourci clavier

Bonjour,

Utilise le code suivant :

With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With

Blord

 

Vote positif 0 Vote négatif

N

nicocontrole

XLDnaute Junior

• 8 Avril 2010

• #8

Re : Attribuer une couleur à un raccourci clavier

Merci Blord et Lii

Les deux solutions fonctionnent.

Je me suis aperçu que le problème provenait du fait que je changais de case avant la fin de la macro et c'est pour celà que ça ne fonctionnait pas.

Merci encore pour votre coup de main.

@+

 

Vote positif 0 Vote négatif