XL 2019 Saisie de Résultats avec UserForm

Vous avez modifié mais la macro Effacer n'est plus dans l'USF. Je ne vous ai pas dit de la supprimer. Vous devez la mettre.

Sinon pourquoi vous me postez le fichier ? Faites un essai afin de voir si cela fonctionne

justement j'envoie le fichier parce qu'il ne fonctionne pas.
je me mélange tout. C'est compliqué.
Voila les lignes du code.
Dim flag As Boolean
Option Explicit


Private Sub UserForm_Initialize()
Dim i As Byte
i = 4
While Range("Z" & i) <> vbNullString 'boucle depuis Z4 et tant que Zx n'est pas vide
ComboBox1.AddItem Range("Z" & i).Value
ComboBox2.AddItem Range("Z" & i).Value
i = i + 1
Wend
End Sub
Private Sub ComboBox1_Change()
If ComboBox1.Value = ComboBox2.Value Then
MsgBox "Vous ne pouvez avoir deux joueurs identiques !", vbInformation, "Erreur choix joueur": ComboBox1 = vbNullString: Exit Sub
End If
End Sub

Private Sub ComboBox2_Change()
If ComboBox2.Value = ComboBox1.Value Then
MsgBox "Vous ne pouvez avoir deux joueurs identiques !", vbInformation, "Erreur choix joueur": ComboBox2 = vbNullString: Exit Sub
End If
End Sub
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Boolean

Call controle

If flag = True Then Exit Sub

For i = 5 To Range("B" & Rows.Count).End(xlUp).Row
If Range("B" & i) = ComboBox1.Value And Range("N" & i) = ComboBox2.Value Then
If Range("C" & i) = vbNullString And Range("O" & i) = vbNullString Then
Range("C" & i) = TextBox1.Value
Range("O" & i) = TextBox2.Value
MsgBox "Socres ajoutés", vbInformation, "Scores rencontre": j = 1: Exit For
End If
End If
Next i
If j = 0 Then MsgBox "Rencontres déjà terminées. Pas de scores ajoutés", vbInformation, "Scores rencontre" '

Call effacer

End Sub
Private Sub controle()
Dim c As Control

For Each c In Me.Controls
If TypeName(c) <> "Label" Then
Select Case TypeName(c)
Case "TextBox"
If c.Value = vbNullString Then MsgBox "veuillez compléter la rubrique " & c.Tag, , "Rubrique incomplète": flag = True: Exit Sub
Case "ComboBox"
If c.Value = vbNullString Then MsgBox "veuillez compléter la rubrique " & "Combobox " & c.Tag, , "Rubrique incomplète": flag = True: Exit Sub
End Select
End If
Next c
flag = False
End Sub
Private Sub effacer()
ComboBox1 = vbNullString
ComboBox2 = vbNullString
TextBox1 = vbNullString
TextBox2 = vbNullString
End
SubPrivate
Sub Envoyer_Click()

End Sub

Mais je vous ai écrit les erreurs....
Dans mon post précédent point 4, le code est comme ceci

et pas comme ce que vous mettez

Le reste est bon

Je viens de modifier
j'appuie sur CommandButton1 et je n'ai pas les résultats

Dim flag As Boolean
Option Explicit


Private Sub UserForm_Initialize()
Dim i As Byte
i = 4
While Range("Z" & i) <> vbNullString 'boucle depuis Z4 et tant que Zx n'est pas vide
ComboBox1.AddItem Range("Z" & i).Value
ComboBox2.AddItem Range("Z" & i).Value
i = i + 1
Wend
End Sub
Private Sub ComboBox1_Change()
If ComboBox1.Value = ComboBox2.Value Then
MsgBox "Vous ne pouvez avoir deux joueurs identiques !", vbInformation, "Erreur choix joueur": ComboBox1 = vbNullString: Exit Sub
End If
End Sub

Private Sub ComboBox2_Change()
If ComboBox2.Value = ComboBox1.Value Then
MsgBox "Vous ne pouvez avoir deux joueurs identiques !", vbInformation, "Erreur choix joueur": ComboBox2 = vbNullString: Exit Sub
End If
End Sub
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Boolean

Call controle

If flag = True Then Exit Sub

For i = 5 To Range("B" & Rows.Count).End(xlUp).Row
If Range("B" & i) = ComboBox1.Value And Range("N" & i) = ComboBox2.Value Then
If Range("C" & i) = vbNullString And Range("O" & i) = vbNullString Then
Range("C" & i) = TextBox1.Value
Range("O" & i) = TextBox2.Value
MsgBox "Socres ajoutés", vbInformation, "Scores rencontre": j = 1: Exit For
End If
End If
Next i
If j = 0 Then MsgBox "Rencontres déjà terminées. Pas de scores ajoutés", vbInformation, "Scores rencontre" '

Call effacer

End Sub
Private Sub controle()
Dim c As Control

For Each c In Me.Controls
If TypeName(c) <> "Label" Then
Select Case TypeName(c)
Case "TextBox"
If c.Value = vbNullString Then MsgBox "veuillez compléter la rubrique " & c.Tag, , "Rubrique incomplète": flag = True: Exit Sub
Case "ComboBox"
If c.Value = vbNullString Then MsgBox "veuillez compléter la rubrique " & "Combobox " & c.Tag, , "Rubrique incomplète": flag = True: Exit Sub
End Select
End If
Next c
flag = False
End Sub
Private Sub effacer()
ComboBox1 = vbNullString
ComboBox2 = vbNullString
TextBox1 = vbNullString
TextBox2 = vbNullString
End Sub

Je pense que je n'ai pas mis la procédure dans le bon sens.

Sans lancer le code depuis le bouton bleu allez sur l'userform faites double clic sur le bouton
Cela doit vous amener au code Private Sub CommandButton1_Click()
Si ce n'est pas le cas vous avez modifié quelque chose


EDIT : en regardant votre dernier fichier posté, pourquoi êtes-vous allé changer le nom du bouton ???


Re Edit : Si vous voulez changer le nom de votre bouton sur votre Userform, vous pouvez le faire en changeant dans la propriété CAPTION qui se trouve un peu plus bas dans la vue. C'est peut être cela que vous vouliez faire ?

Bonjour Dan,
oui effectivement j'ai voulu essayé de changer le nom du bouton. Mais pas au bon endroit.
Je suis allé sur CAPTION et j'ai modifié.
Apparemment ca marche. Je vous tiens au courant en cas !
Merci beaucoup pour votre aide et votre patience.
CANINGE