traduire Suppr

[Marion]

Bonsoir au forum

comment traduire en language VBA

si le bouton 'Suppr 'est actionné

merci

A+Marion

 

[excalibur]

bonjour marion , le forum je sais que le keycode de suppr = 46 autrement tu peus t inspirer de ce code Private Sub Worksheet_Change(ByVal Target As Range)
With Application
.OnKey '{suppr}', 'suppr' 'macro suppr
End With
End Sub dans un module ta macro suppr Private Sub suppr()
MsgBox 'frappe sur la touche suppr'
End Sub je joint un zip pris sur un autre site si ca peut t aider salutations [file name=h-keycode_20050515003711.zip size=8886]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/h-keycode_20050515003711.zip[/file]

 

[Marion]

Bonjour le forum.

Merci excalibur pour ta réponse.

Je joins un fichier avec les codes .

deux voir trois petits points

1 le code ne doit agir que sur une feuille.
2 un Msgbox avec oui ou non
3 oui on peut supprimer
4 non exit sub

Je ne sais pas le traduire en VBA poutant j'ai esssayé mais c'est peut être encore trop tôt.


A+Marion [file name=Marion1_20050515082825.zip size=7902]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Marion1_20050515082825.zip[/file]

 

[Canardo]

Bonjour,

Je te propose la macro suivante:
Attention: ne la rentrer que dans le module des fichiers concernés et PAS dans le module Général de perso.xls !!!

Private Sub suppr()
Dim ASup As Integer
ASup = MsgBox('Veux-tu vraiment faire une suppression ?', 36 + 256, 'ATTENTION ! !')
If ASup = 6 Then '6 = Oui
Selection.ClearContents 'ou bien Cells.ClearContents si tu veux effacer toutes les cell de la feuille
'ou ActiveCell.CurrentRegion.ClearContents 'si tu veux effacer toutes les cell ajacentes
ActiveCell.Offset(1, 0).Select
'ou Cells.ClearContents si tu veux effacer toutes les cell de la feuille Ou delete à la place de clear pour supprimer

ElseIf ASup = 7 Then '7=Non
Exit Sub
End If
End Sub

 

[Marion]

Bonjour le forum.

Merci Canardo pour cette réponse.

mais je me perds un peu ce code dois-je le mettre dans un module ou dans le code de la feuille.

Sur la feuille est une bonne solution pas besoin de l'avoir sur l'ensemble du classeur.

Merci encore


A+Marion

 

[Marion]

Bonjour le forum.

Merci Canardo pour cette réponse.

mais je me perds un peu ce code dois-je le mettre dans un module ou dans le code de la feuille.

Sur la feuille est une bonne solution pas besoin de l'avoir sur l'ensemble du classeur.

Merci encore


A+Marion

 

[Canardo]

Bonsoir Marion

A mon avis dans la feuille concernée, si ça ne sert vraiment que pour une seule feuille, (enfin, pas sur la feuille elle-même, bien sûr, mais ça, tu le sais), sinon dans le module du fichier, comme ça, ça fonctionne pour toutes les feuilles, présentes et à venir.

Amen

 

[Dan]

Bonsoir,

:angry: Ah ben çà alors !!!

Marion, pendant que je suis en train de bosser sur ton pb Lien supprimé tu ouvres un post sur une même demande.

Excuse-moi mais j'apprécie pas de trop tout de même...
Cela aurait été plus sympa de me prévenir non ?

 

[excalibur]

bonsoir dan , le forum je suis de tout coeur avec toi je n avais pas vu le premier post... salutations

 

[Marion]

Bonsoir le forum.

Je suis désolée de ce mal entendu, mais peut-être que j'ai précipité les choses..


Mille excuses, je ne l'ai pas volontairement je t'assure ce sont les réponses qui on fait que.

J'ai essayé de me débrouille par moi même par quelques brin de code prit ici ou là.

Mais je n'y arrive pas...


Excuse moi encore.
je le ferais plus promis.


A+Marion

 

[Dan]

Marion,

si tu veux que le code agisse sur la feuille, il faut le placer en VBA dans la feuille.
Pour ce qui est du message à faire apparaitre tu peux utiliser celui-ci :

Sub Supprimer()
Dim Msg, Title, Response As String
Dim Style  As Integer
Application.ScreenUpdating = False
Msg = 'Voulez-vous supprimer l'enregistrement'
Style = vbYesNo + vbCritical + vbDefaultButton2    ' Define buttons.
Title = 'Séquence de Suppression'    ' Define title.
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
'Ta macro de suppression
End If
Application.ScreenUpdating = True
End Sub

A placer dans un module en VBA.

Dans la macro de Excalibur tu ajoutes ceci juste avant 'End with':
Call supprimer

 

[Marion]

Bonsoir a tous les deux.

je peux vous dire que je me fais toute petite sur ce coup là.


moi plus faire

Par contre je suis nulle je n'y arrive pas malgré toutes vos explications.


Je renvoie le fichier.

si vous pouvez y jeter un coup d'oeil.

merci

A+Marion
PS: j'ai mis les differents code sur le fichier mais je ne sais pas si il sont bien placés [file name=Marion1_20050515225740.zip size=8220]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Marion1_20050515225740.zip[/file]

 

[Dan]

Marion,

A l'endroit où j'ai écrit 'ta macro de suppression' il faot placer la macro que tu utilises pour supprimer les données. car là c'est normal que rien ne se passe...

 

[marion]

Bonsoir Dan

Tu vas me prendre pour la reine des nulles mais je n'y arrive pas.


Peut-tu me faire passer le fichier s'il te plait.

En attendant un grand merci


A+Marion

 

[Dan]

Bonsoir Marion,

Bon là je te demande de tester cette solution.
Les macro sont inclues en VBA dans feuille 1, et dans le module 1

Donne moi tes commentaires. Merci

[file name=Marion-V03_20050516223616.zip size=9518]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Marion-V03_20050516223616.zip[/file]