VBA - Bouton changement texte en gras/pas gras

Bonjour,

Je souhaite créer un bouton qui me change le texte en gras/pas gras sur les cellules sélectionnées (feuille verrouillée par mot de passe).

J'ai déjà un code qui fonctionne très bien pour un bouton qui me change de couleur (noir/rouge).

Est-il possible de l'adapter pour un changement gras/pas gras?

Sub BoutonCouleur()
    Dim C As Range
    Me.Unprotect (".")
    For Each C In Selection              ‘boucle sur chaque cas
        C.Font.Color = IIf(C.Font.Color = vbRed, vbBlack, vbRed)
    Next
    Me.Protect Password:="."
End Sub

Genre:

Sub BoutonGras()

C.Font.Bold = IIf(C.Font.Bold=.....

Meilleures salutations,

Thierry

Bonjour,

Voici un essai :

Sub BoutonCouleur()
    Dim C As Range
    Me.Unprotect (".")
    For Each C In Selection              ‘boucle sur chaque cas
        with C.Font
            .bold = not .bold
        end
    Next
    Me.Protect Password:="."
End Sub

Cdlt,

Bonjour Thierry et 3GB j'avais quelque chose dans le même genre

Sub BoutonGRAS()
    Dim C As Range
    ActiveSheet.Unprotect Password:="."
    For Each C In Selection
    'boucle sur chaque cas
        If C.Font.Bold = True Then
     C.Font.Bold = False
     Else
     C.Font.Bold = True
     End If
    Next
    ActiveSheet.Protect Password:="."
End Sub

Bonjour 3GB et Xmenpl,

Merci à vous deux pour votre aide.

Xmenpl; votre code fonctionne parfaitement bien.

Mes meilleures salutations et bon début de semaine!

Ca fonctionne aussi bien pour le texte italique/pas italique:

'Bouton mettre le texte italique/pas italique

Sub BoutonItalique()
    Dim C As Range
    ActiveSheet.Unprotect Password:="."
    For Each C In Selection
    'boucle sur chaque cas
        If C.Font.Italic = True Then
     C.Font.Italic = False
     Else
     C.Font.Italic = True
     End If
    Next
    ActiveSheet.Protect Password:="."
End Sub

Par contre ça ne fonctionne pas pour le texte souligné/pas souligné:

'Bouton mettre le texte souligné/pas souligné

Sub BoutonSouligné()
    Dim C As Range
    ActiveSheet.Unprotect Password:="."
    For Each C In Selection
    'boucle sur chaque cas
        If C.Font.Underline = True Then
     C.Font.Underline = False
     Else
     C.Font.Underline = True
     End If
    Next
    ActiveSheet.Protect Password:="."
End Sub

Ca souligne une première fois mais ça n'enlève pas le soulignement .

Voilà le code pour le texte souligné/pas souligné:

'Bouton mettre le texte souligné/pas souligné

Sub BoutonSouligné()
    Dim C As Range
    ActiveSheet.Unprotect Password:="."
    For Each C In Selection
    'boucle sur chaque cas
        If C.Font.Underline = xlUnderlineStyleNone Then
     C.Font.Underline = True
     Else
     C.Font.Underline = False
     End If
    Next
    ActiveSheet.Protect Password:="."
End Sub

Ce n'est pas pareille avec le soulignement vous pouvez d'ailleurs vous en rendre compte avec votre première ligne.

elle n'utilise pas de =true ou = false...

Sub BoutonSouligné()
    Dim C As Range
    ActiveSheet.Unprotect Password:="."
    For Each C In Selection
    'boucle sur chaque cas
        If C.Font.Underline = xlUnderlineStyleNone Then
     C.Font.Underline = xlUnderlineStyleSingle
     Else
     C.Font.Underline = xlUnderlineStyleNone
     End If
    Next
    ActiveSheet.Protect Password:="."
End Sub