XL 2010 Bouton pour faire un retrait gauche du texte de 2

[tchi456]

Bonjour,

J'ai un bouton pour faire un retrait à gauche du texte de 2 mais j'aimerai pouvoir revenir en arrière en cliquant une deuxième fois.
Au lieu de faire un retrait supplémentaire de 2 à chaque clic(+2/+2/+2/+2), j'aimerai qu'à chaque clic le retrait soit +2/-2/+2/-2/+2/-2/etc....

Voici le code actuel:

Sub BoutonTexteRetrait()
    ActiveSheet.Unprotect Password:="."
    Dim Cel As Range
    For Each Cel In Selection
    Cel.IndentLevel = Cel.IndentLevel + 2
    Next Cel
    ActiveSheet.Protect Password:="."
End Sub

Mes meilleures salutations,

Thierry

 

[chris]

Bonjour

Sub BoutonTexteRetrait()
    ActiveSheet.Unprotect Password:="."
    Dim Cel As Range
    For Each Cel In Selection
    Cel.IndentLevel = Cel.IndentLevel + IIf(Cel.IndentLevel = 0, 2, -2)
    Next Cel
    ActiveSheet.Protect Password:="."
End

 

[tchi456]

Bonjour Chris,

Ca fonctionne parfaitement bien avec votre code.
Merci beaucoup pour votre aide.

Bonne fin de journée!