macro d'effacement

M

marc

Guest
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

XLDnaute Occasionnel
Salut,


Essayes ça:


Code:
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
 
E

ERIC S

Guest
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

XLDnaute Occasionnel
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+
 

Discussions similaires

Réponses
2
Affichages
615

Statistiques des forums

Discussions
312 885
Messages
2 093 259
Membres
105 660
dernier inscrit
moi46