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
Sub test()
For i = Cells(2, 1).Row To Cells(15, 1).Row
Cells(1, 5) = Cells(1, 5) & Cells(i, 1) & "; "
Next i
End Sub
(Cf le message#2 )Bonsoir Bambi35
Une autre solution :
LaurentVB:Sub test() For i = Cells(2, 1).Row To Cells(15, 1).Row Cells(1, 5) = Cells(1, 5) & Cells(i, 1) & "; " Next i End Sub
Bonsoir,
ClaudyVB: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
Sub Ma_Macro()
MsgBox "Bonsoir Claudy"
End Sub
[/B]
Moi, je fais cela à l'ancienne ( à la main)
[B]