Concatener 2 rows

Bonjour,

j'ai besoin de concatener 2 row avec leurs nom si vous pouvez m'aider, voici le code que j'utilise:

Dim rng1 As Range

Dim rng2 As Range

Dim rng3 As Range

Dim strF As String, strP As String

Dim wb As Workbook

Dim ws As Worksheet

Dim cell As String

Set wb = Workbooks.Open(strP & "\" & strF)

Set ws = wb.Sheets("feuil1")

Set rng1 = Sheets("feuil1").Rows(1).Find("Copy1")

Set rng2 = Sheets("feuil1").Rows(1).Find("destination")

Set rng3 = Sheets("feuil1").Rows(1).Find("Copy2")

cell = rng1 & rng3

Set rng1 = Range(rng1.Offset(1), rng1.Offset(Rows.Count - 1).End(xlUp))

ws.cell.Copy Destination:=rng2.End(xlUp).Offset(1)

End If

wb.Close True

strF = Dir()

Loop

End Sub

Bonjour,

En l'état votre demande est incompréhensible... Et le code truffé d'incohérences ! Que cherches vous exactement à faire ?

j'ai créer une macro qui me copie les données d'une column par son nom, à une autre mais j'ai besoin de crée une pour faire une concatenation de deux colonne trouvé par leurs nom à cette colonne qui à un nom aussi, voici un exemple qui marche avec une colonne, je veux que la concatenation soit par nom pour 2 colonne dans une autre qui est nomée aussi, je vous remercie.

Une proposition :

Sub Bouton1_Cliquer()

Dim Rng1 As Range, Rng2 As Range, RngDest As Range
Dim ColRng1 As Integer, ColRng2 As Integer, ColDest As Integer, i As Long

With Sheets("Feuil1")
    Set Rng1 = .Rows(1).Find("Data1")
    Set Rng2 = .Rows(1).Find("Data2")
    Set RngDest = .Rows(1).Find("destination")
    If Not Rng1 Is Nothing And Not Rng2 Is Nothing And Not RngDest Is Nothing Then
        ColRng1 = Rng1.Column
        ColRng2 = Rng2.Column
        ColDest = RngDest.Column
        For i = 2 To .Cells(Rows.Count, ColRng1).End(xlUp).Row
            .Cells(i, ColDest) = .Cells(i, ColRng1) & .Cells(i, ColRng2)
        Next i
    Else
        MsgBox "Au moins l'une des colonnes n'a pas été trouvée !"
    End If
End With

End Sub

Merci beaucoup pour votre aide, ça marche bien, c'est tous ce que je cherche .

maroua301 a écrit :

Merci beaucoup pour votre aide, ça marche bien, c'est tous ce que je cherche .

Merci du retour et pour la validation.

Bonne continuation !

je vous en prie, c'est la moindre chose pour vous remercie, est ce que vous pouvez m"aidez pour l'effectuer sur plusieurs feuil dans le même classeur svp , merci d'avance .