Microsoft 365 "RESOLU" Regrouper Adresse Mail

Staple1600

XLDnaute Barbatruc

• 26 Mars 2020

• #2

Bonsoir le fil, Bambi35

•>Bambi35

VB:

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

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 26 Mars 2020

• #3

Bonsoir Bambi35

Solution :

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Mars 2020

• #4

Bonsoir Laurent950

laurent950 à dit:

Bonsoir Bambi35

Une autre solution :

VB:

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

Cliquez pour agrandir...

(Cf le message#2 😉)

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 26 Mars 2020

• #5

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

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 26 Mars 2020

• #6

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Mars 2020

• #7

Re, Bonsoir Claudy

Pour mes yeux... 😉

Claudy à dit:

Bonsoir,

VB:

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 26 Mars 2020

• #8

????

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Mars 2020

• #9

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 ?

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 26 Mars 2020

• #10

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Mars 2020

• #11

Re

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

 

Vote positif 0 Vote négatif

B

Bambi35

XLDnaute Occasionnel

• 26 Mars 2020

• #12

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

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 26 Mars 2020

• #13

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Mars 2020

• #14

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

VB:

Sub Ma_Macro()
MsgBox "Bonsoir Claudy"
End Sub

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 27 Mars 2020

• #15

Bonjour Stapple,

VB:

[/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

 

Vote positif 0 Vote négatif