Concatener plusieurs cellules

Bonjour à tous,

Je voudrais concatener plusieur cellules

exemple :

concatener ce qu'il y a dans les cellules A2, B2, C2 feuille1 dans la cellule A 18 feuille 2.

comment programmer ça en VBA svp?

Je vous remercie d'avance pour l'aide que vous allez m'apporter.

amicalmenent,

Samm

Bonjour,

Sub Concatener()
'concatener ce qu'il y a dans les cellules A2, B2, C2 feuille1 dans la cellule A18 feuille 2.
    With Worksheets("Feuil1")
        Worksheets("Feuil2").Range("A18") = .Range("A2") & .Range("B2") & .Range("C2")
    End With
End Sub

A+

merci d'avoir répondu aussi vite

ton code fonctionne bien mais le soucis c'est que ça prend toujours la meme ligne.

J'ai mal posé mon problème

et je voudrais concatener la dernier ligne non vide des cellule A, B et C feuille 1 dans la feuille 2 cellule A18.

sachant que j'ai une base de données que j'alimente a chaque fois dans les colonnes A,B et C.

voilà ce que je veux faire vraiment.

Bonjour

2 autres méthodes

Cordialement

Merci frangy,

Merci Amadéus.

Amicalement,

Samm

Re ,

Bonjour Amadéus,

Pour compléter la solution avec la procédure

Sub Concatener()
Dim DerLig As Long, i As Byte
    'concatener ce qu'il y a dans la dernière ligne des cellules A, B, C feuille1 dans la cellule A18 feuille 2.
    With Worksheets("Feuil1")
        DerLig = .Range("A1").End(xlDown).Row
        Worksheets("Feuil2").Range("A18") = ""
        For i = 1 To 3
            Worksheets("Feuil2").Range("A18") = Worksheets("Feuil2").Range("A18") & .Cells(DerLig, i)
        Next i
    End With
End Sub

A+

Merci frangy.

c'est parfait.

Bonne soirée.