XL 2010 Combinaison touche pour un Delete

[chrisdu73]

Bonjour, le forum
Voilà, j'utilise ce code qui me permet d'effacer une ligne lorsque je sélectionne une cellule en colonne A

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim i As Integer
    If Not Intersect(Target, Columns("A:A")) Is Nothing Then
        Target.Value = 999
    End If
        For i = [a65000].End(xlUp).Row To 1 Step -1
        If Not Cells(i, 1).Find("999") Is Nothing Then Rows(i).Delete
    Next i
End Sub

Mais je voudrais qu'elle efface en combinant avec un appuis sur une touche défini (contrôle par exemple)
avez vous une piste ?

merci par avance, car là je bloque

 

[pierrejean]

Bonjour Chris
1) crée la macro
Sub Supprimer
For i = [a65000].End(xlUp).Row To 1 Step -1
If Not Cells(i, 1).Find("999") Is Nothing Then Rows(i).Delete
Next i
end Sub
2) clic ds le ruban sur macros et ensuite sur option pour affecter une lettre a combiner avec contrôle pour avoir ton raccourci clavier
3) tu peux simplifier ta macro
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
avec un call Supprimer
https://support.office.com/fr-fr/ar...ee-ff91-4e99-9704-99a49f1dcdf4#__toc270927002

 

[chrisdu73]

Merci pierrejean,
mais avec ta solution j'ai besoin de faire en deux fois si j'ai bien compris.
1 fois je sélectionne la ligne et en 2 j'active avec le raccourci ?
jusque là j'arrivais à supprimer la ligne en cliquant une fois en A(x) mais aucune sécurité,
c'est pour ça que je voulais la même chose mais uniquement si une touche était appuyée avant

 

[pierrejean]

Re
Avec le raccourci tu supprimes les lignes ou dans la colonne A n'est pas inscrit 999
Aucune sélection n'est a faire et Toutes les lignes sont supprimées

 

[chrisdu73]

Je me suis peut etre mal exprimé, dans ma colonne A il y a un résultat de formule soit 0, soit 1, soit 2, (peut importe) c'est quand je clique dessus que la cellule prend la valeur 999 et de ce fait ma macro supprime la ligne comme je le voulais, jusque ici tout fonctionne.
Mais si je clique par erreur sur une cellule en A la ligne est aussitôt supprimée, c'est pour cela que je voudrais rajouter un appui sur une touche avant le clique.
en attendant encore merci d'avoir pencher sur mon problème