voici le code qui me permet de rentrer le nom d'un joueur et les points marque quand je valide je peut rentrer un nouveau nom et la mise a jour permet de mofifier les points d'un joueur deja inscrit. je veut supprimer la derniere ligne pour les mauvaises manoeuvre. merci
Private Sub CmdMettreAJour_Click()
While (j = 0)
DoEvents
If ActiveSheet.Range("A1").Offset(n, 0).Value = FrmFeuilleDeMatch.CmbNomJoueur.Text Then
ActiveSheet.Range("A1").Offset(n, 0).Select
j = 1
End If
DoEvents
n = n + 1
Wend
Sheets("BDNomMatch").Cells(n, 2) = (FrmFeuilleDeMatch.CmbScore.Text + Sheets("BDNomMatch").Cells(n, 2))
End Sub
Private Sub CmdValidez_Click()
Dim j As Integer
Dim n As Integer
j = 0
n = 0
While (j = 0)
DoEvents
If ActiveSheet.Range("A1").Offset(n, 0).Value = "" Then
ActiveSheet.Range("A1").Offset(n, 0).Select
j = 1
End If
DoEvents
n = n + 1
Wend
Sheets("BDNomMatch").Cells(n, 1) = FrmFeuilleDeMatch.CmbNomJoueur.Text
FrmFeuilleDeMatch.CmbNomJoueur.AddItem (Sheets("BDNomMatch").Cells(n, 1))
Sheets("BDNomMatch").Cells(n, 2) = FrmFeuilleDeMatch.CmbScore.Text
Feuil2.Txt1.Text = FrmFeuilleDeMatch.CmbNomJoueur.Text
End Sub