Réunir données de plusieurs cellules dans une seule

Bonjour, d'abord désolé si ce "problème" a déjà été traité mais j'ai beau chercher aucun sujet ne répond totalement à mon soucis.

Le plus simple pour comprendre mon soucis est de regarder le fichier joint. Je voudrais automatiser la cellule C35. Si quelqu'un à une solution, j'avoue que ça me serait très utile par avance merci en espérant que ce soit assez clair !

12test.xlsx (33.29 Ko)

Bonsoir,

une solution via une fonction personnalisée

Function concattableau(t)
    rg = ""
    For j = 1 To t.Columns.Count
        rc = ""
        For i = 2 To t.Rows.Count
            If t.Cells(i, j) <> "" Then
                rc = IIf(rc = "", t.Cells(1, j) & " : ", rc & "-") & t.Cells(i, j)
            End If
        Next i
        If rc <> "" Then
            rg = IIf(rg = "", "", rg & " / ") & rc
        End If
    Next j
    concattableau = rg
End Function

voir utilisation dans fichier joint

7alex83400.xlsm (16.13 Ko)

Merci beaucoup de ta réponse et du temps passé. J'ai voulu simplifier mon tableau et du coup ça manquait de clarté car les valeurs dans le tableau sont issues d'une formule et du coup ça ne fonctionne pas. Si tu as un peu de temps pour regarder, voici le tableau tel qu'il est vraiment. Dans tous les cas, merci de ton aide.

3test2.zip (18.28 Ko)

bonsoir,

c'est sûr que si tu n'as pas le code de la macro dans ton classeur, cela ne peut pas fonctionner.

6test2.zip (25.46 Ko)

Bonsoir, rien à dire si ce n'est un immense merci ! À bientôt

Rechercher des sujets similaires à "reunir donnees seule"