Comment ajouter les données de plusieurs cellules dans une

Bonjour tous le monde,

Voila je cherche à insérer dans une cellules, les informations de plusieurs cellule avec une autre méthode que "concatener" car j'ai beaucoup de lignes à traiter. Je vous prie de trouver ci-dessous l'exemple de ce que j'aimerai :

5038580036299 5038580036305,5038580036312,5038580036329,5038580036336,5038580036497

5038580036305 5038580036299,5038580036312,5038580036329,5038580036336,5038580036497

5038580036312 5038580036299,5038580036305,5038580036329,5038580036336,5038580036497

5038580036329 5038580036299,5038580036305,5038580036312,5038580036336,5038580036497

5038580036336 5038580036299,5038580036305,5038580036312,5038580036329,5038580036497

5038580036497 5038580036299,5038580036305,5038580036312,5038580036329,5038580036336

Pour résumé: La première cellule de la deuxième colonne comprend toutes les données de la première colonne (sauf la cellule de sa ligne). Vous trouverez ci-joint les mêmes informations avec chaque chiffre en couleur.

Y - aurait - il selon vous une macro ou formule qui pourrait faire cette action automatiquement ?

Je vous remercie par avance !

Bonne journée

Cindy

Ou :

Dans 1e colonne la valeur de la cellule est unique dans sa colonne et ligne ?

Bonjour Jinhyun,

Oui tout à fait, dans la première colonne ces chiffres seront uniques. Le chiffre qui apparaît par exemple en A1 n’apparaît pas dans B1.

Mais le chiffre dans A1 devra apparaître en B2, B3 etc...

Il faudrait aussi que chaque chiffre (dans la deuxième colonne) soit séparé d'une virgule et sans espace.

As tu le fichier de départ ?

Bonjour,

Avec une fonction personnalisée :

Function CONCATCOLSAUFLIG(col As Range, lig As Range) As String
    Dim conc
    Application.Volatile
    conc = Replace(Join(Application.Transpose(col), ",") & ",", lig & ",", "")
    CONCATCOLSAUFLIG = Left(conc, Len(conc) - 1)
End Function

Cordialement

Je ne peux pas envoyer tout le fichier mais tu trouveras en pièce jointe une série d'exemple.

Le saut de ligne signifie une séparation entre les lots.

Le chiffre dans la colonne A11 avant le saut de ligne ne doit pas se retrouver dans la colonne B13 après le saut de ligne.

MFerrand a écrit :

Bonjour,

Avec une fonction personnalisée :

Function CONCATCOLSAUFLIG(col As Range, lig As Range) As String
    Dim conc
    Application.Volatile
    conc = Replace(Join(Application.Transpose(col), ",") & ",", lig & ",", "")
    CONCATCOLSAUFLIG = Left(conc, Len(conc) - 1)
End Function

Cordialement

Merci MFerrand,

Je vous remercie beaucoup, effectivement la formule fonctionne !!!

C'est vraiment génial, je vais économiser énormément de temps !!!

Très cordialement

Cindy