Discussion :

[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?

[SfJ5Rpw8]

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?

[ouskel'n'or]

Click ! Comme dans VB.net, sans doute

[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"

[ouskel'n'or]

Regarde la fonction Msgbox dans l'aide. Ça n'existe pas dans VB.Net ?

[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

[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

[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

[kahya]

Ok j'ai ma methode, mais où la mettre? je l'ai mise dans Worksheet_activate

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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()'

[SfJ5Rpw8]

essai

dans thisworkbook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

dans un module standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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