regrouper des donnees

[dlu]

Bonjour,
J'ai un tableau de 3 colonnes du type :
toto|24|rond
titi|12|carre
toto|35|ovale
tata|14|rond
tata|22|rond
etc
est il possible de regrouper les infos ayant la même saisie dans la première colonne sur une même ligne. exemple :
toto|24|rond|35|ovale
titi|12|carre
tata|14|rond|22|rond
etc
merci

 

[porcinet82]

Bonsoir,

Je viens de m'amuser a te faire une macro qui j'espère va fonctionner mais qui reste à tester à fond (elle fonctionne sur l'exemple que tu as donné).

Sub test()
Dim i%, k%

For i = Range('A65536').End(xlUp).Row To 1 Step -1
    nom1 = Range('A' & i).Value
    For k = Range('A65536').End(xlUp).Row - 1 To 1 Step -1
        nom2 = Range('A' & k).Value
        If not i = k Then
            If nom2 = nom1 Then
                For j = 2 To Range('IV' & k).End(xlToLeft).Column
                    Cells(k, Range('IV' & k).End(xlToLeft).Column + 1).Value = Cells(i, j).Value
                Next j
                Rows(i).Delete
            End If
        End If
    Next k
Next i
End Sub

Tiens moi au courant.

@+

Edition : Il faut enlever les & nbsp;

Message édité par: porcinet82, à: 22/06/2006 19:45

 

[dlu]

merci pour ta reponse,
mais sauf erreur de ma part,
j'obtiens :
toto|24|rond|35|ovale|12|carre|14|rond|22|rond

a+

 

[dlu]

ça marche,
Il y avait bien erreur de ma part ...

merci beaucoup
et félicitations !!!!!!!!

 

[Monique]

Bonjour,

Par formules
Formules matricielles, à valider par ctrl, maj et entrée
Le fichier est ici :
http://cjoint.com/?gww4WzVUUh

 

[dlu]

Bonjour,
Merci à tous pour votre aide.
Pour porcinet82 :
ça marchait hier, et aujourd'hui j'obtiens à nouveau :
toto|24|rond|35|ovale|12|carre|14|rond|22|rond
c.a.d tout sur une même ligne.
Aurais-tu une idée ?
Merci

 

[porcinet82]

Salut dlu, Monique,

Je viend de retester la macro sur plus de données et effectivement il y avait un soucis. Cependant, ce n'etait pas le même que toi. J'ai modifier la macro et cette fois elle a l'air de fontionner.
Il te suffit de modifier la ligne suivante For j = 2 To Range('IV' & k).End(xlToLeft).Column par For j = 2 To Range('IV' & i).End(xlToLeft).Column

@+