Formulaire VBA

Bonjour,

J'ai un petit soucis, j'ai crée un formulaire sur excel "Userform"

voici mon code :

Private Sub CommandButton1_Click()

Dim derligne As Integer

If MsgBox("Confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then

derligne = Sheets("Historique des joueurs").Cells(5, 1).Row + 1

Cells(ligne + 5, 1) = TextBox1.Value

Cells(ligne + 5, 2) = TextBox2.Value

Cells(ligne + 5, 3) = TextBox3.Value

Cells(ligne + 5, 4) = TextBox4.Value

Cells(ligne + 5, 5) = TextBox5.Value

Cells(ligne + 5, 6) = TextBox6.Value

Cells(ligne + 5, 7) = TextBox7.Value

End If

Le problème c'est qu'une fois j'entre de nouvelles informations les anciennes informations s'écrasent...

Si vous avez une solution, je suis prenante.

Merci d'avance

Bonjour,

Dans la fenêtre de rédaction de post, tu disposes d'une balise Code : il convient de l'utiliser pour citer du code. Le code sera ainsi plus facilement lisible par les intervenants, ce qui peut faciliter du même coup la compréhension de ton problème et l'obtention de réponses adaptées...

D'autre part, pour qu'un code soit lisible, on l'indente !

Private Sub CommandButton1_Click()
    Dim derligne As Integer, i As Integer
    If MsgBox("Confirmez-vous l'ajout des données?", vbYesNo, "confirmation") _
     = vbYes Then
        With Worksheets("Historique des joueurs")
            derligne = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
            For i = 1 To 7
                .Cells(derligne, i) = Controls("TextBox" & i).Value
            Next i
        End With
    End If
End Sub

Cordialement.

Super Merci beaucoup !