Augmenter le retrait du texte ( VBA )

[cd95]

Comment augmenter le retrait du texte dont les lignes qui ont été sélectionnées on donnant à chaque ligne une couleur ( VBA ) ?
Dans ce fichier j'ai utilisé une macro qui ne fonctionne pas comme je veux mais ne fonctionne pas de tout avec du texte !!! Merci de m'aider

 

[Dranreb]

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 :

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

Ou à la rigueur :

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

 

[cd95]

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 :

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

Ou à la rigueur :

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

Voilà en fait je cherche une macro que quand je sélectionne des lignes que j'ai choisi elle m’augmente le retrait du contenu (voir ci-joint le fichier d'exemple)

 

[Dranreb]

Essayez comme ça :

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

 

[cd95]

Essayez comme ça :

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

Merci pour l'essai mais ça ne fonctionne pas

 

[cd95]

Merci pour l'essai mais ça ne fonctionne pas

Ci-joint un modèle sans VBA pour comprendre ce que je cherche

 

[Dranreb]

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

 

[cd95]

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

Je sais mais en fait c'est juste un exemple pour avoir une idée d'avant et après (pour comprendre ce que je cherche)

 

[cd95]

Voici encore le fichier pour illustrer ce que je veux comme résultat. Merci

 

[Dranreb]

Le dernier classeur joint n'est toujours pas équipé de la macro qui obtient bien un résultat sur la plage sélectionnée et que j'ai indiquée, je ne peux donc pas trouver pourquoi ça ne marche pas.

 

[cd95]

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.

Est-ce que vous avez ouvert le fichier sans macro que j'ai envoyé comme exemple pour que vous compreniez ce que je cherche ?

 

[Dranreb]

Oui 36 fois et je m'en fous. Adaptez le processus correct à vos besoins, c'est tout.

 

[cd95]

processus

Merci