Excel 2007 - Fusion cellules retour ligne

Question

Bonjour, 

J'ai un fichier Excel comportant 2 colonnes :

- colonne 1 : liste de NOMS de propriétaires
- colonne 2 : liste de CODES de parcelles cadastrales

Chaque propriétaire peut posséder plusieurs parcelles, il y a donc des doublons dans les NOMS de propriétaires. En ce qui concerne les parcelles, il n'y a pas de doublons.

Exemple (7 lignes):

Colonne 1 :

NOMS                         CODES

DUPONT                       A23
DURAND                       B85
VALLON                        D01
MARIN                          B56
DURAND                       Z22
DURAND                       J47
VALLON                        E01

Je souhaite regrouper dans une seule cellule (avec retour à la ligne) tous les codes parcelle de chaque propriétaire  (5 lignes dans cet exemple) :

NOM                           CODES

DUPONT                     A23
DURAND                     B85
                                  Z22
                                  J47
VALLON                      E01
                                  D01
MARIN                        B56

Aujourd'hui, j'utilise la formule &CAD(10)& avec renvoi à la ligne automatique, mais ce n'est pas satisfaisant, j'ai des milliers de lignes. Le but est de faire un fichier utilisable en publipostage pour envoyer un courrier à chaque propriétaire avec le récapitulatif de ses parcelles.

Merci ...



Configuration: Windows Vista / Internet Explorer 8.0

eriiic · Answer

Bonjour, 

Par macro alors : 
Sub regrouper() 
    Dim lig As Long, derlig As Long 
    derlig = [A65536].End(xlUp).Row 
    ' trier 
    Range("A1:B" & derlig).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes 
    ' regrouper 
    Application.ScreenUpdating = False 
    For lig = derlig To 2 Step -1 
        If Cells(lig, 1) = Cells(lig - 1, 1) Then 
            Cells(lig - 1, 2) = Cells(lig - 1, 2) & vbLf & Cells(lig, 2) 
            Cells(lig, 1).EntireRow.Delete 
        End If 
    Next lig 
    Application.ScreenUpdating = True 
End Sub
A la place du nom utiliser une formule concatenant Nom&Prénom&Date de naissance (ou commune, voie etc) jusqu'à ne plus avoir d'homonymie possible. 

Fichier exemple 

eric

PHILOU10120 · Answer

Bonjour

Voici une solution sans macro commande avec deux formules assez simple

https://www.cjoint.com/?3FekYK1ZtIR

eriiic · Answer

De rien jeanviaz,

C'est sympa de nous avoir donné de quoi nous occuper des fois qu'on s'ennuie.
Repasse quand tu veux pour une nouvelle question, tu seras accueilli.
eric

Excel 2007 - Fusion cellules retour ligne

3 réponses

Votre réponse

Discussions similaires

Newsletters