Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Augmenter le retrait dans une cellule en VBA

daniel1949

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Re : Augmenter le retrait dans une cellule en VBA

Bonjour Daniel, Bonjour Pierrot ,

Si j'ai bien compris, un essai :
 

Pièces jointes

  • Classeur1.xls
    25.5 KB · Affichages: 177
  • Classeur1.xls
    25.5 KB · Affichages: 181
  • Classeur1.xls
    25.5 KB · Affichages: 188

Efgé

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Re : Augmenter le retrait dans une cellule en VBA

Re, bonjour à tous

une autre solution, pour plusieurs niveaux....

Code:
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...
 
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…