macro d'effacement

[marc]

Bonjour,

je voudrai créer un bouton de commande qui efface certaines donnée, mais avant de faire l'opération je voudrai qu'il me mette 2 message de confirmation :
- 'Voulez vous reèllement effacer les données ? 'oui ; non
- 'Confirmer vous l'éffacement ?' avec l'entrée d'une lettre dans une case genre O pour oui et N pour non.

j'ai réussi à creer un macro attaché à un bouton qui efface les données, mais pas les messages de sécurités

qq peut t'il me donner un solution

Merci pour les réponses

 

[jeromegmc]

Salut,


Essayes ça:

Sub message()
Dim variable
Dim variable1


variable = MsgBox('Voulez vous reèllement effacer les données ?', vbYesNo, 'Effacement')
If variable <> vbYes Then GoTo line1
variable1 = Application.InputBox(prompt:='Confirmez vous l'effacement (o/n)?' _
, Title:='Effacement', Left:=500, Top:=300, Type:=2)

If variable1 <> 'o' Then GoTo line1
Range('B6:E12').Select
    Selection.ClearContents
line1:
    
End Sub

A+ sur le forum

Message édité par: jeromegmc, à: 10/10/2005 16:33

 

[ERIC S]

Bonjour Marc et Jérome

juste une remarque, l'exemple de Jérome ne nécessite pas d'étiquette (line1) si on utilise exit sub, ce qui donne :
______________________________
Sub message()
Dim variable
Dim variable1


variable = MsgBox('Voulez vous reèllement effacer les données ?', vbYesNo, 'Effacement')
If variable <> vbYes Then exit sub
variable1 = Application.InputBox(prompt:='Confirmez vous l'effacement (o/n)?' _
, Title:='Effacement', Left:=500, Top:=300, Type:=2)

If variable1 <> 'o' Then exit sub
Range('B6:E12').Select
Selection.ClearContents

End Sub
_______________________________

A+

 

[jeromegmc]

Salut Eric S,

Tout à fait, cependant je conseils d'utiliser une étiquette car si dans X temps on vient ajouterquelque chose avant le 'End Sub' cela peut poser problème. Cela évite une insulte (un message d'erreur) de plus lorsqu'on test la macro.


A+