Concatener des valeurs de plusieurs cellules

Question

Je débute dans le VBA. J'ai crée ma macro commande, et j'ai presque fini, mais je bute sur une partie: J'ai une colonne B, avec des identifiants. Je peux avoir plusieurs lignes avec le même identifiant consécutif, et c'est que les valeurs de la colonne G qui varient. J'ai besoin de concaténer ces valeurs de la colonne G, les séparer d'un slash, et copier tout dans la feuille 2 dans la colonne G. J'ai déclaré ma ligne i et ma ligne j=i+1 dans la feuille1 et m et n=m+1 dans la feuille 2 Merci pour tout commentaire...

vbMsgBoxHelpButton · Answer

Bonjour, avec un fichier c'est plus simple... Sinon concaténer des chaines sous VBA vous pouvez utiliser Ma_Chaine = Range("A1") & "/" & Range("B1") & "-" & Range("C1")

Ici la valeur de la cellule A1 est concaténée avec celle de B1 avec ajout d'un slash, et C1 à la suite du reste avec un tiret...

A adapter dans votre code en fonction des colonnes et des lignes...

vbMBHB

vbMsgBoxHelpButton · Answer

Toujours est-il qu'une question mal posée sans fichier sera toujours moins bien comprise que la même question avec un fichier...

Je vois le fichier joint... C'est un bon début, pour le reste il faut que je me penche dessus !

vbMBHB

vbMsgBoxHelpButton · Answer

Une proposition de code à mettre dans un module standard :

Sub vbMBHB()
    ' tri du tableau en fonction de la colonne B du plus petit au plus grand
    ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort.SortFields.Add Key:=Range _
        ("B1:B2620"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ' définition des variables
    Dim Ligne_testée As Long, Identifiant_testé As String, Identifiant_en_cours As String, Cumul_Valeur As String
    Dim Ligne_Feuil2 As Long
    Ligne_testée = 2
    Ligne_Feuil2 = 2
    Identifiant_en_cours = ""
    Cumul_Valeur = ""
    With Sheets("Feuil1")
        Do
            If .Cells(Ligne_testée, 2).Value = "" Then Exit Do
            Identifiant_testé = .Cells(Ligne_testée, 2).Value
            If Identifiant_testé = Identifiant_en_cours Then
                Cumul_Valeur = Cumul_Valeur & "/" & .Cells(Ligne_testée, 7).Value
            Else
                If Cumul_Valeur <> "" Then
                    Sheets("Feuil2").Cells(Ligne_Feuil2, 2).Value = Identifiant_en_cours
                    Sheets("Feuil2").Cells(Ligne_Feuil2, 7).Value = Cumul_Valeur
                    Cumul_Valeur = ""
                    Ligne_Feuil2 = Ligne_Feuil2 + 1
                Else
                    Identifiant_en_cours = Identifiant_testé
                    Cumul_Valeur = .Cells(Ligne_testée, 7).Value
                End If
            End If
            Ligne_testée = Ligne_testée + 1
        Loop
        If Cumul_Valeur <> "" Then
            Sheets("Feuil2").Cells(Ligne_Feuil2, 7).Value = Cumul_Valeur
            Cumul_Valeur = ""
            Ligne_Feuil2 = Ligne_Feuil2 + 1
        End If
    End With
End Sub

Je suis partis sur le nom des feuilles du fichier "test" ainsi que sur le colonnes G et B

vbMBHB

vbMsgBoxHelpButton · Answer

Bonsoir, n'hésitez pas à utiliser les balises pour rendre le code plus facile à lire...

Après sans me pencher dessus, je vous indique une erreur d'interprétation du problème par rapport à mon code :

mon code est fait avec un tri au niveau des identifiants, en effet il est fait qu'il vérifie si l'identifiant du "dessous" est égale ou pas à l'identifiant "actuel", car avec le tri tous les identifiants égaux sont à la suite !

Rien n'empêche à l'issue de la procédure de remettre le tableau source en tri par date.

vbMBHB

James007 · Answer

Bonjour, Effectivement ... joindre le fichier est une Excellente idée ... !!! Concernant l'usage du Forum ... pour poster du Code .... il faut utiliser les balises Code ... Bouton N°5 photo jointe .....

vbMsgBoxHelpButton · Answer

Une photo mise à jour des boutons de mise en forme.... Et oui James007, le forum à évolué... La base de données des images est à refaire ! vbMBHB...

Patty5046 · Answer

Fichier modifié : A voir...

vbMsgBoxHelpButton · Answer

Bonsoir, je ré édite ce que j'ai dis : votre code ne peut fonctionner car vous ne faite pas le tri par identifiant, du coup vous faite un test d'égalité d'identifiant avec "juste" la ligne du dessous, mais il se peut que l'identifiant testé se retrouve 5 lignes plus bas...

Donc mon code fait un tri par identifiant (colonne 2) afin de "regrouper" les identifiants égaux.

Ensuite, en partant de la ligne 2 je contrôle la ligne du dessous, la ligne 3, si c'est le même identifiant je concatène les codes avec un slash de séparation, et je teste la ligne 4, si c'est le même identifiant, je rajoute à la concaténation le nouveau code, je contrôle la ligne 5 et là ce n'est pas le même identifiant, je copie les données de l'identifiant d'avant sur la feuille 2, avec la valeur concaténée en colonne G.

j'initialise à la valeur du code du nouvel identifiant la concaténation, et je teste la ligne 6 etc...

A l'issue du code je tri la feuille 1 en fonction des dates de la colonne 3.

A savoir que dans votre code la ligne :

Sheets("Feuil2").Cells(m, 7) = Sheets("Feuil1").Range("G" & i & ":G" & j).Value & "/"

ne concatène pas du tout les valeur de la colonne G de la ligne "i" et de la ligne "j", ce qu'elle fait c'est de prendre la valeur de la ligne i avec le slash qui suit...

Donc, vous aurez compris que ce sera le dernier essai avec ce fichier :

60intparligne-vbmbhb.xlsm (173.95 Ko)

vbMBHB