Discussion :

[gregory.d]

Bonjour à tous,

Je suis confronté à un soucis dans Excel.

Après avoir copier/coller des données dans un tableau croisé dynamique, j'ai une liste avec des retraits de ce style :

Fournisseur 1
-----Famille 1
---------Sous famille 1
--------------Article 1
--------------Article 2
-----Famille 2
--------- Sous famille 2
--------------Article 3
--------------Article 4
Fournisseur 2
...

Et ce dans une même colonne. Le seul point différenciant est le retrait.

Je souhaiterai avec une macro, obtenir plusieurs colonnes avec ces informations :

Fournisseur 1 Famille 1 Sous famille 1 Article 1
------------------------------------------Article 2

Fournisseur 2 Famille 2 Sous famille Article 3
------------------------------------------Article 4

Le seul point différenciant est le retrait

Quelqu'un peut-il m'aider ? avec ou sans macro

Merci

Grégory

[Kimy_Ire]

Bonjour gregory.d,

Ce que tu appelles "retrait" ce sont des espaces ?

Cordialement,
Kimy

[gregory.d]

Bonjour et merci pour ta réponse

Il s'agit d'un retrait au sens excel, voici l'icone :



Merci

Grégory

[Kimy_Ire]

gregory.d,

La propriété VBA Range.IndentLevel te permet de récupérer le nombre d'indentation d'une cellule.
Ainsi, il est facilement faisable de placer la valeur, ainsi indentée, dans une autre colonne en checkant le nombre d’indentations.
Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
 
Sub LvlindentToColumn()
Dim oRng As Range
Dim i As Integer
 
With Worksheets("Feuil1")
    Set oRng = .Range("A1")
    For i = 0 To .Cells(.Rows.Count, 1).End(xlUp).Row - 1
        With oRng.Offset(i, 0)
            If .IndentLevel <> 0 Then
                oRng.Offset(i, .IndentLevel).Value = .Value
                .IndentLevel = 0
                .Value = ""
            End If
        End With
    Next i
End With
 
End Sub

En revanche, pour ce qu'il s'agit du formalisme que tu souhaites il est nécessaire de réaliser un code bien plus spécifique.

Dans l'attente de ton retour.
Cordialement,
Kimy

[gregory.d]

Merci pour ton aide

J'ai personnalisé le code à mon classeur.

Résultat : il me supprimer toute les information sauf le premier niveau d’indentation, il me conserve selon le descriptif ci dessous fournisseur 1 et fournisseur 2

Fournisseur 1
-----Famille 1
---------Sous famille 1
--------------Article 1
--------------Article 2
-----Famille 2
--------- Sous famille 2
--------------Article 3
--------------Article 4
Fournisseur 2

Quels sont les éléments à changer pour la 2e puis 3e indentation ?

Merci

Grégory

[gregory.d]

Cela fonctionne super bien ne pas tenir compte de mon message précédent

Merci à toi

Je clôture le post

Bien cordialement

Grégory