Suppression de ligne avec cellule selectionnée

Résolu
Pentakys -  
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

1 réponse

  1. michel_m Contributeur
    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
    1. Pentakys Auteur
      Merci ça marche trés bien comme ça :)
      0
    2. Pentakys Auteur
      Comment je peux résoudre l'erreur qui intervient quand je clique sur la croix rouge ou je fais annuler ?
      0
    3. michel_m Contributeur
      @Pentakysre 
      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

Mots de passe Google divulgués en ligne
Guiem

1 réponse
Supprimer automatiquement retours à la ligne
brahfous

20 réponses
Excel formule : savoir si une cellule contient partie texte
plunderer007

14 réponses