Aide pour msgbox

[Hpotter]

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

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

 

[mutzik]

Re : Aide pour msgbox

bonjour,

declare une variable rep (pour réponse)
rep = MsgBox("La notation est-elle terminée ?" & msg, 0, "A vérifier")
if rep = vbyes then exit sub

 

[Pierrot93]

Re : Aide pour msgbox

Bonjour Hpottter, Bertrand

une autre approche :

Dim x As Integer
If MsgBox("voulez vous continuer ?", vbYesNo) = vbNo Then Exit Sub

bon après midi
@+

 

[Hpotter]

Re : Aide pour msgbox

Merci beaucoup à tous les deux. C'est exactement ce que je souhaitais.
Bon après-midi