Excel confirmer une suppression?

Version imprimable

05/04/2007, 12h52
kahya

Excel confirmer une suppression?

Bonjour tout le monde! Voila j'essai de créer une macro sur excel qui, à l'appui sur le bouton Supprim affiche une msgbox de confirmation, et une fois que l'on clique sur OK, ça supprime le contenu. Je ne sais pas sur quel évènement la lancer, je ne connais que le VB.NET... Quelqu'un pourrai m'orienter svp?
05/04/2007, 13h03
SfJ5Rpw8

Citation:

Envoyé par kahya

Bonjour tout le monde! Voila j'essai de créer une macro sur excel qui, à l'appui sur le bouton Supprim affiche une msgbox de confirmation, et une fois que l'on clique sur OK, ça supprime le contenu. Je ne sais pas sur quel évènement la lancer, je ne connais que le VB.NET... Quelqu'un pourrai m'orienter svp?

:koi:
05/04/2007, 13h10
ouskel'n'or

Click ! Comme dans VB.net, sans doute ;)
05/04/2007, 14h29
kahya

Non non pas click.. en fait je veux que quand une personne clik sur le bouton "suppr" du clavier, au lieu d'effacer directement le contenu de la/ des cellules selectionnées, une fenetre de confirmation apparaisse, et que le contenu soit effacé uniquement si on click sur "OK"
05/04/2007, 14h39
ouskel'n'or

Regarde la fonction Msgbox dans l'aide. Ça n'existe pas dans VB.Net ?
05/04/2007, 14h47
kahya

si mais c'est pas là que ça me pose probleme. C'est l'évènement... Par exemple sous VN.NET quand je veux déclencher quelque chose sur le clik d'un bouton c'est Nombouton.click et ici je ne connai pas l'evenement... son nom quoi
05/04/2007, 15h10
kahya

:s non.... c'est pas sur un click.... bon admetton que la méthode s'appelle Supprim_Click() et qu'elle marche.... Coment je fais pour l'appeller (en sachant que je veux qu'elle s'execute sur l'appui de la touche "suppr" sur le clavier)?
actuellement elle est sur Worksheet_SelectionChange donc ce qu'il se passe c'est que dès qu'on selectionne une cellule, la méthode se lance. Moi je veux qu'elle se lance uniquement sur l'appui de la touche "suppr".. Voila j'espere que c'est un peu plus clair :mrgreen:
05/04/2007, 15h13
ouskel'n'or

Regarde à Onkey dans l'aide
Mais la prochaine fois, essaie d'être plus précis dans la rédaction de ta question. Sans méchanceté aucune ;)
05/04/2007, 15h23
kahya
Ok j'ai ma methode, mais où la mettre? je l'ai mise dans Worksheet_activate
Code:

1 2 Application.OnKey "vbKeyDelete", "supprim"
Ma méthode de suppression est donc : supprim
J'ai un message d'erreur "impossible de trouver la methode 'supprim()' :(

essai

dans thisworkbook :

Code:

1
2
3
4
5
Option Explicit
 
Private Sub Workbook_Open()
 Application.OnKey "{DEL}", "Supprime"
End Sub

dans un module standard

Code:

1
2
3
4
5
6
7
8
Option Explicit
 
 Sub Supprime()
  If MsgBox("On supprime", vbYesNo + vbQuestion) = vbYes Then
    Selection.Clear
  End If
 
 End Sub