Augmenter le retrait du texte ( VBA )

cd95 · 30 Mars 2019

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 · 30 Mars 2019

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

cd95 · 30 Mars 2019

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

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 · 30 Mars 2019

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

cd95 · 30 Mars 2019

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

Merci pour l'essai mais ça ne fonctionne pas

cd95 · 30 Mars 2019

cd95 à dit:
Merci pour l'essai mais ça ne fonctionne pas

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

Dranreb · 30 Mars 2019

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

cd95 · 30 Mars 2019

Dranreb à dit:
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 · 30 Mars 2019

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

Dranreb · 30 Mars 2019

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 · 30 Mars 2019

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.

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 · 30 Mars 2019

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

cd95 · 30 Mars 2019

Dranreb à dit:
processus

Merci

Augmenter le retrait du texte ( VBA )

cd95

XLDnaute Occasionnel

Pièces jointes

Dranreb

XLDnaute Barbatruc

cd95

XLDnaute Occasionnel

Pièces jointes

Dranreb

XLDnaute Barbatruc

cd95

XLDnaute Occasionnel

Pièces jointes

cd95

XLDnaute Occasionnel

Pièces jointes

Dranreb

XLDnaute Barbatruc

cd95

XLDnaute Occasionnel

cd95

XLDnaute Occasionnel

Pièces jointes

Dranreb

XLDnaute Barbatruc

cd95

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

cd95

XLDnaute Occasionnel

Discussions similaires