Concaténation en plusieurs cellules

[Baby_Lone]

Bonjour à tous,

Je réalise un outil permettant de créer des lignes sur Google Earth depuis une base de données Excel.

Cependant je rencontre un problème lors de ma concaténation, pour l'instant j'arrive à tout concaténer dans une case cependant je voudrais que l'opération se relance à chaque fois que l'on rencontre le nom d'une cellule dans la colonne A.

Est ce que vous avez des idées?



Merci d'avance,

 

[phlaurent55]

Re : Concaténation en plusieurs cellules

bonjour Baby-Lone, et bienvenue sur le forum

essaie avec ceci:

'Concatenation en une colonne dans la colonne F
Set Sh2 = Sheets("Data")

For Each Cellule In Sh2.Range("F2:F" & Sh2.Range("B65536").End(xlUp).Row)
   If Cells(Cellule.Row, 1) <> "" Then Cellule.Value = Sh2.Range("B" & Cellule.Row).Value & "," & Sh2.Range("C" & Cellule.Row).Value & "," & Sh2.Range("D" & Cellule.Row).Value
Next

j'ai ajouté:
If Cells(Cellule.Row, 1) <> "" Then ....................................


à+
Philippe

 

[Bebere]

Re : Concaténation en plusieurs cellules

bonjour Baby-lone ,Phlaurent
bienvenue
une autre proposition

 

[Baby_Lone]

Re : Concaténation en plusieurs cellules

Merci à vous deux pour ces réponses rapides !
En combinant les deux solutions j'ai pu trouver quelque chose qui me correspondait.

Comment fait-on pour passer le sujet en résolu?