MsgBox OK

Bonjour ,

Un formulaire UserForm est intégrer à ma feuille Excel

Une fois remplie, un bouton OK envoie un msgbox "etes vous sûr ? ".

ET voilà ou je bloque , Si on est sûr on appuie sur OK , un second msgbox indique alors "passage au tableau suivant ", on appuie sur OK et j'aimerais que le UserForm se reinitialise et passe au tableau suivant ou on rerempli les champs pour le 2 e tableau.

Un fichier joint

Bonjour,

Remarque,

Tu met la question OK quand c'est trop tard ? les données sont déjà sauvées.

Remplace ton code par...

Dim Lig As Long

Private Sub CommandButton1_Click()
Dim CT As Control
    If MsgBox("Sûr ?", vbOKCancel, "Vérification") = vbCancel Then Exit Sub
    'mémorise les données
    With Sheets("Feuil1")
        .Cells(Lig, 2) = TextBox4.Value
        .Cells(Lig + 2, 2) = ComboBox1.Value
        .Cells(Lig + 1, 2) = TextBox5.Value
        .Cells(Lig + 4, 1) = TextBox1.Value
        .Cells(Lig + 5, 1) = TextBox2.Value
        .Cells(Lig + 6, 1) = TextBox3.Value
        .Cells(Lig + 4, 2) = TextBox6.Value
        .Cells(Lig + 5, 2) = TextBox7.Value
        .Cells(Lig + 6, 2) = TextBox8.Value
    End With
    'Vide les textBox pour une nouvelle entrée
    For Each CT In Me.Controls
        If TypeOf CT Is MSForms.TextBox Then
            CT = ""
        End If
    Next CT
    Lig = Lig + 11
End Sub

Private Sub UserForm_Initialize()
    Lig = ActiveCell.Row
End Sub

Avant d'appuyer sur le bouton il faut sélectionner la première ligne du tableau où commencer

Dans ton classeur actuel tout les tableaux sont vides donc tu sélectionne une cellule sur la ligne 3

Quand tu auras déjà des tableaux initialisés il faudra sélectionner la première ligne du tableau vide, la 14 pour le 2 la 25 pour le 3 et ainsi de suite.

A+