macro pour "concatener" des cellules

[ginger59]

Bonjour à tous,

Je cherche à remplir une cellule en "concatenant" un nombre de cellules variable.
Dans une colonne j'ai une liste de taille variable et je souhaiterais créer une cellule du type: valeur1 / valeur2 / valeur3 / ...

en utilisant une fonction fixe j'aurais fait =A1&" / "&A2& " / "...&An

Mais avec une macro je bloque.

Si vous avez des idées pour me débloquer merci d'avance.

Ginger

PS: j'ai essayé ça:

Sheets("Travail").Select
For n = 2 To Range("C65536").End(xlUp).Column

Sheets("Tableau").Select
Range("B2").Select
ActiveCell.FormulaR1C1 = "=Travail!C" & n
Next n

mais ça marche pas

 

[skoobi]

Re : macro pour "concatener" des cellules

Bonjour,

essaye ceci:

Sub concac()
Dim concatene As Variant
Dim n As Integer
concatene = ""
For n = 2 To Range("C65536").End(xlUp).Row
    concatene = concatene & "/" & Range("c" & n).Value
Next
Range("B2").Value = concatene
End Sub

 

[i0raek]

Re : macro pour "concatener" des cellules

Salut,

essais avec ca :

Sheets("Feuil2").Range("B2").Value = ""

For Each cell In Sheets("Feuil1").Range("C2:C" & Sheets("Feuil1").Range("C65536").End(xlUp).Row)
    
Sheets("Feuil2").Range("B2").Value = Sheets("Feuil2").Range("B2").Value & " - " & cell.Value
    
Next

c'est un début, je cherche pour pouvoir créer le lien...

 

[ginger59]

Re : macro pour "concatener" des cellules

Merci beaucoup car ça fonctionne

Question purement de présentation:
Est il possible de supprimer le premier "/" car la cellule de destination comme par "/ " et non par la première valeur?

 

[skoobi]

Re : macro pour "concatener" des cellules

Re,

voici la macro modifiée:

Sub concac()
Dim concatene As Variant
Dim n As Integer
concatene = Range("c2").Value
For n = 3 To Range("C65536").End(xlUp).Row
    concatene = concatene & "/" & Range("c" & n).Value
Next
Range("B2").Value = concatene
End Sub