Augmenter le retrait dans une cellule en VBA

[daniel1949]

Bonjour le forum,
Je recherche une macro pour automatiser le retrait dans une cellule en fonction du contenu de la cellule adjacente.
Exemple :

A B
1 A Mathieu
2 B Maturin
3 B Antoine
4 A Julien

où dans l'exemple Mathieu est le père et Maturin et Antoine les fils
Merci de votre aide.
Daniel

 

[Pierrot93]

Re : Augmenter le retrait dans une cellule en VBA

Bonjour Daniel,

Pas sûr d'avoir bien compris ton problème... Le mieux serait de mettre sur le forum un tout petit fichier, avec données de départ et le résultat attendu...

bonne journée
@+

 

[tototiti2008]

Re : Augmenter le retrait dans une cellule en VBA

Bonjour Daniel, Bonjour Pierrot ,

Si j'ai bien compris, un essai :

 

[daniel1949]

Re : Augmenter le retrait dans une cellule en VBA

Merci Pierrot du 9, 3...
Ci-joint fichier

 

[Efgé]

Re : Augmenter le retrait dans une cellule en VBA

Bonjour au fil,
On ne peux que constater la redoutable efficacité de la boule de cristal de tototiti2008 .
Cordialement

 

[Pierrot93]

Re : Augmenter le retrait dans une cellule en VBA

Re, bonjour à tous

une autre solution, pour plusieurs niveaux....

Dim c As Range
For Each c In Range("A2:A" & Range("A65536").End(xlUp).Row)
    If Len(c.Value) = 1 Then c.Offset(0, 1).IndentLevel = Asc(UCase(c.Value)) - 65
Next c

bonne journée
@+

Edition : commencer la boucle à la ligne 2...

 

[daniel1949]

Re : Augmenter le retrait dans une cellule en VBA

Merci Pierrot.
Bonne journée.
Daniel

 

[tototiti2008]

Re : Augmenter le retrait dans une cellule en VBA

Re,
Bonjour Efgé,

On ne peux que constater la redoutable efficacité de la boule de cristal de tototiti2008 .

Ben tu vois, ça ne paye pas, même pas eu droit à un merci

 

[daniel1949]

Re : Augmenter le retrait dans une cellule en VBA

(...) Ben tu vois, ça ne paye pas, même pas eu droit à un merci

Tu as raison... Mais tu étais déconnecté ! Maintenant je peux te dire merci.
Bonne journée.
Daniel