modification d'une macro "effacer"

[pascal21]

bponsoir
c'est encore moi
cette fois je voudrais arranger un code d'un bouton et rajouté un message

Sub effacer_données()
call enregistrement
Dim style As Integer 'effacer les données
Dim msg As String, title As String, Response As String
msg = "     Vous allez effacer toutes les données du mois. Veuillez confirmer SVP"
style = vbYesNo + vbDefaultButton2
title = "             ATTENTION!!"
Response = MsgBox(msg, style, title)
If Response = vbYes Then
Range("C4:d108,F4:K108").ClearContents

la ligne "call enregistrement" lance une macro qui enregistre les données sur une autre feuille avant qu'elles ne soient affacées en fin de mois feuille 1
j'aimerais avoir un msg demandant si je veux enregistrer avant d'effacer
if reponse vbyes then
call enregistrement
pour faire clair(si besoin est): je veux pouvoir avoir le choix d"enregistrer en feuille 13 ou pas
que modifier ?
merci

 

[Pierrot93]

Re : modification d'une macro "effacer"

Bonsoir Pascal

si j'ai bien compris peut être que le code ci dessous pourra t'aider :

Dim confirm As Integer

confirm = MsgBox("Voulez vous enregistrer ?", _
    vbYesNo, "Message de Pierrot93")

If confirm = vbNo Then
    MsgBox ("Pas d'enregistrement !!!")
    Exit Sub
Else
call enregistrement
End If

à adapter..

n'hésites pas si problème.
bonne soirée
@+

 

[pascal21]

Re : modification d'une macro "effacer"

une chose que je n'ai pas précisé c'est que ce rajout doit fonctionner sur lun même bouton et seul bouton
alors dans ce cas comment intégré ce code

edit:c'est bon pierrot ça fonctionne merci
juste enlevé le "end if" après call enregistrement"