Raccourcis clavier

[anthonygg]

Bonjour,

J'aimerai que quand j'appuie sur le bounton F2 du clavier par exemple, cela me mette la cellule en jaune.
Est ce possible ? Si oui comment faire ?

Merci

 

[anthoYS]

Re : Raccourcis clavier

Bonjour,



esssaye d'enregistrer la macro correspondant à ça.
j'ai essayé et on ne peut qu'en touche raccourci Ctrl+"une lettre ou un chiffre"...
en Ctrl+a par exemple on a ça :

Sub colore_en_jaune()'
' colore_en_jaune Macro
'
' Touche de raccourci du clavier: Ctrl+a
'
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

à+

 

[job75]

Re : Raccourcis clavier

Bonjour anthonygg, anthoYs,

Dans le ThisWorkbook du fichier joint :

Private Sub Workbook_Open()
Application.OnKey "{F2}", "ThisWorkbook.jaune"
End Sub

Sub jaune()
ActiveCell.Interior.ColorIndex = 6
End Sub

Edit : téléchargez le fichier pour tester.

A+

 

[chris]

Re : Raccourcis clavier

Bonjour
Coucou Job75 🙂

A noter que si c'est pour ton propre usage, tu peux détourner la touche F2 de sa vocation initiale mais si c'est pour partager le classeur, sache que c'est une touche importante et que tu risques de priver des utilisateurs de son usage.

 

[anthonygg]

Re : Raccourcis clavier

Bonjour anthonygg, anthoYs,

Dans le ThisWorkbook du fichier joint :

Private Sub Workbook_Open()
Application.OnKey "{F2}", "ThisWorkbook.jaune"
End Sub

Sub jaune()
ActiveCell.Interior.ColorIndex = 6
End Sub

Edit : téléchargez le fichier pour tester.

A+

Super ! Est ce que c'est possible de mettre en jaune toute la selection et pas juste une case ?
ça serait PAR FAIT

 

[job75]

Re : Raccourcis clavier

Est ce que c'est possible de mettre en jaune toute la selection et pas juste une case ?

Sub jaune()
ActiveCell.Activate 'au cas où un objet serait sélectionné
Selection.Interior.ColorIndex = 6
End Sub

A+

 

[anthonygg]

Re : Raccourcis clavier

Sub jaune()
ActiveCell.Activate 'au cas où un objet serait sélectionné
Selection.Interior.ColorIndex = 6
End Sub

A+

Super ça marche !

 

[anthoYS]

Re : Raccourcis clavier

bonsoir,


https://www.excel-downloads.com/forums/forum-excel.7/

tu peux mettre en résolu ton sujet pour le bien du forum (que l'on sache qu'il est résolu).
je t'ai mis le lien, tu double clique sur le titre de ton sujet et tu l'édites par un "[résolu]".

rien d'obligatoire juste accéssoire mais c'est mieux comme ça.


à+