grouper et dissocier

[djé]

Salut tout le monde
et plus particulièrement a toi qui li ce message..

je suis en stage et je viens demander un peu d'aide
voilà mon problème :
je dois sous excel grouper des references d'articles et les séparer d'une ligne de facon a eclaircir la lecture :
exemple:
1254 52hg2 400
1458 58fy4 500
1254 96dg 800
1367 45fg4 500

doit donner :
1254 52hg2 400
1254 96dg 800

1458 58fy4 500

1367 45fg4 500

mais tout cela doit se faire automatiquement...
cela peut paraître simple mais je débute, merci d'avance
salut.

 

[sylvain]

bonjour,

une solution sans programmation et sans insertion de ligne mais en rajoutant une colonne avec des formules.

A+

 

[schmail]

Bonjour le forum

Si cela intéresse quelqu'un, Djé a reçu sa réponse sur MPFE :

Sub Tri_Intercale()
x = [A65536].End(3).Row
Range("A1:A" & x).Sort Key1:=[A1], Order1:=xlAscending
For i = x To 1 Step -1
On Error GoTo suite
If Left(Cells(i, 1), 4) <> Left(Cells(i - 1, 1), 4) Then
Cells(i, 1).Insert Shift:=xlDown
End If
suite:
Next
End Sub

@+

 

[Djé]

MERCI de ton aide schmail ( mon maître de stage sera ravi ),
cependant un petit problème persiste...

les données liées dans les colonnes B et C ne suivent pas le décalage,
sans vouloir abuser de ton savoir, pourrais tu m'éclairer..

a bientot.