Selection cellules + regroupement

[ironmat]

Bonjour

J'ai un problème avec un fichier car je n'arrive pas à faire une macro qui me permettrait de comparer et deplacer plusieurs cellules.

Je m'explique dans ma colonne A j'ai des prénoms et dans la colonne D également. Ce que je souhaiterais c'est que si dans la colonne A et D les prénoms sont les memes alors on ne touche a rien mais si les prenoms sont différents alors on en met un sur chaque ligne avec son numero correspondant afin de les séparer.

Le but etant d' aligner sur la meme ligne les prenoms qui vont par paires et d'isoler ceux qui sont seul.

Un exemple concret sera plus efficace :

Situation actuelle :


mat........|.......96..........|.................|....arnaud.........|..875875
bertrand..|......543.........|.................|......bertrand.....|....85
carole.....|........8...........|.................|......damien......|...4
damien....|.......587........|.................|.......emilie........|...25
emilie......|.......545........|.................|........farid........|...4
guillaume.|.........6..........|.................|.....guillaume....|..6489

après le passage de la macro j'aimerai avoir :

mat........|.......96..........|.................|.................|.................
arnaud....|......875875.....|.................|.................|.................
bertrand..|.......543........|.................|...bertrand...|....85
carole.....|.........8.........|.................|.................|................
damien....|.........4.........|.................|....damien....|...587
emilie......|........25........|.................|.....emilie.....|...545
farid.......|........4..........|.................|.................|.................
guillaume.|.......6...........|.................|..guillaume...|..6489

je vous met le fichier excel en piece jointe.

Si vous voulez plus d'infos je suis a votre disposition.

Bonne journée.

Cdt
Mat

 

[porcinet82]

Re : Selection cellules + regroupement

Salut Mat,

Il me semble que le plus simple c'est d'avoir les données les unes en dessous des autres, donc ce que fais la macro, c'est qu'elle copie tout d'abord tes données contenu dans les colonne C et D sous celles des colonnes A et B.
Ensuite, je fais 2 boucles afin de rechercher les doublons et je deplace les cellules et je supprime la ligne si necessaire.

Sub test()
Dim i&, k&
Range(Range("C1"), Range("D1").End(xlDown)).Select
Selection.Cut Destination:=Range("A7")
For i = 1 To Range("A65536").End(xlUp).Row
    For k = Range("A65536").End(xlUp).Row To 2 Step -1
        If Cells(i, 1).Value = Cells(k, 1).Value And i <> k Then
            Cells(i, 3).Value = Cells(k, 1).Value
            Cells(i, 4).Value = Cells(k, 2).Value
            Rows(k).Delete
        End If
    Next k
Next
End Sub

Le code que je te propsoe a l'air de fontionner, du moins sur ton exemple, apres je te laisse le soin de le tester sur tes données.

@+

 

[ironmat]

Re : Selection cellules + regroupement

Salut porcinet82.

Ta macro fonctionne parfaitement mais j'aimerais savoir si c'est possible de garder l'ordre d'apparition, car en fait la on met a la fin les prenoms qui sont uniques.

deuxiemement est il possible de trouver une combine pour deplacer un ensemble de cellule d'un coup avec une "selection ou autre" plutot que de faire l'équivalence entre les cases.

Si tu as une idée ou si quelqu'un d autre pense pouvoir m'aider je suis a votre disposition.

Cdt
Mat