Faire un tri...

[natorp]

Bjr à toutes et tous

j'ai besoin de votre aide pour trier ce tableau, l'explication et l'exemple sont dans le tableau

merci de vos suggestions, cordialement, Gérard

 

[Compte Supprimé 979]

Re : Faire un tri...

Bonsoir natorp,

Essaye ce code et dis nous

Sub TriSpé()
  Dim DLig As Long, DligD As Long, Lig As Long
  Dim Agent As String, Inter As String, ForMat As String
  With Sheets("Rapport1")
    ' Récupérer la dernière ligne du tableau des résultats
    DligD = .Range("E" & Rows.Count).End(xlUp).Row
    ' Effacer d'abord le tableau des résultats
    If DligD > 1 Then .Range("E2:F" & DligD).ClearContents
    ' Récupérer la dernière ligne du tableau source
    DLig = .Range("B" & Rows.Count).End(xlUp).Row
    For Lig = 2 To DLig
      ' Récupérer les 2 valeurs de la ligne
      Inter = .Range("B" & Lig).Value
      Agent = .Range("C" & Lig).Value
      ' Créer la forumle matricielle
      ForMat = "=SUMPRODUCT((B$2:B$" & DLig & "=""" & Inter & """)*(C$2:C$" & DLig & "=""" & Agent & """))" _
        & "+SUMPRODUCT((B$2:B$" & DLig & "=""" & Inter & """)*(C$2:C$" & DLig & "<>""" & Agent & """))"
      If Application.Evaluate(ForMat) >= 2 Then
        DligD = .Range("E" & Rows.Count).End(xlUp).Row
        .Range("E" & DligD + 1) = .Range("B" & Lig)
        .Range("F" & DligD + 1) = .Range("C" & Lig)
      End If
    Next Lig
  End With
End Sub

Voir fichier joint

A+

 

[piga25]

Re : Faire un tri...

Bonjour natorp

Un essai avec un tri avec un filtre textuel : ne contient pas :?????-01

 

[Paritec]

Re : Faire un tri...

Bonsoir Natorp le forum
edit :
a+
papou🙂

 

[natorp]

Re : Faire un tri...

Merci à vous et tout particulièrement à Bruno, c'est tout à fait ça,

Bonne soirée et merci encore, ce forum est une mine d'or et les forumeurs super sympas

Cordialement, Gérard