Discussion :

[boanna]

Bonjour,


Est-il possible d'avoir une macro qui groupe pas selon la première ligne mais une nouvelle ligne contenant seulement la colonne A ?

Exemple :

les éléments suivants sont à grouper

Fruits Pomme Col C Col D Col E
Fruits Poire Col C Col D Col E
Fruits Ananas Col C Col D Col E

Au moment du groupement afficher :

+Fruits
Fruits Pomme Col C Col D Col E
Fruits Poire Col C Col D Col E
Fruits Ananas Col C Col D Col E


Merci !

[Philippe Tulliez]

Bonjour,
Les tableaux croisés dynamiques permettent de faire des regroupements

[Menhir]

Si je reformule ta demande, ce que tu souhaites est :
Chaque fois que la valeur de la colonne A change, insérer une nouvelle ligne et y copier la valeur de la cellule A du dessous.
C'est bien ça ?

Dans ce cas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Lig As Long
 
For Lig = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
    If Cells(Ligne, 1) <> Cells(Ligne - 1, 1) Then
        Rows(Ligne).Copy
        Rows(Ligne).Insert
        Range(Cells(Ligne, 2), Cells(Ligne, 5)).ClearContents
    End If
Next Lig
 
Rows(1).Copy
Rows(1).Insert
Range("A1:A5").ClearComments

Cela dit, personnellement, je n'aurais pas fait ça par macro mais avec un indicateur de couleur à l'aide d'une mise en forme conditionnelle.

[boanna]

Je n'arrive pas à exécuter ta macro. J'ai réalisé celle ci-dessous me permettent de grouper les éléments mais celle-ci est groupé selon la premiere ligne. Comme serait il possible dans cette macro d'insérer une ligne avec seulement la colonne A et le reste effacé pour que le regroupement puisse se faire en dessous de cette nouvelle ligne inséré ?

Merci !

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
21
22
23
Option Explicit
 
Dim i&, iD
 
Sub Grouper()
 
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
        If Range("A" & i) = "" Then
            Rows(i).Delete
        End If
    Next i
    iD = 1
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
        Do While Range("A" & i) = Range("A" & iD)
            i = i + 1
        Loop
        If i > iD + 1 Then
            Rows(iD + 1 & ":" & i - 1).Group
        End If
        iD = i
        i = i - 1
    Next i
End Sub

[eriiic]

Bonjour,

pas très compréhensibles tes explications, il faut faire un effort.
Et ce n'est sûrement pas ton code entaché d'erreurs et de nons sens qui aide beaucoup.

Si ça ne te gêne pas que ta ligne supp soit en-dessous au lieu d'au-dessus, 'Données / Plan / Sous-total' te met tes plans sans macro (faire en enregistrement de macro si tu tiens à en mettre une).
Mais selon ce que tu veux faire ensuite le TCD indiqué par philippe est peut-être la solution.
eric

[Menhir]

Je n'arrive pas à executer ta macro.

Tu ne pourrais pas être un brin plus explicative sur le problème rencontré.

J'ai réalisé celle ci-dessous

Je ne sais pas qui a fait ça, mais la première boucle supprime des lignes (quel rapport avec le problème que tu as exposé ?) et la seconde est un plat de spagetti dans lequel une chatte ne retrouverait pas ses petits : la course poursuite des deux indices dans les deux boucles, ça pourrait servir de casse-tête dans un magazine.

Comme serait il possible dans cette macro d'insérer une ligne avec seulement la colonne A et le reste effacé pour que le regroupement puisse se faire en dessous de cette nouvelle ligne inséré ?

Voir la macro de mon précédent message.

[boanna]

Je n'ai pas l'habitude de travailler sur ce genre de problématique n'étant pas développeur ! Concernant la macro que j'ai pris du net je ne sais pas si c'est une macro correcte ou pas !!!! Mes excuses pour le manque de clarté...

En gros. J'ai actuellement les données suivantes

The Kooples Personne A
The Kooples Personne B
The Kooples Personne C
The Kooples Personne D
Etam Personne A
Etam Personne B
Etam Personne C
Etam Personne D


Je souhaiterais réaliser un Groupement sauf que la premiere ligne aurait que la colonne A remplie :

+The Kooples
The Kooples Personne A
The Kooples Personne B
The Kooples Personne C
The Kooples Personne D
+Etam
Etam Personne A
Etam Personne B
Etam Personne C
Etam Personne D


Pour cela j'imagine qu'il faut insérer une nouvelle ligne automatiquement avec le nom de la marque avant d'effectuer le regroupement. En espérant avoir été clair

[eriiic]

Et ça : https://www.developpez.net/forums/d1...e/#post9562518 ??