Discussion :

[slorgue]

Bonjour,

je chercher une macro qui pourrais me regrouper dans une seule cellule le contenu d'une colonne en mettant en separateur une virgule.

en colonne a par exemple des adresse mail en cellule c2 la totalité des adresse avec une , pour les séparer.

Merci de votre aide.

@bientot.

[decondelite]

A adapter ce code qui travaille la colonne A et met le résultat en B1:

Code :

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

1
2
3
4
5
6
7
8
9
Dim contenu_cellule as String, derniere_ligne As Integer, i As Integer
derniere_ligne = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
contenu_cellule = Cells(1,1).Value
If Not derniere_ligne = 1 Then
    For i=2 To derniere_ligne
        contenu_cellule = contenu_cellule & "," & Cells(i,1).Value
    Next
End If
Cells(1,2).Value = contenu_cellule

Cordialement

[slorgue]

Grand merci c exactement ce que je voulais.

bonne journée.