Format cellule Gras VBA

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.

Bonjour

Pour avoir le choix que l'option soit facultative,il faut je pense une condition

J'ai mis ce code mais rien ne s'applique

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count = 1 And Target.Column = 5 And Target.Row >= 20 And Target.Row <= 48 Then
        Application.SendKeys ("^g") ' Appliquer la combinaison Ctrl+G
        Target.Font.Bold = Not Target.Font.Bold ' Inverser la mise en forme en gras de la cellule sélectionnée
    End If
End Sub

Bonjour,

Traduction de ta Macro :
Quand la selection de la cellule change, si cette cellule est en E20:E48 ;

Application.SendKeys ("^g")

La cellule selectionnée est en gras

Target.Font.Bold = Not Target.Font.Bold

Prends la propriété "Gras" de cette cellule et fait le contraire (enleve ou mets la propriété gras suivant son état actuel).

=> donc tu fais et annule l'action aussitot.
Enleve la ligne Application SendKeys (ça évite le VerrNum off aussi) et ça fonctionnera.

A+

Merci pour la réponse je vais testé