Suppression de ligne avec cellule selectionnée

Résolu
Pentakys Messages postés 9 Statut Membre -  
michel_m Messages postés 18903 Statut Contributeur -
Bonjour à tous,

J'aurais encore une fois besoin de votre aide précieuse :D

Je dispose d'un tableau recensant des employés du jour.
J'aimerais insérer un bouton "suppression d'employé" qui ferait les étapes suivantes :
-Demande à l'utilisateur de sélectionner la case où figure le nom de l'employé à supprimer (Ex: il cliquerait alors sur la case A12)
-après, le programme supprimerait la ligne entière correspondante à la case sélectionnée ci avant. (Ici, on supprimerait donc la ligne 12)

SI vous pouviez me conseiller ... Je ne sais pas en fait comment laisser l'utilisateur sélectionner une case après une MsgBox qui lui indiquerait de selectionner sa case...

Ou si vous avez d'autres suggestions ou pistes je suis preneur !

Merci Par avance !!!

Pentakys
A voir également:

1 réponse

Réponse 1 / 1
michel_m Messages postés 18903 Statut Contributeur 3 317
 
bonjour 
Option Explicit
'---------------------
Sub supprimer()
Dim adresse As Range
    Set adresse = Application.InputBox(prompt:="cliquer sur la cellule de la ligne à supprimer", Type:=8)
    adresse.EntireRow.Delete
End Sub
1
Pentakys Messages postés 9 Statut Membre
 
Merci ça marche trés bien comme ça :)
0
Pentakys Messages postés 9 Statut Membre
 
Comment je peux résoudre l'erreur qui intervient quand je clique sur la croix rouge ou je fais annuler ?
0
michel_m Messages postés 18903 Statut Contributeur 3 317 > Pentakys Messages postés 9 Statut Membre
 
re 
Sub supprimer()
Dim adresse As Range
    On Error GoTo fin
    Set adresse = Application.InputBox(prompt:="cliquer sur la cellule de la ligne à supprimer", Type:=8)
    If Not adresse Is Nothing Then adresse.EntireRow.Delete
fin:
End Sub
0

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
Pat -

10 réponses
Excel formule : savoir si une cellule contient partie texte
plunderer007 -
francois -

14 réponses