OVH Cloud OVH Cloud

concatener de colonnes

4 réponses
Avatar
BlackStorm
Salut,

J'ai un tableau de plusieurs milliers de lignes.

Or pour chaque client j'ai une colonne i : numero rue
j: type rue
l: adresse

Dans chaque cellule de la colonne K
J'utilise la formule du type
=I5&" "&J5&" "& L5
=I6&" "&J6&" "& L6
etc...

Or comme je voudrais que dans la colonne K apparaisse le resultat et non pas
la formule.... je sais pas si je suis clair.

comment faire
d'autant que mon tableau peut avoir une longueur variable

Merci!

4 réponses

Avatar
Ellimac
Bonjour,

Avec ou sans macro ?
Sans :
Entrer la formule, la recopier vers le bas, copier la
colonne et faire sur la même colonne un collage spécial en
valeur.
Avec :
Sub Toto()
d = Range("a65000").End(xlUp).Row
Range("K2:K" & d) = "=RC[-2]&"" ""&RC[-1] & "" "" & RC[1]"
Columns(11).Copy
Columns(11).PasteSpecial xlValues
Columns(11).AutoFit
Application.CutCopyMode = False
ActiveCell.Select
End Sub

Camille

-----Message d'origine-----
Salut,

J'ai un tableau de plusieurs milliers de lignes.

Or pour chaque client j'ai une colonne i : numero rue

j: type rue


l: adresse


Dans chaque cellule de la colonne K
J'utilise la formule du type
=I5&" "&J5&" "& L5
=I6&" "&J6&" "& L6
etc...

Or comme je voudrais que dans la colonne K apparaisse le
resultat et non pas

la formule.... je sais pas si je suis clair.

comment faire
d'autant que mon tableau peut avoir une longueur variable

Merci!



.



Avatar
BlackStorm
Avec macro ? C'est possible ?

Merci :)
"Ellimac" a écrit dans le message de
news: 106f801c3f49c$991a9ec0$
Bonjour,

Avec ou sans macro ?
Sans :
Entrer la formule, la recopier vers le bas, copier la
colonne et faire sur la même colonne un collage spécial en
valeur.
Avec :
Sub Toto()
d = Range("a65000").End(xlUp).Row
Range("K2:K" & d) = "=RC[-2]&"" ""&RC[-1] & "" "" & RC[1]"
Columns(11).Copy
Columns(11).PasteSpecial xlValues
Columns(11).AutoFit
Application.CutCopyMode = False
ActiveCell.Select
End Sub

Camille

-----Message d'origine-----
Salut,

J'ai un tableau de plusieurs milliers de lignes.

Or pour chaque client j'ai une colonne i : numero rue

j: type rue


l: adresse


Dans chaque cellule de la colonne K
J'utilise la formule du type
=I5&" "&J5&" "& L5
=I6&" "&J6&" "& L6
etc...

Or comme je voudrais que dans la colonne K apparaisse le
resultat et non pas

la formule.... je sais pas si je suis clair.

comment faire
d'autant que mon tableau peut avoir une longueur variable

Merci!



.



Avatar
Ellimac
Ben tu as les 2 dans ce que je t'ai proposé!!!

Camille

-----Message d'origine-----
Avec macro ? C'est possible ?

Merci :)
"Ellimac" a écrit
dans le message de

news: 106f801c3f49c$991a9ec0$
Bonjour,

Avec ou sans macro ?
Sans :
Entrer la formule, la recopier vers le bas, copier la
colonne et faire sur la même colonne un collage spécial en
valeur.
Avec :
Sub Toto()
d = Range("a65000").End(xlUp).Row
Range("K2:K" & d) = "=RC[-2]&"" ""&RC[-1] & "" "" & RC[1]"
Columns(11).Copy
Columns(11).PasteSpecial xlValues
Columns(11).AutoFit
Application.CutCopyMode = False
ActiveCell.Select
End Sub

Camille

-----Message d'origine-----
Salut,

J'ai un tableau de plusieurs milliers de lignes.

Or pour chaque client j'ai une colonne i : numero rue

j: type rue


l: adresse


Dans chaque cellule de la colonne K
J'utilise la formule du type
=I5&" "&J5&" "& L5
=I6&" "&J6&" "& L6
etc...

Or comme je voudrais que dans la colonne K apparaisse le
resultat et non pas

la formule.... je sais pas si je suis clair.

comment faire
d'autant que mon tableau peut avoir une longueur variable

Merci!



.




.




Avatar
BlackStorm
Mes Excuses, j'ai vu qu'après !! Pas doué je sais :(
"Ellimac" a écrit dans le message de
news: 1156e01c3f49e$e0de21d0$
Ben tu as les 2 dans ce que je t'ai proposé!!!

Camille

-----Message d'origine-----
Avec macro ? C'est possible ?

Merci :)
"Ellimac" a écrit
dans le message de

news: 106f801c3f49c$991a9ec0$
Bonjour,

Avec ou sans macro ?
Sans :
Entrer la formule, la recopier vers le bas, copier la
colonne et faire sur la même colonne un collage spécial en
valeur.
Avec :
Sub Toto()
d = Range("a65000").End(xlUp).Row
Range("K2:K" & d) = "=RC[-2]&"" ""&RC[-1] & "" "" & RC[1]"
Columns(11).Copy
Columns(11).PasteSpecial xlValues
Columns(11).AutoFit
Application.CutCopyMode = False
ActiveCell.Select
End Sub

Camille

-----Message d'origine-----
Salut,

J'ai un tableau de plusieurs milliers de lignes.

Or pour chaque client j'ai une colonne i : numero rue

j: type rue


l: adresse


Dans chaque cellule de la colonne K
J'utilise la formule du type
=I5&" "&J5&" "& L5
=I6&" "&J6&" "& L6
etc...

Or comme je voudrais que dans la colonne K apparaisse le
resultat et non pas

la formule.... je sais pas si je suis clair.

comment faire
d'autant que mon tableau peut avoir une longueur variable

Merci!



.




.