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

tchi456 · 11 Novembre 2021

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

chris · 11 Novembre 2021

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 · 11 Novembre 2021

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

tchi456 · 11 Novembre 2021

Bonjour Chris,

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

Bonne fin de journée!

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

tchi456

XLDnaute Occasionnel

chris

chris

XLDnaute Barbatruc

tchi456

XLDnaute Occasionnel

Discussions similaires