message d'avertissement

[pascal21]

Range("C1,C4😀108,F108,F4:K108").Select
Range("F108").Activate
Selection.ClearContents
Range("D1").Select
End Sub

bonsoir
grace à l'editeur de macro j'ai fais ceci mais j'aimerais rajouter un message d'avertissement de demande de confirmation du genre "attention vous allez effacer des données êtes vous sure? oui non" avant quelle se mette en marche
comment réaliser ceci
merci

 

[Dan]

Re : message d'avertissement

Bonjour

essaie ceci :

Sub test
Dim style As Integer
Dim msg As String, title As String, Response As String
msg = "Cliquer sur OUI pour effacer"
style = vbYesNo + vbDefaultButton2
title = "Suppression"
Response = MsgBox(msg, style, title)
If Response = vbYes Then
Range("C1,C4108,F108,F4:K108").ClearContents
end if
End sub

A te lire

 

[Pierrot93]

Re : message d'avertissement

Bonsoir Pascal

tu peux intégrer le code ci dessous au début de ton code :

Dim Confirm As Integer
Confirm = MsgBox("Voulez vous lancer la macro ? ", _
    vbQuestion + vbYesNo, "Message d'alerte")

If Confirm = vbNo Then
    MsgBox ("Alors je ne fais rien !!! ")
    Exit Sub
End If

Bonne soirée
@+

 

[Pierrot93]

Re : message d'avertissement

Oups, t'avais pas pu Dan, pas rafraichi

bonne soirée

 

[pascal21]

Re : message d'avertissement

bonsoir dan ;pierrot le forum
c'est parfait merci
j'ai utilisé le code de dan
j'ai juste eu à remodifier la selection des cellules suite à un bug dans l'affichage de mon post(???) il s'agissait en fait de c4:d108 et f4:k108
bonne soirée à vous