Ranger la liste de haut en bas

[apdf1]

Bonjour,

Voila j'ai un USF qui enregistre une liste de nom sur deux feuilles du même classeur.
Il classe les noms sur la 1er feuille "Joueur" de "C7:F7" et sur la 2éme feuille "Liste" il les classe aussi de "C7:F7".
Alors voila ma question j'aimerais qui classe les noms sur la 2éme feuille "Liste" en A2 vers le bas.
Vici mon Code

Private Sub BtValide_Click()      
Dim t() As Variant, i As Byte
    If ComboBox1.ListIndex > -1 Then
        t = Array(ComboBox1.Text, "Joueur")
        For i = 0 To 1
            With Sheets(t(i))
                .Range("C7:F7").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
      
.Cells(7, 3) = TextNord.Value 'Nom 1er Joueur
.Cells(7, 4) = TextEst.Value 'Nom 2éme Joueur
.Cells(7, 5) = TextSud.Value 'Nom 3éme Joueur
.Cells(7, 6) = TextOuest.Value 'Nom 4éme Joueur

      End With
        Next i

Me.TextNord.Value = ""
 Me.TextEst.Value = ""
   Me.TextSud.Value = ""
    Me.TextOuest.Value = ""
   

      End If

End Sub

Si quelqu'un peut m'aider je le remercie d'avance

Cordialement

Max

 

[phlaurent55]

Re : Ranger la liste de haut en bas

Bonjour Max,

ton fichier en retour
avec un sérieux nettoyage de ton code
et un peu d'ordre dans les tabindex

à+
Philippe

 

[apdf1]

Re : Ranger la liste de haut en bas

Bonjour Philippe

Je te remercie beaucoup de ton aide et je te souhaite un bon week end

Max

 

[pierrejean]

Re : Ranger la liste de haut en bas

Bonjour Max

En supposant avoir compris ce que tu souhaites

Edit Salut Phillippe

 

[apdf1]

Re : Ranger la liste de haut en bas

Bonjour Pierre Jean

Je te remercie beaucoup de ton aide et je te souhaite un bon week end

Max