Dim MyValeur As String
Private Sub CommandButton1_Click()
If MyValeur = Me.TextBox1.Text Then
Resp = MsgBox("Vous n'avez pas changé la valeur ? " & vbCr & "Désirez-vous continuer ?", vbInformation + vbYesNo, "Contrôle de sasiie")
If Resp = 7 Then
Me.TextBox1.SetFocus
Exit Sub
Else
MsgBox "Vous avez choisi de continuer sans changer la valeur"
Unload Me
End If
End If
Unload Me
End Sub
Private Sub UserForm_Activate()
MyValeur = Me.TextBox1.Text
End Sub