Microsoft 365 "RESOLU" Regrouper Adresse Mail

[Bambi35]

Bonjour à tous

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

@++
Bambi35

 

[Staple1600]

Bonsoir le fil, Bambi35

•>Bambi35

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

 

[laurent950]

Bonsoir Bambi35

Solution :

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

Laurent

 

[Staple1600]

Bonsoir Laurent950

Bonsoir Bambi35

Une autre solution :

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

Laurent

(Cf le message#2 )

 

[laurent950]

Merci Staple1600 ca change des Regex
J'aime bien ton approche aussi top ton code

 

[Claudy]

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

Next
End Sub

Claudy

 

[Staple1600]

Re, Bonsoir Claudy

Pour mes yeux...

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

Next
End Sub

Claudy

 

[Claudy]

????

 

[Staple1600]

Re

>•Claudy
Oui pour mes yeux, je préfère lire le code VBA formaté avec les balises BBCODE que sans.

C'est plus joli, non ?

 

[Claudy]

Soir Stapple,
Désolé, mais j'ai déjà essayé, testé,, et malgré qq messages dans ce forum, j'y arrive pas!
A+
Claudy

 

[Staple1600]

Re

C'est pourtant simple
Il suffit de lire ce qu'il y a écrit dans ma signature
(texte en rouge)

 

[Bambi35]

Bonsoir à vous tous

C'est ce qu'il me fallait

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

Merci Encore de votre aide

@+++
Bambi35

 

[Claudy]

Stapple j'ai beau utiliser la roue dentée "Basculer en mode BB code",
mais rien y fait
A+
Claudy

 

[Staple1600]

Re

Moi, je fais cela à l'ancienne ( à la main)
Comme ceci
[CODE=VB]
Sub Ma_Macro()
MsgBox "Bonsoir Claudy"
End Sub
[/CODE]
ce qui donnera comme affichage

Sub Ma_Macro()
MsgBox "Bonsoir Claudy"
End Sub

 

[Claudy]

Bonjour Stapple,

[/B] 
Moi, je fais cela à l'ancienne ( à la main) 

[B]

Mais comment utiliser la roue dentée?
On changerait pas de forum pour discuter le coup?
Claudy