M
Marion
Guest
Bonsoir au forum
comment traduire en language VBA
si le bouton 'Suppr 'est actionné
merci
A+Marion
comment traduire en language VBA
si le bouton 'Suppr 'est actionné
merci
A+Marion
Sub Supprimer()
Dim Msg, Title, Response As String
Dim Style As Integer
Application.ScreenUpdating = False
Msg = 'Voulez-vous supprimer l'enregistrement'
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
Title = 'Séquence de Suppression' ' Define title.
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
'Ta macro de suppression
End If
Application.ScreenUpdating = True
End Sub