Concatenation de plusieurs cellules

[François]

Bonjour,

Je cherche à créer une macro qui concatenne toutes les cellules d'une sélection donnée dans la cellulle en haut à gauche de la sélection.

Exemple :

______________________
/ a / b /
______________________
/ c / d /
______________________

La macro rendrait :

______________________
/ abcd / /
______________________
/ / /
______________________

Merci pour votre aide

 

[EricS]

Bonjour

exemple c1 qui concatène a1, b1

range("c1").value = range("a1").value & range("b1").value

ou

range("c1").select
activecell.value = activecell.offset(0,-2).value & activecell.offset(0,-1).value

la seconde te permet facilement de dupliquer dans d'autres cellules

Eric

 

[STéphane]

bonjour

regarde la fonction txt_concatenation dans le message suivant :
<http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=6913&t=6901>

Stephane

 

[francois]

voici une solution au problème :

Sub ConcateneSelection()
For i = 0 To Selection.Rows.Count
For j = 0 To Selection.Columns.Count
If i + j > 0 Then
ActiveCell.Value = ActiveCell.Value & " " & ActiveCell.Offset(i, j).Value
ActiveCell.Offset(i, j).ClearContents
End If
Next
Next
End Sub

Il existe encore plus simple en utilisant :

dim my_cell as cell
for each my_cell in selection

merci à tous pour votre aide.