Bonsoir
J'ai une colonne A2:A100 dans laquelle j'ai des noms
J'ai une colonne B2:B100 dans laquelle j'ai des prénoms
Je souhaite pouvoir concaténer par VBA en C2:C100 les noms puis prénoms
espacés par un espace soit Nom & " " & Prénom
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
JLuc
*Bonjour Didier Novarin*, For Each cel In Range("C2C100") cel = Application.Proper(cel.Offset(-2,0) & cel.Offset(-1,0)) Next Pas tester, mais devrait convenir, dis nous ;-)
Bonsoir J'ai une colonne A2:A100 dans laquelle j'ai des noms J'ai une colonne B2:B100 dans laquelle j'ai des prénoms Je souhaite pouvoir concaténer par VBA en C2:C100 les noms puis prénoms espacés par un espace soit Nom & " " & Prénom Je vous remercie Didier
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour Didier Novarin*,
For Each cel In Range("C2C100")
cel = Application.Proper(cel.Offset(-2,0) & cel.Offset(-1,0))
Next
Pas tester, mais devrait convenir, dis nous ;-)
Bonsoir
J'ai une colonne A2:A100 dans laquelle j'ai des noms
J'ai une colonne B2:B100 dans laquelle j'ai des prénoms
Je souhaite pouvoir concaténer par VBA en C2:C100 les noms puis prénoms
espacés par un espace soit Nom & " " & Prénom
Je vous remercie
Didier
*Bonjour Didier Novarin*, For Each cel In Range("C2C100") cel = Application.Proper(cel.Offset(-2,0) & cel.Offset(-1,0)) Next Pas tester, mais devrait convenir, dis nous ;-)
Bonsoir J'ai une colonne A2:A100 dans laquelle j'ai des noms J'ai une colonne B2:B100 dans laquelle j'ai des prénoms Je souhaite pouvoir concaténer par VBA en C2:C100 les noms puis prénoms espacés par un espace soit Nom & " " & Prénom Je vous remercie Didier
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
JLuc
petit oubli : :') For Each cel In Range("C2C100") cel = Application.Proper(cel.Offset(-2,0) & " " & cel.Offset(-1,0)) Next
Bonsoir J'ai une colonne A2:A100 dans laquelle j'ai des noms J'ai une colonne B2:B100 dans laquelle j'ai des prénoms Je souhaite pouvoir concaténer par VBA en C2:C100 les noms puis prénoms espacés par un espace soit Nom & " " & Prénom Je vous remercie Didier
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
petit oubli : :')
For Each cel In Range("C2C100")
cel = Application.Proper(cel.Offset(-2,0) & " " & cel.Offset(-1,0))
Next
Bonsoir
J'ai une colonne A2:A100 dans laquelle j'ai des noms
J'ai une colonne B2:B100 dans laquelle j'ai des prénoms
Je souhaite pouvoir concaténer par VBA en C2:C100 les noms puis prénoms
espacés par un espace soit Nom & " " & Prénom
Je vous remercie
Didier
petit oubli : :') For Each cel In Range("C2C100") cel = Application.Proper(cel.Offset(-2,0) & " " & cel.Offset(-1,0)) Next
Bonsoir J'ai une colonne A2:A100 dans laquelle j'ai des noms J'ai une colonne B2:B100 dans laquelle j'ai des prénoms Je souhaite pouvoir concaténer par VBA en C2:C100 les noms puis prénoms espacés par un espace soit Nom & " " & Prénom Je vous remercie Didier
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
Didier Novarin
Bonsoir JLuc Je te remercie beaucoup pour ta rapidité, mais cela plante et renvoie une erreur 1004 sur cette ligne : Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0)) voilà ce que j'ai réalisé avec ton aide
Sub Le_test() Dim Cell As Range For Each Cell In Range("C2:C100") Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0)) Next End Sub
Je te remercie Didier
"JLuc" a écrit dans le message de news:
*Bonjour Didier Novarin*, For Each cel In Range("C2C100") cel = Application.Proper(cel.Offset(-2,0) & cel.Offset(-1,0)) Next Pas tester, mais devrait convenir, dis nous ;-)
Bonsoir J'ai une colonne A2:A100 dans laquelle j'ai des noms J'ai une colonne B2:B100 dans laquelle j'ai des prénoms Je souhaite pouvoir concaténer par VBA en C2:C100 les noms puis prénoms espacés par un espace soit Nom & " " & Prénom Je vous remercie Didier
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
Bonsoir JLuc
Je te remercie beaucoup pour ta rapidité, mais cela plante et renvoie une
erreur 1004
sur cette ligne :
Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0))
voilà ce que j'ai réalisé avec ton aide
Sub Le_test()
Dim Cell As Range
For Each Cell In Range("C2:C100")
Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0))
Next
End Sub
Je te remercie
Didier
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.cc467d68561d8edd.40692@free.fr.ns...
*Bonjour Didier Novarin*,
For Each cel In Range("C2C100")
cel = Application.Proper(cel.Offset(-2,0) & cel.Offset(-1,0))
Next
Pas tester, mais devrait convenir, dis nous ;-)
Bonsoir
J'ai une colonne A2:A100 dans laquelle j'ai des noms
J'ai une colonne B2:B100 dans laquelle j'ai des prénoms
Je souhaite pouvoir concaténer par VBA en C2:C100 les noms puis prénoms
espacés par un espace soit Nom & " " & Prénom
Je vous remercie
Didier
Bonsoir JLuc Je te remercie beaucoup pour ta rapidité, mais cela plante et renvoie une erreur 1004 sur cette ligne : Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0)) voilà ce que j'ai réalisé avec ton aide
Sub Le_test() Dim Cell As Range For Each Cell In Range("C2:C100") Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0)) Next End Sub
Je te remercie Didier
"JLuc" a écrit dans le message de news:
*Bonjour Didier Novarin*, For Each cel In Range("C2C100") cel = Application.Proper(cel.Offset(-2,0) & cel.Offset(-1,0)) Next Pas tester, mais devrait convenir, dis nous ;-)
Bonsoir J'ai une colonne A2:A100 dans laquelle j'ai des noms J'ai une colonne B2:B100 dans laquelle j'ai des prénoms Je souhaite pouvoir concaténer par VBA en C2:C100 les noms puis prénoms espacés par un espace soit Nom & " " & Prénom Je vous remercie Didier
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
Jacky
Bonsoir,
Une petite erreur c'est glissée dans le code de JLuc. Remplace cette ligne:
"Didier Novarin" a écrit dans le message de news:OMe%
Bonsoir JLuc Je te remercie beaucoup pour ta rapidité, mais cela plante et renvoie une erreur 1004 sur cette ligne : Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0)) voilà ce que j'ai réalisé avec ton aide
Sub Le_test() Dim Cell As Range For Each Cell In Range("C2:C100") Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0)) Next End Sub
Je te remercie Didier
"JLuc" a écrit dans le message de news:
*Bonjour Didier Novarin*, For Each cel In Range("C2C100") cel = Application.Proper(cel.Offset(-2,0) & cel.Offset(-1,0)) Next Pas tester, mais devrait convenir, dis nous ;-)
Bonsoir J'ai une colonne A2:A100 dans laquelle j'ai des noms J'ai une colonne B2:B100 dans laquelle j'ai des prénoms Je souhaite pouvoir concaténer par VBA en C2:C100 les noms puis prénoms espacés par un espace soit Nom & " " & Prénom Je vous remercie Didier
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
Bonsoir,
Une petite erreur c'est glissée dans le code de JLuc.
Remplace cette ligne:
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news:OMe%23DOGyGHA.4240@TK2MSFTNGP03.phx.gbl...
Bonsoir JLuc
Je te remercie beaucoup pour ta rapidité, mais cela plante et renvoie une
erreur 1004
sur cette ligne :
Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0))
voilà ce que j'ai réalisé avec ton aide
Sub Le_test()
Dim Cell As Range
For Each Cell In Range("C2:C100")
Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0))
Next
End Sub
Je te remercie
Didier
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.cc467d68561d8edd.40692@free.fr.ns...
*Bonjour Didier Novarin*,
For Each cel In Range("C2C100")
cel = Application.Proper(cel.Offset(-2,0) & cel.Offset(-1,0))
Next
Pas tester, mais devrait convenir, dis nous ;-)
Bonsoir
J'ai une colonne A2:A100 dans laquelle j'ai des noms
J'ai une colonne B2:B100 dans laquelle j'ai des prénoms
Je souhaite pouvoir concaténer par VBA en C2:C100 les noms puis prénoms
espacés par un espace soit Nom & " " & Prénom
Je vous remercie
Didier
"Didier Novarin" a écrit dans le message de news:OMe%
Bonsoir JLuc Je te remercie beaucoup pour ta rapidité, mais cela plante et renvoie une erreur 1004 sur cette ligne : Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0)) voilà ce que j'ai réalisé avec ton aide
Sub Le_test() Dim Cell As Range For Each Cell In Range("C2:C100") Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0)) Next End Sub
Je te remercie Didier
"JLuc" a écrit dans le message de news:
*Bonjour Didier Novarin*, For Each cel In Range("C2C100") cel = Application.Proper(cel.Offset(-2,0) & cel.Offset(-1,0)) Next Pas tester, mais devrait convenir, dis nous ;-)
Bonsoir J'ai une colonne A2:A100 dans laquelle j'ai des noms J'ai une colonne B2:B100 dans laquelle j'ai des prénoms Je souhaite pouvoir concaténer par VBA en C2:C100 les noms puis prénoms espacés par un espace soit Nom & " " & Prénom Je vous remercie Didier
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
Didier Novarin
Bonsoir Jacky C'est parfait ! Je te remercie beaucoup j'essaie d'adapter avec le nombre exact de noms afin que cela ne mouline pas trop, car il peut y avoir parfois 100 ou 2500 noms, cela varie Didier
"Jacky" a écrit dans le message de news:
Bonsoir,
Une petite erreur c'est glissée dans le code de JLuc. Remplace cette ligne:
"Didier Novarin" a écrit dans le message de news:OMe%
Bonsoir JLuc Je te remercie beaucoup pour ta rapidité, mais cela plante et renvoie une erreur 1004 sur cette ligne : Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0)) voilà ce que j'ai réalisé avec ton aide
Sub Le_test() Dim Cell As Range For Each Cell In Range("C2:C100") Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0)) Next End Sub
Je te remercie Didier
"JLuc" a écrit dans le message de news:
*Bonjour Didier Novarin*, For Each cel In Range("C2C100") cel = Application.Proper(cel.Offset(-2,0) & cel.Offset(-1,0)) Next Pas tester, mais devrait convenir, dis nous ;-)
Bonsoir J'ai une colonne A2:A100 dans laquelle j'ai des noms J'ai une colonne B2:B100 dans laquelle j'ai des prénoms Je souhaite pouvoir concaténer par VBA en C2:C100 les noms puis prénoms espacés par un espace soit Nom & " " & Prénom Je vous remercie Didier
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
Bonsoir Jacky
C'est parfait !
Je te remercie beaucoup
j'essaie d'adapter avec le nombre exact de noms afin que cela ne mouline pas
trop, car il peut y avoir parfois 100 ou 2500 noms, cela varie
Didier
"Jacky" <nospam@bidon.fr> a écrit dans le message de news:
ue0ezUGyGHA.356@TK2MSFTNGP02.phx.gbl...
Bonsoir,
Une petite erreur c'est glissée dans le code de JLuc.
Remplace cette ligne:
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news:OMe%23DOGyGHA.4240@TK2MSFTNGP03.phx.gbl...
Bonsoir JLuc
Je te remercie beaucoup pour ta rapidité, mais cela plante et renvoie une
erreur 1004
sur cette ligne :
Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0))
voilà ce que j'ai réalisé avec ton aide
Sub Le_test()
Dim Cell As Range
For Each Cell In Range("C2:C100")
Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0))
Next
End Sub
Je te remercie
Didier
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.cc467d68561d8edd.40692@free.fr.ns...
*Bonjour Didier Novarin*,
For Each cel In Range("C2C100")
cel = Application.Proper(cel.Offset(-2,0) & cel.Offset(-1,0))
Next
Pas tester, mais devrait convenir, dis nous ;-)
Bonsoir
J'ai une colonne A2:A100 dans laquelle j'ai des noms
J'ai une colonne B2:B100 dans laquelle j'ai des prénoms
Je souhaite pouvoir concaténer par VBA en C2:C100 les noms puis
prénoms
espacés par un espace soit Nom & " " & Prénom
Je vous remercie
Didier
Bonsoir Jacky C'est parfait ! Je te remercie beaucoup j'essaie d'adapter avec le nombre exact de noms afin que cela ne mouline pas trop, car il peut y avoir parfois 100 ou 2500 noms, cela varie Didier
"Jacky" a écrit dans le message de news:
Bonsoir,
Une petite erreur c'est glissée dans le code de JLuc. Remplace cette ligne:
"Didier Novarin" a écrit dans le message de news:OMe%
Bonsoir JLuc Je te remercie beaucoup pour ta rapidité, mais cela plante et renvoie une erreur 1004 sur cette ligne : Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0)) voilà ce que j'ai réalisé avec ton aide
Sub Le_test() Dim Cell As Range For Each Cell In Range("C2:C100") Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0)) Next End Sub
Je te remercie Didier
"JLuc" a écrit dans le message de news:
*Bonjour Didier Novarin*, For Each cel In Range("C2C100") cel = Application.Proper(cel.Offset(-2,0) & cel.Offset(-1,0)) Next Pas tester, mais devrait convenir, dis nous ;-)
Bonsoir J'ai une colonne A2:A100 dans laquelle j'ai des noms J'ai une colonne B2:B100 dans laquelle j'ai des prénoms Je souhaite pouvoir concaténer par VBA en C2:C100 les noms puis prénoms espacés par un espace soit Nom & " " & Prénom Je vous remercie Didier
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
Jacky
Re... Pour ne pas avoir à te préoccuper du nombre exacte de ligne. Ceci prend la automatiquement la longueur en fonction de la colonne A '--------- Sub Le_test() Dim Cell As Range For Each Cell In Range("a2:a" & Range("a65536").End(3).Row) Cell.Offset(0, 2) = (Cell & " " & Cell.Offset(0, 1)) Next End Sub '---------- JJ
"Didier Novarin" a écrit dans le message de news:%
Bonsoir Jacky C'est parfait ! Je te remercie beaucoup j'essaie d'adapter avec le nombre exact de noms afin que cela ne mouline pas
trop, car il peut y avoir parfois 100 ou 2500 noms, cela varie Didier
"Jacky" a écrit dans le message de news:
Bonsoir,
Une petite erreur c'est glissée dans le code de JLuc. Remplace cette ligne:
"Didier Novarin" a écrit dans le message de news:OMe%
Bonsoir JLuc Je te remercie beaucoup pour ta rapidité, mais cela plante et renvoie une
erreur 1004 sur cette ligne : Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0)) voilà ce que j'ai réalisé avec ton aide
Sub Le_test() Dim Cell As Range For Each Cell In Range("C2:C100") Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0)) Next End Sub
Je te remercie Didier
"JLuc" a écrit dans le message de news:
*Bonjour Didier Novarin*, For Each cel In Range("C2C100") cel = Application.Proper(cel.Offset(-2,0) & cel.Offset(-1,0)) Next Pas tester, mais devrait convenir, dis nous ;-)
Bonsoir J'ai une colonne A2:A100 dans laquelle j'ai des noms J'ai une colonne B2:B100 dans laquelle j'ai des prénoms Je souhaite pouvoir concaténer par VBA en C2:C100 les noms puis prénoms espacés par un espace soit Nom & " " & Prénom Je vous remercie Didier
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
Re...
Pour ne pas avoir à te préoccuper du nombre exacte de ligne.
Ceci prend la automatiquement la longueur en fonction de la colonne A
'---------
Sub Le_test()
Dim Cell As Range
For Each Cell In Range("a2:a" & Range("a65536").End(3).Row)
Cell.Offset(0, 2) = (Cell & " " & Cell.Offset(0, 1))
Next
End Sub
'----------
JJ
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news:%23QktpdGyGHA.4392@TK2MSFTNGP04.phx.gbl...
Bonsoir Jacky
C'est parfait !
Je te remercie beaucoup
j'essaie d'adapter avec le nombre exact de noms afin que cela ne mouline
pas
trop, car il peut y avoir parfois 100 ou 2500 noms, cela varie
Didier
"Jacky" <nospam@bidon.fr> a écrit dans le message de news:
ue0ezUGyGHA.356@TK2MSFTNGP02.phx.gbl...
Bonsoir,
Une petite erreur c'est glissée dans le code de JLuc.
Remplace cette ligne:
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news:OMe%23DOGyGHA.4240@TK2MSFTNGP03.phx.gbl...
Bonsoir JLuc
Je te remercie beaucoup pour ta rapidité, mais cela plante et renvoie
une
erreur 1004
sur cette ligne :
Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0))
voilà ce que j'ai réalisé avec ton aide
Sub Le_test()
Dim Cell As Range
For Each Cell In Range("C2:C100")
Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0))
Next
End Sub
Je te remercie
Didier
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.cc467d68561d8edd.40692@free.fr.ns...
*Bonjour Didier Novarin*,
For Each cel In Range("C2C100")
cel = Application.Proper(cel.Offset(-2,0) & cel.Offset(-1,0))
Next
Pas tester, mais devrait convenir, dis nous ;-)
Bonsoir
J'ai une colonne A2:A100 dans laquelle j'ai des noms
J'ai une colonne B2:B100 dans laquelle j'ai des prénoms
Je souhaite pouvoir concaténer par VBA en C2:C100 les noms puis
prénoms
espacés par un espace soit Nom & " " & Prénom
Je vous remercie
Didier
Re... Pour ne pas avoir à te préoccuper du nombre exacte de ligne. Ceci prend la automatiquement la longueur en fonction de la colonne A '--------- Sub Le_test() Dim Cell As Range For Each Cell In Range("a2:a" & Range("a65536").End(3).Row) Cell.Offset(0, 2) = (Cell & " " & Cell.Offset(0, 1)) Next End Sub '---------- JJ
"Didier Novarin" a écrit dans le message de news:%
Bonsoir Jacky C'est parfait ! Je te remercie beaucoup j'essaie d'adapter avec le nombre exact de noms afin que cela ne mouline pas
trop, car il peut y avoir parfois 100 ou 2500 noms, cela varie Didier
"Jacky" a écrit dans le message de news:
Bonsoir,
Une petite erreur c'est glissée dans le code de JLuc. Remplace cette ligne:
"Didier Novarin" a écrit dans le message de news:OMe%
Bonsoir JLuc Je te remercie beaucoup pour ta rapidité, mais cela plante et renvoie une
erreur 1004 sur cette ligne : Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0)) voilà ce que j'ai réalisé avec ton aide
Sub Le_test() Dim Cell As Range For Each Cell In Range("C2:C100") Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0)) Next End Sub
Je te remercie Didier
"JLuc" a écrit dans le message de news:
*Bonjour Didier Novarin*, For Each cel In Range("C2C100") cel = Application.Proper(cel.Offset(-2,0) & cel.Offset(-1,0)) Next Pas tester, mais devrait convenir, dis nous ;-)
Bonsoir J'ai une colonne A2:A100 dans laquelle j'ai des noms J'ai une colonne B2:B100 dans laquelle j'ai des prénoms Je souhaite pouvoir concaténer par VBA en C2:C100 les noms puis prénoms espacés par un espace soit Nom & " " & Prénom Je vous remercie Didier
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
Didier Novarin
Merci beaucoup Jacky Très bonne soirée Didier
"Jacky" a écrit dans le message de news:
Re... Pour ne pas avoir à te préoccuper du nombre exacte de ligne. Ceci prend la automatiquement la longueur en fonction de la colonne A '--------- Sub Le_test() Dim Cell As Range For Each Cell In Range("a2:a" & Range("a65536").End(3).Row) Cell.Offset(0, 2) = (Cell & " " & Cell.Offset(0, 1)) Next End Sub '---------- JJ
"Didier Novarin" a écrit dans le message de news:%
Bonsoir Jacky C'est parfait ! Je te remercie beaucoup j'essaie d'adapter avec le nombre exact de noms afin que cela ne mouline pas
trop, car il peut y avoir parfois 100 ou 2500 noms, cela varie Didier
"Jacky" a écrit dans le message de news:
Bonsoir,
Une petite erreur c'est glissée dans le code de JLuc. Remplace cette ligne:
"Didier Novarin" a écrit dans le message de news:OMe%
Bonsoir JLuc Je te remercie beaucoup pour ta rapidité, mais cela plante et renvoie une
erreur 1004 sur cette ligne : Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0)) voilà ce que j'ai réalisé avec ton aide
Sub Le_test() Dim Cell As Range For Each Cell In Range("C2:C100") Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0)) Next End Sub
Je te remercie Didier
"JLuc" a écrit dans le message de news:
*Bonjour Didier Novarin*, For Each cel In Range("C2C100") cel = Application.Proper(cel.Offset(-2,0) & cel.Offset(-1,0)) Next Pas tester, mais devrait convenir, dis nous ;-)
Bonsoir J'ai une colonne A2:A100 dans laquelle j'ai des noms J'ai une colonne B2:B100 dans laquelle j'ai des prénoms Je souhaite pouvoir concaténer par VBA en C2:C100 les noms puis prénoms espacés par un espace soit Nom & " " & Prénom Je vous remercie Didier
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
Merci beaucoup Jacky
Très bonne soirée
Didier
"Jacky" <nospam@bidon.fr> a écrit dans le message de news:
urX4vwGyGHA.4972@TK2MSFTNGP03.phx.gbl...
Re...
Pour ne pas avoir à te préoccuper du nombre exacte de ligne.
Ceci prend la automatiquement la longueur en fonction de la colonne A
'---------
Sub Le_test()
Dim Cell As Range
For Each Cell In Range("a2:a" & Range("a65536").End(3).Row)
Cell.Offset(0, 2) = (Cell & " " & Cell.Offset(0, 1))
Next
End Sub
'----------
JJ
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news:%23QktpdGyGHA.4392@TK2MSFTNGP04.phx.gbl...
Bonsoir Jacky
C'est parfait !
Je te remercie beaucoup
j'essaie d'adapter avec le nombre exact de noms afin que cela ne mouline
pas
trop, car il peut y avoir parfois 100 ou 2500 noms, cela varie
Didier
"Jacky" <nospam@bidon.fr> a écrit dans le message de news:
ue0ezUGyGHA.356@TK2MSFTNGP02.phx.gbl...
Bonsoir,
Une petite erreur c'est glissée dans le code de JLuc.
Remplace cette ligne:
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news:OMe%23DOGyGHA.4240@TK2MSFTNGP03.phx.gbl...
Bonsoir JLuc
Je te remercie beaucoup pour ta rapidité, mais cela plante et renvoie
une
erreur 1004
sur cette ligne :
Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0))
voilà ce que j'ai réalisé avec ton aide
Sub Le_test()
Dim Cell As Range
For Each Cell In Range("C2:C100")
Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0))
Next
End Sub
Je te remercie
Didier
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de
news:
mn.cc467d68561d8edd.40692@free.fr.ns...
*Bonjour Didier Novarin*,
For Each cel In Range("C2C100")
cel = Application.Proper(cel.Offset(-2,0) & cel.Offset(-1,0))
Next
Pas tester, mais devrait convenir, dis nous ;-)
Bonsoir
J'ai une colonne A2:A100 dans laquelle j'ai des noms
J'ai une colonne B2:B100 dans laquelle j'ai des prénoms
Je souhaite pouvoir concaténer par VBA en C2:C100 les noms puis
prénoms
espacés par un espace soit Nom & " " & Prénom
Je vous remercie
Didier
Re... Pour ne pas avoir à te préoccuper du nombre exacte de ligne. Ceci prend la automatiquement la longueur en fonction de la colonne A '--------- Sub Le_test() Dim Cell As Range For Each Cell In Range("a2:a" & Range("a65536").End(3).Row) Cell.Offset(0, 2) = (Cell & " " & Cell.Offset(0, 1)) Next End Sub '---------- JJ
"Didier Novarin" a écrit dans le message de news:%
Bonsoir Jacky C'est parfait ! Je te remercie beaucoup j'essaie d'adapter avec le nombre exact de noms afin que cela ne mouline pas
trop, car il peut y avoir parfois 100 ou 2500 noms, cela varie Didier
"Jacky" a écrit dans le message de news:
Bonsoir,
Une petite erreur c'est glissée dans le code de JLuc. Remplace cette ligne:
"Didier Novarin" a écrit dans le message de news:OMe%
Bonsoir JLuc Je te remercie beaucoup pour ta rapidité, mais cela plante et renvoie une
erreur 1004 sur cette ligne : Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0)) voilà ce que j'ai réalisé avec ton aide
Sub Le_test() Dim Cell As Range For Each Cell In Range("C2:C100") Cell = (Cell.Offset(-2, 0) & " " & Cell.Offset(-1, 0)) Next End Sub
Je te remercie Didier
"JLuc" a écrit dans le message de news:
*Bonjour Didier Novarin*, For Each cel In Range("C2C100") cel = Application.Proper(cel.Offset(-2,0) & cel.Offset(-1,0)) Next Pas tester, mais devrait convenir, dis nous ;-)
Bonsoir J'ai une colonne A2:A100 dans laquelle j'ai des noms J'ai une colonne B2:B100 dans laquelle j'ai des prénoms Je souhaite pouvoir concaténer par VBA en C2:C100 les noms puis prénoms espacés par un espace soit Nom & " " & Prénom Je vous remercie Didier