Discussion :

[ca_adrien]

Bonjour,

Je dispose d'une base de données de plusieurs ville avec des mails par ville. Sachant que chaque ville peut avoir plusieurs mail donc il y a plusieurs lignes.

Ce que je souhaite avoir au final, c'est une ligne par ville avec sur cette ligne tous les mails pour cette ville.

Pour que ce soit plus clair, je vous fais un petit exemple :

J'ai cela:


et je veux que ça devienne comme ça :



Mercii

[mercatog]

Les villes sont triées ou non?

si c'est le cas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Test()
Dim LastLig As Long, i As Long
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")                        'A Adapter
    LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
    For i = LastLig To 3 Step -1
        If .Cells(i, 1) = .Cells(i - 1, 1) Then
            .Cells(i - 1, 2) = .Cells(i - 1, 2) & ";" & .Cells(i, 2)
            .Rows(i).Delete
        End If
    Next i
End With
End Sub

[Marc-L]

Bonjour,

je voulais indiquer un tutoriel pour un dictionnaire (Scripting.Dictionary) allant bien dans ce cas mais je ne le retrouve pas.

Sinon voir un exemple concret ici …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[ca_adrien]

Merci beaucoup pour votre aide.
La première solution à l'air de marcher donc je vais la garder pour l'instant