Macro aligner données identique

Bonjour à tous

Je suis à la recherche d'une macro permettant d'aligner et trier les valeurs de plusieurs colonne.

Je joint le fichier se sera plus claire pour comprendre ma demande

Merci d'avance

Bonne journée

Bonjour,

Un test qui est loin d'être optimisé mais qui donne le résultat attendu :

Sub TRI()
With ActiveSheet
    Set DICO = CreateObject("Scripting.Dictionary")
    For COL = 0 To 2
        .Cells(3, 15 + COL).FormulaR1C1 = "=IFERROR(VLOOKUP(RC14,C" & 4 * COL + 1 & ":C" & 4 * COL + 2 & ",2,FALSE),"""")"
        PLAGE = .Range(Cells(3, 4 * COL + 1), Cells(.Cells(.Rows.Count, 4 * COL + 1).End(xlUp).Row, 4 * COL + 1))
        For LIG = LBound(PLAGE) To UBound(PLAGE)
            If PLAGE(LIG, 1) <> "" Then DICO(PLAGE(LIG, 1)) = ""
        Next LIG
    Next COL
    .[N3].Resize(DICO.Count) = Application.Transpose(DICO.Keys)
    .Range(Cells(3, 14), Cells(.Cells(.Rows.Count, 14).End(xlUp).Row, 14)).Sort Key1:=Range("N3"), Order1:=xlAscending, Header:=xlNo
    With .Range(Cells(3, 15), Cells(.Cells(.Rows.Count, 14).End(xlUp).Row, 17))
        .FillDown
        .Copy
        .PasteSpecial xlPasteValues
    End With
End With
Application.CutCopyMode = False
End Sub

Bonne journée.

Merci Ergotamine

J'ai tester , mais j'ai un message d'erreur

Bonjour toutes et tous

merci Ergotamine ^^

@Netparty

version Excel 2016 Fr de mon côté, cela fonctionne parfaitement,

ci-joint (activer les macros ) .xlsm

crdlt,

André

Désolé Andre, j'ai vraiment l'impression d'avoir fait un vieux pâté en cherchant des idées à droite à gauche et une quelconque logique ..

Netparty, sur quelle ligne as-tu un message d'erreur ?

Bonjour,

Une proposition Power Query.

VBA est utilisé pour l'actualisation auto. (Saisir Ctrl + m).

Cdlt.

Bonjour à tous

Merci pour vos fichiers.

Vos fichiers fonctionne correctement le seul bémol, si j'ai 2 lignes identiques elle ne sont pas additionnées.

Bonne journée

Bonjour,

Ce n'est pas ce que tu avais demandé ou présenté, il n'y a que des 1 partout avec des valeurs uniques.

Ci-joint un fichier adapté.

Bonne journée

Bonjour Ergotamine

Désolé j'avais oublié de le préciser.

Si je dois ajouter des colonnes de données quel partie du code faut-il modifier.

Merci

Bonne journée

Bonjour,

Une petite mise à jour !...

Pour l'ajout de nouvelles données, mettre les nouvelles données sous forme de tableau et renommer impérativement en T_xx.

Cdlt.

Bonjour,

Quelles données ajouter ? L'espacement est-il toujours le même ?

J'essaierai de le rendre le plus dynamique et flexible possible mais il va me falloir plus d'information sur ce que tu es susceptible de modifier.

Bonne journée

@Ergotamine

Le format sera le suivant :

1 colonne description et 1 colonne Nombre puis 2 colonnes vide puis on recommence 1 colonne description et 1 colonne Nombre puis 2 colonnes vide ainsi de suite.

Bonne journée

Bonjour,

Une allergie à Power Query ?

Cdlt.

Bonjour Jean-Eric

Non pas du tout allergique a power query, mais je test toutes vos solutions et la tienne fonctionne très bien aussi

Bonne journée