XL 2016 Format cellule Gras VBA

[medsoft313]

Bonjour à tous,
J'ai un fichier Excel en VBA protéger par mot de passe, la plupart des cellules sont verrouillé sauf la plage E20:E48 de ma feuille.
J'aimerais que utilisateur puisse mettre le texte écrit dans cette plage en gras cette option est facultatif.
J'ai trouvé ce code
Worksheets("Sheet1").Range("E20:E48").Font.Bold = True
mais le problème et que le format de la plage se transforme en gras dès l'écriture alors que moi je veux cette option est facultatif.
Merci d'avance.

 

[medsoft313]

Comment exécuter ce code dans Worksheet_Activate()

Sub Gras()
'raccourci clavier Ctrl+g
With Sheets("Feuil1")
    If ActiveSheet.Name <> .Name Then Exit Sub
    If Intersect(ActiveCell, .[E20:E48]) Is Nothing Then Exit Sub
    .Protect "toto", UserInterfaceOnly:=True
    ActiveCell.Font.Bold = True
End With
End Sub

 

[job75]

Le code est destiné à être lancé par combinaison de touches comme vous l'avez demandé.

 

[medsoft313]

Ah d'accord je me suis trompé merci infiniment pour ton aide

 

[medsoft313]

J'ai collé le code dans un module et lorsque je mis ctrl+g rien ne marche

 

[job75]

Il faut bien sûr avoir créé les raccourcis clavier, voyez mon fichier du post #15 :

- touches Alt+F8 pour afficher les macros

- sélectionner la macro et cliquer sur le bouton Options.

 

[medsoft313]

Bonjour, job75 ça marche super bien merci infiniment.