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

tchi456

XLDnaute Occasionnel
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:

VB:
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
 
Solution
Bonjour
VB:
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

chris

XLDnaute Barbatruc
Bonjour
VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
313 311
Messages
2 097 039
Membres
106 816
dernier inscrit
Garry972