Bonsoir,
J'ai dans la colonne A de A3:A... des adresses email exemple :
A3 toto@free.fr A4 tata@free.fr etc
Je souhaite par une procédure avec un clic envoyer tout cela dans la cellule
B1
et séparé par des points virgules.
Je vous remercie
Didier
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
RV
Bonsoir Didier, en B tu écris :
¡ &";" & A2 & ";" & A3
Bien cordialement RV
"Didier NOVARIN" a écrit dans le message de news:
Bonsoir, J'ai dans la colonne A de A3:A... des adresses email exemple : A3 A4 etc Je souhaite par une procédure avec un clic envoyer tout cela dans la cellule B1 et séparé par des points virgules. Je vous remercie Didier
Bonsoir Didier,
en B tu écris :
¡ &";" & A2 & ";" & A3
Bien cordialement
RV
"Didier NOVARIN" <didier.novarin@club-internet.fr> a écrit dans le message
de news: O0tv7KDOIHA.5140@TK2MSFTNGP05.phx.gbl...
Bonsoir,
J'ai dans la colonne A de A3:A... des adresses email exemple :
A3 toto@free.fr A4 tata@free.fr etc
Je souhaite par une procédure avec un clic envoyer tout cela dans la
cellule B1
et séparé par des points virgules.
Je vous remercie
Didier
Bonsoir, J'ai dans la colonne A de A3:A... des adresses email exemple : A3 A4 etc Je souhaite par une procédure avec un clic envoyer tout cela dans la cellule B1 et séparé par des points virgules. Je vous remercie Didier
Didier NOVARIN
Salut RV Le pb est qu'il y a beaucoup de cellules donc parfois des cellules vides Merci
"RV" a écrit dans le message de news:
Bonsoir Didier, en B tu écris :
¡ &";" & A2 & ";" & A3
Bien cordialement RV
"Didier NOVARIN" a écrit dans le message de news:
Bonsoir, J'ai dans la colonne A de A3:A... des adresses email exemple : A3 A4 etc Je souhaite par une procédure avec un clic envoyer tout cela dans la cellule B1 et séparé par des points virgules. Je vous remercie Didier
Salut RV
Le pb est qu'il y a beaucoup de cellules
donc parfois des cellules vides
Merci
"RV" <inv@lide> a écrit dans le message de news:
Op5LDcDOIHA.2000@TK2MSFTNGP05.phx.gbl...
Bonsoir Didier,
en B tu écris :
¡ &";" & A2 & ";" & A3
Bien cordialement
RV
"Didier NOVARIN" <didier.novarin@club-internet.fr> a écrit dans le message
de news: O0tv7KDOIHA.5140@TK2MSFTNGP05.phx.gbl...
Bonsoir,
J'ai dans la colonne A de A3:A... des adresses email exemple :
A3 toto@free.fr A4 tata@free.fr etc
Je souhaite par une procédure avec un clic envoyer tout cela dans la
cellule B1
et séparé par des points virgules.
Je vous remercie
Didier
Salut RV Le pb est qu'il y a beaucoup de cellules donc parfois des cellules vides Merci
"RV" a écrit dans le message de news:
Bonsoir Didier, en B tu écris :
¡ &";" & A2 & ";" & A3
Bien cordialement RV
"Didier NOVARIN" a écrit dans le message de news:
Bonsoir, J'ai dans la colonne A de A3:A... des adresses email exemple : A3 A4 etc Je souhaite par une procédure avec un clic envoyer tout cela dans la cellule B1 et séparé par des points virgules. Je vous remercie Didier
Philippe.R
Bonsoir, A coller dans le module de feuille :
Private Sub Worksheet_BeforeRightClick(ByVal Target _ As Range, Cancel As Boolean) derlig = Range("a6543").End(xlUp).Row For Each c In Range("A1:A" & derlig) Target.Value = Target.Value & IIf(Application. _ Or(Target.Value = "", c.Value = ""), "", ";") _ & c.Value Next c End Sub
Salut RV Le pb est qu'il y a beaucoup de cellules donc parfois des cellules vides Merci
"RV" a écrit dans le message de news:
Bonsoir Didier, en B tu écris :
¡ &";" & A2 & ";" & A3
Bien cordialement RV
"Didier NOVARIN" a écrit dans le message de news:
Bonsoir, J'ai dans la colonne A de A3:A... des adresses email exemple : A3 A4 etc Je souhaite par une procédure avec un clic envoyer tout cela dans la cellule B1 et séparé par des points virgules. Je vous remercie Didier
Bonsoir,
A coller dans le module de feuille :
Private Sub Worksheet_BeforeRightClick(ByVal Target _
As Range, Cancel As Boolean)
derlig = Range("a6543").End(xlUp).Row
For Each c In Range("A1:A" & derlig)
Target.Value = Target.Value & IIf(Application. _
Or(Target.Value = "", c.Value = ""), "", ";") _
& c.Value
Next c
End Sub
et faire un clic droit sur la cellule de destination
--
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
Avec plaisir
http://dj.joss.free.fr/trombine.htm
Philippe.R
"Didier NOVARIN" <didier.novarin@club-internet.fr> a écrit dans le message
de news:e7f1aCEOIHA.4948@TK2MSFTNGP02.phx.gbl...
Salut RV
Le pb est qu'il y a beaucoup de cellules
donc parfois des cellules vides
Merci
"RV" <inv@lide> a écrit dans le message de news:
Op5LDcDOIHA.2000@TK2MSFTNGP05.phx.gbl...
Bonsoir Didier,
en B tu écris :
¡ &";" & A2 & ";" & A3
Bien cordialement
RV
"Didier NOVARIN" <didier.novarin@club-internet.fr> a écrit dans le
message de news: O0tv7KDOIHA.5140@TK2MSFTNGP05.phx.gbl...
Bonsoir,
J'ai dans la colonne A de A3:A... des adresses email exemple :
A3 toto@free.fr A4 tata@free.fr etc
Je souhaite par une procédure avec un clic envoyer tout cela dans la
cellule B1
et séparé par des points virgules.
Je vous remercie
Didier
Private Sub Worksheet_BeforeRightClick(ByVal Target _ As Range, Cancel As Boolean) derlig = Range("a6543").End(xlUp).Row For Each c In Range("A1:A" & derlig) Target.Value = Target.Value & IIf(Application. _ Or(Target.Value = "", c.Value = ""), "", ";") _ & c.Value Next c End Sub
Salut RV Le pb est qu'il y a beaucoup de cellules donc parfois des cellules vides Merci
"RV" a écrit dans le message de news:
Bonsoir Didier, en B tu écris :
¡ &";" & A2 & ";" & A3
Bien cordialement RV
"Didier NOVARIN" a écrit dans le message de news:
Bonsoir, J'ai dans la colonne A de A3:A... des adresses email exemple : A3 A4 etc Je souhaite par une procédure avec un clic envoyer tout cela dans la cellule B1 et séparé par des points virgules. Je vous remercie Didier
poc
Bonsoir, en B1 vous aurez ce que vous voudrez
Sub concaténation() variable = "" line2 = Range("A65536").End(xlUp).Row For i = 3 To line2 - 1 variable = variable + Range("A" & i) + ";" Next i variable = variable + Range("A" & line2) Range("B1") = variable End Sub
Cordialement Poc
"Didier NOVARIN" a écrit dans le message de news:
Salut RV Le pb est qu'il y a beaucoup de cellules donc parfois des cellules vides Merci
"RV" a écrit dans le message de news:
Bonsoir Didier, en B tu écris :
¡ &";" & A2 & ";" & A3
Bien cordialement RV
"Didier NOVARIN" a écrit dans le message de news:
Bonsoir, J'ai dans la colonne A de A3:A... des adresses email exemple : A3 A4 etc Je souhaite par une procédure avec un clic envoyer tout cela dans la cellule B1 et séparé par des points virgules. Je vous remercie Didier
Bonsoir, en B1 vous aurez ce que vous voudrez
Sub concaténation()
variable = ""
line2 = Range("A65536").End(xlUp).Row
For i = 3 To line2 - 1
variable = variable + Range("A" & i) + ";"
Next i
variable = variable + Range("A" & line2)
Range("B1") = variable
End Sub
Cordialement
Poc
"Didier NOVARIN" <didier.novarin@club-internet.fr> a écrit dans le message
de news: e7f1aCEOIHA.4948@TK2MSFTNGP02.phx.gbl...
Salut RV
Le pb est qu'il y a beaucoup de cellules
donc parfois des cellules vides
Merci
"RV" <inv@lide> a écrit dans le message de news:
Op5LDcDOIHA.2000@TK2MSFTNGP05.phx.gbl...
Bonsoir Didier,
en B tu écris :
¡ &";" & A2 & ";" & A3
Bien cordialement
RV
"Didier NOVARIN" <didier.novarin@club-internet.fr> a écrit dans le
message de news: O0tv7KDOIHA.5140@TK2MSFTNGP05.phx.gbl...
Bonsoir,
J'ai dans la colonne A de A3:A... des adresses email exemple :
A3 toto@free.fr A4 tata@free.fr etc
Je souhaite par une procédure avec un clic envoyer tout cela dans la
cellule B1
et séparé par des points virgules.
Je vous remercie
Didier
Sub concaténation() variable = "" line2 = Range("A65536").End(xlUp).Row For i = 3 To line2 - 1 variable = variable + Range("A" & i) + ";" Next i variable = variable + Range("A" & line2) Range("B1") = variable End Sub
Cordialement Poc
"Didier NOVARIN" a écrit dans le message de news:
Salut RV Le pb est qu'il y a beaucoup de cellules donc parfois des cellules vides Merci
"RV" a écrit dans le message de news:
Bonsoir Didier, en B tu écris :
¡ &";" & A2 & ";" & A3
Bien cordialement RV
"Didier NOVARIN" a écrit dans le message de news:
Bonsoir, J'ai dans la colonne A de A3:A... des adresses email exemple : A3 A4 etc Je souhaite par une procédure avec un clic envoyer tout cela dans la cellule B1 et séparé par des points virgules. Je vous remercie Didier
Didier NOVARIN
Un très grand merci à tous les 2 Très bonne soirée Didier
"poc" a écrit dans le message de news: 4758572f$0$5112$
Bonsoir, en B1 vous aurez ce que vous voudrez
Sub concaténation() variable = "" line2 = Range("A65536").End(xlUp).Row For i = 3 To line2 - 1 variable = variable + Range("A" & i) + ";" Next i variable = variable + Range("A" & line2) Range("B1") = variable End Sub
Cordialement Poc
"Didier NOVARIN" a écrit dans le message de news:
Salut RV Le pb est qu'il y a beaucoup de cellules donc parfois des cellules vides Merci
"RV" a écrit dans le message de news:
Bonsoir Didier, en B tu écris :
¡ &";" & A2 & ";" & A3
Bien cordialement RV
"Didier NOVARIN" a écrit dans le message de news:
Bonsoir, J'ai dans la colonne A de A3:A... des adresses email exemple : A3 A4 etc Je souhaite par une procédure avec un clic envoyer tout cela dans la cellule B1 et séparé par des points virgules. Je vous remercie Didier
Un très grand merci à tous les 2
Très bonne soirée
Didier
"poc" <poc@parame.fr> a écrit dans le message de news:
4758572f$0$5112$ba4acef3@news.orange.fr...
Bonsoir, en B1 vous aurez ce que vous voudrez
Sub concaténation()
variable = ""
line2 = Range("A65536").End(xlUp).Row
For i = 3 To line2 - 1
variable = variable + Range("A" & i) + ";"
Next i
variable = variable + Range("A" & line2)
Range("B1") = variable
End Sub
Cordialement
Poc
"Didier NOVARIN" <didier.novarin@club-internet.fr> a écrit dans le message
de news: e7f1aCEOIHA.4948@TK2MSFTNGP02.phx.gbl...
Salut RV
Le pb est qu'il y a beaucoup de cellules
donc parfois des cellules vides
Merci
"RV" <inv@lide> a écrit dans le message de news:
Op5LDcDOIHA.2000@TK2MSFTNGP05.phx.gbl...
Bonsoir Didier,
en B tu écris :
¡ &";" & A2 & ";" & A3
Bien cordialement
RV
"Didier NOVARIN" <didier.novarin@club-internet.fr> a écrit dans le
message de news: O0tv7KDOIHA.5140@TK2MSFTNGP05.phx.gbl...
Bonsoir,
J'ai dans la colonne A de A3:A... des adresses email exemple :
A3 toto@free.fr A4 tata@free.fr etc
Je souhaite par une procédure avec un clic envoyer tout cela dans la
cellule B1
et séparé par des points virgules.
Je vous remercie
Didier
Un très grand merci à tous les 2 Très bonne soirée Didier
"poc" a écrit dans le message de news: 4758572f$0$5112$
Bonsoir, en B1 vous aurez ce que vous voudrez
Sub concaténation() variable = "" line2 = Range("A65536").End(xlUp).Row For i = 3 To line2 - 1 variable = variable + Range("A" & i) + ";" Next i variable = variable + Range("A" & line2) Range("B1") = variable End Sub
Cordialement Poc
"Didier NOVARIN" a écrit dans le message de news:
Salut RV Le pb est qu'il y a beaucoup de cellules donc parfois des cellules vides Merci
"RV" a écrit dans le message de news:
Bonsoir Didier, en B tu écris :
¡ &";" & A2 & ";" & A3
Bien cordialement RV
"Didier NOVARIN" a écrit dans le message de news:
Bonsoir, J'ai dans la colonne A de A3:A... des adresses email exemple : A3 A4 etc Je souhaite par une procédure avec un clic envoyer tout cela dans la cellule B1 et séparé par des points virgules. Je vous remercie Didier
AH60
Bonsoir
Function ColTranspose(plage As Range) Dim cell As Range, temp As String For Each cell In plage If cell.Text <> "" Then temp = temp & cell.Text & " ; " End If Next ColTranspose = temp End Function
en B1 tu inscris =ColTranspose(A3:A...)
Abed_H
Bonsoir, J'ai dans la colonne A de A3:A... des adresses email exemple : A3 A4 etc Je souhaite par une procédure avec un clic envoyer tout cela dans la cellule B1 et séparé par des points virgules. Je vous remercie Didier
Bonsoir
Function ColTranspose(plage As Range)
Dim cell As Range, temp As String
For Each cell In plage
If cell.Text <> "" Then
temp = temp & cell.Text & " ; "
End If
Next
ColTranspose = temp
End Function
en B1 tu inscris =ColTranspose(A3:A...)
Abed_H
Bonsoir,
J'ai dans la colonne A de A3:A... des adresses email exemple :
A3 toto@free.fr A4 tata@free.fr etc
Je souhaite par une procédure avec un clic envoyer tout cela dans la cellule
B1
et séparé par des points virgules.
Je vous remercie
Didier
Function ColTranspose(plage As Range) Dim cell As Range, temp As String For Each cell In plage If cell.Text <> "" Then temp = temp & cell.Text & " ; " End If Next ColTranspose = temp End Function
en B1 tu inscris =ColTranspose(A3:A...)
Abed_H
Bonsoir, J'ai dans la colonne A de A3:A... des adresses email exemple : A3 A4 etc Je souhaite par une procédure avec un clic envoyer tout cela dans la cellule B1 et séparé par des points virgules. Je vous remercie Didier