Augmenter le retrait du texte ( VBA )

Dranreb à dit:

Bonjour.
Je ne comprends pas ce que vous voulez faire au vu des deux boucles imbriquées et du nombre d'indentation fonction de la valeur de la cellule ?? …
Comme vous l'expliquez, on dirait que c'est simplement :

VB:

Sub test()
   Selection.IndentLevel = Selection.IndentLevel + 1
   End Sub

Ou à la rigueur :

VB:

Sub test()
   Dim Cel As Range
   For Each Cel In Selection
      Cel.IndentLevel = Cel.IndentLevel + 1
      Next Cel
   End Sub

Cliquez pour agrandir...

Dranreb à dit:

Essayez comme ça :

VB:

Sub test()
   Dim Cel As Range
   For Each Cel In Selection
      Cel.IndentLevel = Cel.IndentLevel + 1
      Cel.Font.ColorIndex = Cel.IndentLevel + 2
      Next Cel
   End Sub

Cliquez pour agrandir...

cd95 à dit:

Merci pour l'essai mais ça ne fonctionne pas

Cliquez pour agrandir...

Dranreb à dit:

Sans VBA, ça ne fonctionne pas, évidemment.

Cliquez pour agrandir...

Dranreb à dit:

Le dernier classeur joint n'est toujours pas équipé de la macro qui marche et que j'ai indiquée, je ne peux donc pas trouver pourquoi ça ne marche pas.

Cliquez pour agrandir...

Dranreb à dit:

processus

Cliquez pour agrandir...