Discussion :

[jamal.obito]

Bonjour
Je ne suis pas trop doué sur VBA, je recherche une macro pour concaténer des lignes selon le critère: avoir la même chaine de caractère sur sur colonneexemple.xlsxexemple.xlsx A par exemple.
En pièce jointe un exemple.

Merci d'avance de votre aide.

[Malick]

Salut,

Vous chez une macro, mais juste signaler également que vous pouvez y arriver avec un TCD

[jamal.obito]

Merci, mais je dois avoir des cases non fusionnées, ce qu'est pas possible avec un TDC. y a t il d autre méthode ou code ..

[EricDgn]

Bonjour,

Une façon de faire en utilisant une macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Option Explicit
 
'--- considère Colonne1 du Tableau1 triée
 
Sub Concatener()
    Dim rT1 As Range, rT2 As Range, sC1 As String, kC As Integer
    Set rT1 = Range("Tableau1").Cells(1, 1)
    Set rT2 = Range("Tableau2").Cells(1, 1)
    If Range("Tableau2").Rows.Count > 1 Then Range("Tableau2").Delete   '--- vide Tableau2
    sC1 = rT1
    While rT1 <> ""
        rT2 = rT1
        For kC = 1 To 6
            rT2.Offset(0, kC) = rT2.Offset(0, kC) & rT1.Offset(0, kC) & vbLf
        Next kC
        Set rT1 = rT1.Offset(1, 0)
        If rT1 <> sC1 Then              '--- nouvelle valeur
            For kC = 1 To 6             '--- pour supprimer les vbLf inutiles
                rT2.Offset(0, kC) = Left(rT2.Offset(0, kC), Len(rT2.Offset(0, kC)) - 1)
            Next kC
            sC1 = rT1
            Set rT2 = rT2.Offset(1, 0)
        End If
    Wend
End Sub

Cordialement.

[jamal.obito]

Merci pour le macro, est ce que vous pouvez me dire svp comment je peux faire pour adapter la macro pour que elle fonctionne sur n importe quel fichier, avec un tableau plus grand ( plus de colonnes).

Merci d'avance de votre aide

Cordialement

[EricDgn]

Le code proposé fonctionne pour n'importe quels tableaux. Il suffit que le premier soit nommé Tableau1 et que le second soit nommé Tableau2. Les noms des colonnes sont identiques et placées dans le même ordre.

Cordialement.

[78chris]

Bonjour à tous

Merci, mais je dois avoir des cases non fusionnées, ce qu'est pas possible avec un TDC. y a t il d autre méthode ou code ..

Alors pourquoi dans le résultat attendu tu as fusionné les cellules ?

Je partage l'avis de Raccourcix