Private Sub TextBox1_AfterUpdate()
If Not TextBox1.Value = Sheets("Feuil1").Range("A1") Then
rep = MsgBox("Confirmez-vous le changement", vbYesNo + vbQuestion, "Changement")
End If
Select Case rep
Case Is = vbNo
Exit Sub
Case Is = vbYes
Sheets("Feuil1").Range("A1") = TextBox1.Value
End Select
End Sub
Private Sub TextBox2_AfterUpdate()
If Not TextBox2.Value = Sheets("Feuil1").Range("A2") Then
rep = MsgBox("Confirmez-vous le changement", vbYesNo + vbQuestion, "Changement")
End If
Select Case rep
Case Is = vbNo
Exit Sub
Case Is = vbYes
Sheets("Feuil1").Range("B1") = TextBox2.Value
End Select
End Sub