Grouper lignes / elements identiques d'une colonnes

Bonjour ice cream (j'adore les glace !!)

voici la macro :


sub group()

dim tab as variant

tab = range("A1:B0")

for i = 1 to 20

Bonjour,
je souhaiterai grouper les lignes par rapport au données d'une colonne, rien
ne vaut un bon exemple :

col1 col2
toto 50
tata 50
tutu 50
fofo 100
fafa 100
lolo 300
lili 300

J'aimerai donc pouvoir grouper les lignes par rapport au données de la
colonne 2 pour obtenir le résultat suivant

+
-toto 50
tata 50
tutu 50
+

ou

col1 col2
+toto 50
+fofo 100
+lolo 300

Vous aurez compris que lorsqu'on appui sur + cela étend le groupe ;-)

Voyez vous comment on peut faire ?

"poypoy" a écrit >

voici la macro :


sub group()

dim tab as variant

tab = range("A1:B0")

for i = 1 to 20

Ok, je vais essayer ça, mais n'étant pas très fortiche en macro, peux tu
développé un peu stp ?

bonjour XsCream,

dans l'objet tu mentionne "elements identiques d'une colonnes"

pour la première exemple ça va,
tu pourrais faire un filtre automatique.
mais pour la deuxième exemple, je ne voie pas d'elements identiques ?

isabelle

Bonjour,
je souhaiterai grouper les lignes par rapport au données d'une colonne, rien
ne vaut un bon exemple :

col1 col2
toto 50
tata 50
tutu 50
fofo 100
fafa 100
lolo 300
lili 300

J'aimerai donc pouvoir grouper les lignes par rapport au données de la
colonne 2 pour obtenir le résultat suivant

+
-toto 50
tata 50
tutu 50
+

ou

col1 col2
+toto 50
+fofo 100
+lolo 300

Vous aurez compris que lorsqu'on appui sur + cela étend le groupe ;-)

Voyez vous comment on peut faire ?

Desole me suis fait couper lol

reprenons, Cette macro te permet de faire le premier cas ( ou le deuxieme en
faisant un sort sur tes données et en mettant tab1 sur la bonne colonne).
Mais cela ne te permet pas de faire les 2 cas à la fois. Je ne sais pas si
c'est possible. Tes données sont en A1:B20

Sub group()
Dim tab1 As Variant

tab1 = Range("A1:B20").Value
p = 1
For i = 2 To 20

If tab1(i,2) <> tab1(i - 1,2) Then
If p <> i - 1 Then
Range(Cells(p, 1), Cells(i - 2, 1)).Rows.group
End If
p = i
End If
Next i

if p <> 20 then
Range(Cells(p, 1), Cells(19, 1)).Rows.group
end if
End Sub

Bonjour,
je souhaiterai grouper les lignes par rapport au données d'une colonne, rien
ne vaut un bon exemple :

col1 col2
toto 50
tata 50
tutu 50
fofo 100
fafa 100
lolo 300
lili 300

J'aimerai donc pouvoir grouper les lignes par rapport au données de la
colonne 2 pour obtenir le résultat suivant

+
-toto 50
tata 50
tutu 50
+

ou

col1 col2
+toto 50
+fofo 100
+lolo 300

Vous aurez compris que lorsqu'on appui sur + cela étend le groupe ;-)

Voyez vous comment on peut faire ?