Je recherche une macro sans passer par une formule pour regouper une liste adresse dans la colonne "A" en "D2"
Actuellement je n'arrive pas à trouver la bonne macro.
Merci d'avance de votre aide
Sub GrouperMails()
Dim vArr, All_Mails$
Set RNG = ActiveSheet.UsedRange
vArr = Intersect(RNG, RNG.Columns(1).Offset(1)).Value
[D2] = Join(Application.Transpose(vArr), ";")
End Sub
Bonsoir,
Sub testmail() 'select colonne
'Claudy 26/03/20
Range("D2").Clear
Range("A2:A" & Range("A100").End(xlUp).Row).Select
For Each cel In Selection
Range("D2") = Range("D2").Value & ";" & cel.Text
Sub testmail() 'select colonne
'Claudy 26/03/20
Range("D2").Clear
Range("A2:A" & Range("A100").End(xlUp).Row).Select
For Each cel In Selection
Range("D2") = Range("D2").Value & ";" & cel.Text
Next
End Sub