Macri VBA tri données

Bonjour,

je voudrais à partir d'une feuille avec un tableau à trois colonnes dont la deuxième possède '4 données différentes (MER MAT, MER AP, JEU MAT, JEU AP). Extraire dans une autre feuille le tri en insérant les données de la première et la troisième colonne.

Voir fichier joint feuille données (saisie) feuille résultat (tri)

Bonjour et bienvenue sur le forum

Un essai à tester. Te convient-il ?

Bye !

Bonjour,

désolé pas l'habitude des forums, je n'ai pas trouvé le résultat.

Merci

Désolé, c'est moi qui avais fait une bourde dans le tableau...

Bye !

Bonjour,

A essayer :

Sub Réorganiser()
    Dim T1(), T2(), T3(), T4(), k, T, n%, i%, i1%, i2%, i3%, i4%
    With Worksheets("Saisie")
        n = .Cells(.Rows.Count, 2).End(xlUp).Row
        .Range("A6:C" & n).Sort key1:=.Range("A6"), order1:=xlAscending, Header:=xlNo
        For i = 6 To n
            Select Case UCase(.Cells(i, 2))
                Case "MER MAT"
                    i1 = i1 + 1: ReDim Preserve T1(1, i1 - 1)
                    T1(0, i1 - 1) = .Cells(i, 1): T1(1, i1 - 1) = .Cells(i, 3)
                Case "MER AP"
                    i2 = i2 + 1: ReDim Preserve T2(1, i2 - 1)
                    T2(0, i2 - 1) = .Cells(i, 1): T2(1, i2 - 1) = .Cells(i, 3)
                Case "JEU MAT"
                    i3 = i3 + 1: ReDim Preserve T3(1, i3 - 1)
                    T3(0, i3 - 1) = .Cells(i, 1): T3(1, i3 - 1) = .Cells(i, 3)
                Case "JEU AP"
                    i4 = i4 + 1: ReDim Preserve T4(1, i4 - 1)
                    T4(0, i4 - 1) = .Cells(i, 1): T4(1, i4 - 1) = .Cells(i, 3)
            End Select
        Next i
    End With
    k = Array(i1, i2, i3, i4)
    T = Array(T1, T2, T3, T4)
    With Worksheets("Tri")
        For i = 2 To 14 Step 4
            n = .Cells(.Rows.Count, i).End(xlUp).Row
            If n > 5 Then .Range(.Cells(6, i), .Cells(n, i + 2)).ClearContents
            .Cells(6, i).Resize(k(i \ 4), 2).Value = WorksheetFunction.Transpose(T(i \ 4))
        Next i
    End With
End Sub

Cordialement.

Super merci gmb

Je débute dans la conception de macro VBA, quels conseils sur les documents ou autres ?

Encore merci

Novice38 a écrit :

quels conseils sur les documents ou autres ?

J'en ai un : Ne pas vexer MFERRAND qui t'a également fait une proposition.

Il est toujours plein d'idées sur la meilleure façon de s'y prendre pour aborder un problème.

Il serait dommage qu'il te mette sur sa liste noire, s'il en a une !

Bye !

Bonsoir,

merci à vous pour les réponses.

Je ne voudrais vexer personne,

Je suis un "autodidacte" d'Excel, et je parviens à me débrouiller sur quelques fonctions de base.

Je désirerais me perfectionner sur la conception de macros.

Entre vos deux solutions quel langage de programmation vous utilisez ?

Que me conseillez vous pour un "nul" pour arriver à résoudre ce genre de problème. ?

PS : aucune formation en informatique (63 balais).

Bien cordialement.

Tout en haut de cette page du forum, tu as des onglets : COURS EXCEL - COURS VBA...

Il s'agit de cours d'initiation à Excel et à son langage de programmation.

Commence par ça et...

Bon courage !

Bye !

Merci