Hpotter
XLDnaute Junior
Bonjour,
Dans le code ci-dessous lorsque l'utilisateur clique sur le bouton C1, divers événements se passent.
Si il a oublié une saisie dans T8, T9 ou T10 alors un message d'erreur apparaît.
Dans la seconde partie, les données sont intégrées au tableau de la feuille "Général".
Je souhaiterai avec un message avec 2 boutons "Oui" ou "Non" afin que l'utilisteur puisse avoir le choix de continuer ou pas. (voir ligne en rouge dans mon code)
Pouvez-vous m'apporter votre aide s'il vous plait ?
Je vous en remercie par avance
Dans le code ci-dessous lorsque l'utilisateur clique sur le bouton C1, divers événements se passent.
Si il a oublié une saisie dans T8, T9 ou T10 alors un message d'erreur apparaît.
Dans la seconde partie, les données sont intégrées au tableau de la feuille "Général".
Je souhaiterai avec un message avec 2 boutons "Oui" ou "Non" afin que l'utilisteur puisse avoir le choix de continuer ou pas. (voir ligne en rouge dans mon code)
Pouvez-vous m'apporter votre aide s'il vous plait ?
Je vous en remercie par avance
Code:
Private Sub C1_Click()
Dim erreur(3) As Boolean, msg As String, I As Byte
Dim Tablo As Variant
'ver=0
Tablo = Array("", "Note peau", "Note 1er tour", "Note 2ème tour")
erreur(1) = Me.T8 = ""
erreur(2) = Me.T9 = ""
erreur(3) = Me.T10 = ""
For I = 1 To 3
If erreur(I) Then msg = msg & vbCrLf & "-" & " " & Tablo(I)
Next
If msg <> "" Then
[COLOR="Red"]MsgBox "La notation est-elle terminée ?" & msg, 0, "A vérifier"[/COLOR]
Exit Sub
End If
Dim lngRow As Long
With Sheets("Général") 'la feuille "Général" est activée
If .Range("I4") = "" Then 'la cellule I4 est prise comme point de départ
lngRow = 4 ' si elle est vide, elle est sélectionnée
Else
lngRow = Application.Match(CDbl(CbNum.Text), .Range("A1:A65536"), 0)
End If
.Cells(lngRow, 9).Value = Me.T9.Value 'La valeur de T9 doit aller dans la cellule I8
.Cells(lngRow, 10).Value = (Me.T10) 'La valeur de T10 dans la cellule J8
.Cells(lngRow, 12).Value = (Me.T8) 'La valeur de T8 dans la cellule L8
End With
'Après validation les données présentes sont effacées du formulaire
'La Combo (CbNum) prend le focus
CbNum.Value = ""
T1 = ""
T2 = ""
T3 = ""
T4 = ""
T5 = ""
T6 = ""
T7 = ""
T8 = ""
T9 = ""
T10 = ""
CbNum.SetFocus
End Sub