Prendre des mots/nombres et concaténer dans une cellule…

[MARSEILLE13150]

Bonjour,

Dans un fichier Excel, j’ai différentes colonne remplies de textes et de nombres.

Je souhaite faire une macro qui réalise un « texte » contenant des éléments repris des autres cellules (l’opération se fait uniquement sur la même ligne, et le résultat est affiché toujours en colonne A), l’opération se déroule tant que les lignes sont remplies.

Exemple :

Souhaité en colonne A : « BLABLA_TESTE_US_0.pdf »

«BLABLA» : texte pris de la colonne C ; suivi de : «_TESTE_» : Toujours fixe et identique ; suivi de «US» : texte pris de la colonne R ; suivi de «_» : Toujours fixe et identique ; suivi de : «0» : nombre pris de la colonne Q.

Auriez- vous une idée, une piste ?

Merci beaucoup, bonne journée.

 

[titiborregan5]

Re : Prendre des mots/nombres et concaténer dans une cellule…

Bonjour marseille, le forum,

si j'ai bien compris,
avec, en A1: =c1&"_TESTE_"&R1&"_"&q1 ça devrait marcher...

 

[MARSEILLE13150]

Re : Prendre des mots/nombres et concaténer dans une cellule…

Bonjour,

Merci pour votre réponse. Je comprends la formule et cela fonctionne très bien.

Pensez vous qu'il y aurait une possibilité sous forme de macro, pour réalisation sur toute la feuille tant que les ligne sont pleines ?

Merci beaucoup. Bonne journée.

Bonjour marseille, le forum,

si j'ai bien compris,
avec, en A1: =c1&"_TESTE_"&R1&"_"&q1 ça devrait marcher...

 

[titiborregan5]

Re : Prendre des mots/nombres et concaténer dans une cellule…

Oui bien sur!
Mais que signifie "tant que les lignes sont pleines"?

En gros ça donnerait
[highlight=Vba]
for i = 1 to derniereligne

if ligne pleine then
cells(i,1)=cells(i,3)&"_teste_"&cells(i,18)&"_"&cells(i,17)
end if
next
[/code]

 

[MARSEILLE13150]

Re : Prendre des mots/nombres et concaténer dans une cellule…

Bonjour,

Merci.

Ligne pleine = Tant qu'il y a des informations dans les cellules (de la colonne B par exemple).
Quand le tableau arrive en bas (plus d'information dans colonne B) : Arrêt de la macro.

Bonne journée, et encore merci.

Oui bien sur!
Mais que signifie "tant que les lignes sont pleines"?

En gros ça donnerait
[highlight=Vba]
for i = 1 to derniereligne

if ligne pleine then
cells(i,1)=cells(i,3)&"_teste_"&cells(i,18)&"_"&cells(i,17)
end if
next
[/code]

 

[titiborregan5]

Re : Prendre des mots/nombres et concaténer dans une cellule…

A essayer:
[highlight=Vba]
for i = 1 to range("65000").end(xlup).row

if cells(i,2)<>"" then
cells(i,1)=cells(i,3)&"_teste_"&cells(i,18)&"_"&cells(i,17)
end if
next
[/code]