XL 2019 Mise en forme de cellule

[ThomasLPS]

Bonjour à tous,

J'ai une petite question depuis longtemps.
Pour mes tableaux excel lorsque je fais la mise en forme je sélectionne toujours bordures fines et bordures extérieures épaisses. Cela m'oblige à cliquer a 2 endroits différents.

Est-ce que cela est possible de créer un raccourci pour qu'un cliquant en un seul endroit mes tableaux soient automatiquement avec bordure intérieure fines et extérieures épaisses ?

Je vous remercie,

 

[dysorthographie]

Bonjour,
Il est toujours possibles de créer une macro et de lui apporter un raccourci clavier.

pour ce faire utilise le raccourci clavier [Alt] + [F8]; choisis un macro et click sur Option.

je t'invite à créer un PERSONAL.XLSB pour y implémenter tes macros!

Créer et enregistrer toutes vos macros dans un classeur unique

Créez et enregistrez toutes vos macros dans un classeur unique en les créant dans Personal.xlsb, un classeur masqué qui s’ouvre chaque fois que vous ouvrez Excel. Les macros créées dans Personal.xlsb sont disponibles chaque fois que vous ouvrez un classeur dans Excel.

support.microsoft.com

 

[TooFatBoy]

Bonjour,

Pour mes tableaux excel lorsque je fais la mise en forme je sélectionne toujours bordures intérieures fines et bordures extérieures épaisses. Cela m'oblige à cliquer à 2 endroits différents.

Je n'ai pas bien saisi ce que tu veux dire par-là, mais as-tu envisagé d'éventuellement utiliser des tableaux structurés ?

 

[ThomasLPS]

Oui j'utilise parfois les tableaux proposés par Excel directement mais je ne suis pas très fan...
Finalement j'ai réussi en cherchant plus et en réalisant ma toute première macro
J'ai juste enregistré une macro et j'ai maintenant un raccourci clavier rapide

Merci

 

[job75]

Bonsoir à tous,

Avec le double-clic pas besoin d'un raccourci clavier :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target.CurrentRegion
    If .Count = 1 Then Exit Sub
    Cancel = True
    If .Cells(1).Borders(xlEdgeTop).Weight = xlMedium Then .Borders.LineStyle = xlNone: Exit Sub 'RAZ
    .Borders.Weight = xlThin
    .BorderAround Weight:=xlMedium 'contour
End With
End Sub

A+