Suppression de ligne avec cellule selectionnée

Résolu
Pentakys Messages postés 9 Statut Membre -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
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 Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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 Messages postés 9 Statut Membre
       
      Merci ça marche trés bien comme ça :)
      0
    2. 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
      1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320 > 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

Excel formule : savoir si une cellule contient partie texte
plunderer007 -
francois -

14 réponses
Statut « en ligne » alors que non
GgBono -
Slickk -

1 réponse