Regrouper plusieurs cellules/lignes pays par code

Bonjour à tous,

Tout d'abord merci pour votre aide.

Je vous explique mon cas. J'ai un fichier d'environ 11 000 lignes et j'ai besoin de consolider la destination pays par code.

Je ne sais pas comment faire à part la formule concatener mais c'est tres long au vu des lignes.

En plus parfois, j'ai 2 pays par code d'autres fois 7 pays par code etc..

Je me demande s'il faut faire une petite macro dans ce cas. J'ai essayé d'apprendre mais niveau 0 pour l'instant.

Pouvez-vous me dire comment je dois proceder svp?

Merci par avance,

Imane

Bonjour

cordialement

C'est fait :)

C'est pas mon reel fichier comme c'est pro mais ca resume la problematique

Ok mais vous voulez quoi comme tableau au final ?

En faite ce dont j'ai besoin c'est de savoir dans quels pays partent mes produits.

Le but à la fin serait d'avoir une cellule avec un code et dans la cellule d'à coté tous les pays concernés

Le but à la fin serait d'avoir une cellule avec un code et dans la cellule d'à coté tous les pays concernés

Ok mais tous les pays dans une seule cellule ou chaque pays dans une cellule

les deux me vont mais dans un premier temps dans une seule cellule.

Par la suite, j'aurais surement besoin de les mettre en cellule individuelle par colonne.

Merci

Bonjour à tous !

Je vous livre une proposition via Power Query :

Merci JFL c'est exactement le résultat que je souhaite. Malheureusement, les logiciels sont contrôlés par l'IT et je ne peux rien installer qui ne soit pas approuvé :(

Bonjour de nouveau !

Power Query est nativement installé dans votre version Excel..... heureux utilisateur que vous êtes !
Rien à installer.... Rien à demander !

Bon je poste tout de même puisque j'y ai passé du temps

Sub Test()
Dim Cel As Range, plage As Range
Dim Un As Collection
Dim Lig As Integer, Dcl As Integer

Application.ScreenUpdating = False
Set Un = New Collection

With Sheets("Feuil3")
    Set plage = .Range("A4:A" & .Range("A" & .Rows.Count).End(xlUp).Row)
    plage.Sort Key1:=.Range("A4:B" & plage.Rows.Count + 3), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

    On Error Resume Next
    For Each Cel In .Range("A4:A" & plage.Rows.Count + 3)
        If Cel <> "" Then
            Un.Add Cel, CStr(Cel)
            Select Case Err
            Case Is = 0
                Lig = Cel.Row: Dcl = .Cells(Lig, Columns.Count).End(xlToLeft).Column + 1
            Case Is <> 0
                .Cells(Lig, Dcl) = Cel.Offset(0, 1)
                Dcl = Dcl + 1
                .Rows(Cel.Row).ClearContents
            End Select
            Err.Clear
        End If
    Next Cel
plage.SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End With
Set Un = Nothing

Application.ScreenUpdating = True
End Sub

Faites un test sur ce code qui vous met les données dans une colonne séparée, enfin si cela vous intéresse encore

Cordialement

Merci à tous les deux c'est super.

@Dan biensur que ca m'interesse encore. J'en envie d'apprendre VBA donc je vais le tester dans tous les cas.

@JBL je vais voir egalement si j'y arrive je ne connaissais pas du tout

Une proposition en vba

Bonjour de nouveau !

Dan a écrit :

Bon je poste tout de même puisque j'y ai passé du temps

" Abondance de biens ne nuit pas ! "

Et ici, le partage démultiplie le savoir !

Comme dit l'adage

"Le savoir c'est le seul bien qui augmente quand on le partage"

merci Yal, je vais regarder.

@JFL tant bien que mal j'ai reussi à me retrouver dans la fenetre power query.

Par contre, je n'ai pas compris ce que je dois selectionner pour avoir mon resultat :)

JFL a écrit:

" Abondance de biens ne nuit pas ! "

Pas sûr. Trop peut aussi nuire

Et ici, le partage démultiplie le savoir

C'est le but d'un forum.

Bonjour de nouveau !

Ima21 a écrit :

@JFL tant bien que mal j'ai reussi à me retrouver dans la fenetre power query.

Par contre, je n'ai pas compris ce que je dois selectionner pour avoir mon resultat :)

Il vous faudra placer dans le tableau structuré ("t_Data") vos données réelles, actualiser et.... c'est tout.

Si vous êtes dans l'obligation d'intégrer ce processus dans un autre fichier classeur, un simple copier/coller de la requête et le tour est joué ! Si le nom de votre tableau structuré doit être modifié, il conviendra d'opérer ce même changement dans la première étape de la requête.

Merci JBL ca a fonctionné.

Merci à tous pour votre aide super rapide.

Je vais cloturer la demande mais je vais quand meme essayé de faire la macro pour y arriver egalement.