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

  • Initiateur de la discussion Initiateur de la discussion daniel1949
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
@+
 
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
 
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:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
Microsoft 365 DATEDIF
Réponses
11
Affichages
193
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…