Ide sur les conditions IF,THEN et ELSE

Bonjour;

j'essaie sans succès de créer en VBA un code qui permettrait de classer le résultat d'un tirage au sort inscrit pêlemêle dans un tableau (? TrésultatTIRAGE) et dont j'aimerais que les numéros de joueurs se classent automatiquement sous chacune de leurs équipes...votre fichier joint.

j'essaie avec les conditions IF, THEN et ELSE mais ça ne fonctionne pas...

j'ai retirer les essai de code dans le fichier pour mieux voir vos suggestions.

merci

Bonjour,

Essayez ceci:

Sub Tirage()
    Dim DerLig As Long
    Dim i As Long, j As Long, k As Long, m As Long, n As Long, o As Long
    Application.ScreenUpdating = False
    DerLig = Range("TrésultatTIRAGE").Rows.Count
    ReDim Eq_1(0 To DerLig + 3) As String
    ReDim Eq_2(0 To DerLig + 3) As String
    ReDim Eq_3(0 To DerLig + 3) As String
    ReDim Eq_4(0 To DerLig + 3) As String
    ReDim Eq_5(0 To DerLig + 3) As String
    ReDim Eq_6(0 To DerLig + 3) As String
    j = 0: k = 0: l = 0: m = 0: n = 0: o = 0
    For i = 4 To DerLig + 3
        Select Case Cells(i, "A")
            Case 1
                Eq_1(j) = Cells(i, "B")
                j = j + 1
            Case 2
                Eq_2(k) = Cells(i, "B")
                k = k + 1
            Case 3
                Eq_3(l) = Cells(i, "B")
                l = l + 1
            Case 4
                Eq_4(m) = Cells(i, "B")
                m = m + 1
            Case 5
                Eq_5(n) = Cells(i, "B")
                n = n + 1
            Case 6
                Eq_6(o) = Cells(i, "B")
                o = o + 1
        End Select
    Next i
    Range("F8:F" & UBound(Eq_1) + 7).Value = Application.Transpose(Eq_1)
    Range("G8:G" & UBound(Eq_2) + 7).Value = Application.Transpose(Eq_2)
    Range("H8:H" & UBound(Eq_3) + 7).Value = Application.Transpose(Eq_3)
    Range("I8:I" & UBound(Eq_4) + 7).Value = Application.Transpose(Eq_4)
    Range("J8:J" & UBound(Eq_5) + 7).Value = Application.Transpose(Eq_5)
    Range("K8:K" & UBound(Eq_6) + 7).Value = Application.Transpose(Eq_6)
End Sub

Cdlt

WOW Génial...merci beaucoup

Hello,

Une proposition par PowerQuery.

Tu remplis le tableau des tirages au sort puis tu fais clic droit et actualiser le tableau vert :)

@+

très intéressant, j'ai déjà vu des tuto sur PowerQuery mais je n'ai jamais essayé...c'est une option qui me semble très intéressante. Mais j'obtiens cette erreur lorsque j'essaie d'actualiser après avoir fait une nouvelle entrée?

Hello,

Hum t’as bien activé le contenu du fichier ?
t’as bien mis à la suite du tableau de données existant ?
envoie ton fichier si jamais

@+