Private Sub Enregistrer_Click()
With Sheets("Inscriptions")
Label1.ForeColor = RGB(0, 0, 0)
If ComboBox1.ListIndex = -1 Then
MsgBox "Vous devez choisir un NOM.", 16
Label1.ForeColor = RGB(255, 0, 0)
End If
If TextBox1.Text = "" Then
MsgBox "Veuillez saisir le champ Nom et Prénom", 16
Label8.ForeColor = RGB(255, 0, 0)
End If
If ComboBox7.Text = "" Then
MsgBox "Veuillez saisir le champ Autre", 16
Label10.ForeColor = RGB(255, 0, 0)
End If
If TextBox2.Text = "" Then
MsgBox "Veuillez saisir le champ Observation", 16
Label1.ForeColor = RGB(255, 0, 0)
Exit Sub
End If
Set cell = .Range("A4:A" & .Range("A" & Rows.Count).End(xlUp).Row).Find(ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not cell Is Nothing Then
lgn = cell.Row
Else
lgn = .Range("A" & Rows.Count).End(xlUp)(2).Row
End If
'On reporte les notes de l'USF sur la feuille ''Inscriptions''
'.Range("A" & lgn) = ComboBox1
.Range("G" & lgn) = TextBox1 * 1
.Range("H" & lgn) = ComboBox7 * 1
.Range("I" & lgn) = TextBox2.Value '* 1 contient l'observation dans le textbox 2 de l'USF Saisie 1!!!
End With
Set f = Sheets("Fiche")
f.Range("C1") = ComboBox1
f.Range("F6") = TextBox1 * 1 'moyenne
For I = 2 To 6
f.Cells(6, I - 1) = Val(Controls("ComboBox" & I))
Next
f.Range("A11") = ComboBox7 * 1 'autre
f.Range("A15") = TextBox2.Value '* 1 contient l'observation dans le textbox 2 de l'USF Saisie 1!!!
With Sheets("Traces")
Set R = .Range("B2:B" & .Range("B" & Rows.Count).End(xlUp).Row).Find(ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not R Is Nothing Then
lgn = R.Row
Else
lgn = .Range("C" & Rows.Count).End(xlUp)(2).Row ' + 1
End If
.Range("A" & lgn) = Now
.Range("B" & lgn) = ComboBox1
For I = 2 To 6
.Cells(lgn, I + 1) = Val(Controls("ComboBox" & I))
Next I
.Range("H" & lgn) = TextBox1 * 1
.Range("I" & lgn) = ComboBox7 * 1
.Range("J" & lgn) = TextBox2.Value '* 1 contient l'observation dans le textbox 2 de l'USF Saisie 1!!!
End With
flag = 1
For I = 1 To 2
Controls("TextBox" & I) = ""
Next I
For I = 1 To 7
Controls("ComboBox" & I).ListIndex = -1
Next I
flag = 0
MsgBox "Données enregistrées avec Succès !" ' message box de confirmation d'enregistrement
End Sub