XL 2010 concaténer plusieurs cellules en une seule avec des caractères spéciaux

driss Kor

XLDnaute Nouveau
Bonjour,

Je voudrais regrouper plusieurs cellules en une seule avec une macro VBA comme je suis débutant en VBA, j'ai vraiment besoin d'aide
je veux les rassembler avec ","
 

Pièces jointes

  • Classeur2222222222222.xlsm
    11.1 KB · Affichages: 29

job75

XLDnaute Barbatruc
Bonjour driss Kor, bienvenue sur XLD,

Voici 2 solutions :
Code:
Sub Concatener()
If [A2] = "" Then [C1] = [A1] Else [C1] = Join(Application.Transpose([A1].CurrentRegion), ", ")
End Sub

Sub ConcatenerSansDoublon()
Dim tablo, d As Object, i&
tablo = [A1].CurrentRegion.Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
For i = 1 To UBound(tablo): d(tablo(i, 1)) = "": Next 'liste sans doublon
[C1] = Join(d.keys, ", ")
End Sub
A+
 
Dernière édition:

Discussions similaires