Discussion :

[RapTure]

Bonjour,

J'ai un tableau de données que je remplie via une macro VBA voila ce que j'obtiens :

Cependant j'aimerais que mes tableaux soit classés par "Appli" puis par "Date" comme ceci :

J'avais essayé avec ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
For i = 1 To nbLigne
    If feuille.Range("A" & i).Value = "EN COURS" Then
        ligneEnC = i
    End If
    If feuille.Range("A" & i).Value = "RESOLUS" Then
        ligneReso = i
    End If
Next
If ligneReso - ligneEnC <> 2 Then
    Range("B" & ligneEnC + 2 & ":B" & ligneReso - 1).CurrentRegion.Sort key1:=Range("B" & ligneEnC + 2 & ":B" & ligneReso - 1), order1:=xlAscending, dataoption1:=xlSortNormal, _
                               key2:=("C" & ligneEnC + 2 & ":C" & ligneReso - 1), order2:=xlAscending, dataoption2:=xlSortNormal, Header:=xlYes
End If
If feuille.Range("A" & ligneReso + 2).Value <> "" Then
    Range("B" & ligneReso + 2 & ":B" & nbligne).CurrentRegion.Sort key1:=Range("B" & ligneReso + 2 & ":B" & nbligne), order1:=xlAscending, dataoption1:=xlSortNormal, _
                               key2:=Range("C" & ligneReso + 2 & ":C" & nbligne), order2:=xlAscending, dataoption2:=xlSortNormal, Header:=xlYes
End If

La première partie du code permet de savoir à quelle ligne se trouve mon bandeau EN COURS ou RESOLUS.
Le deuxième partie me permettrait normalement de trier chacun des deux tableau respectivement sous les deux bandeaux.
Avec ce code une erreur s'affiche et supprime toutes les données de mes tableaux.

Merci d'avance pour votre aide!

Bonne journée.