Suppression de ligne avec cellule selectionnée

Résolu/Fermé

Pentakys Messages postés 8 Date d'inscription jeudi 16 juin 2016 Statut Membre Dernière intervention 25 mars 2019 - 22 juin 2016 à 11:22
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 22 juin 2016 à 15:22

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:

Suppression de ligne avec cellule selectionnée
Aller à la ligne dans une cellule excel - Guide
Forcer suppression fichier - Guide
Site de vente en ligne particulier - Guide
Partage de photos en ligne - Guide
Apparaitre hors ligne instagram - Guide

1 réponse

Réponse 1 / 1

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
22 juin 2016 à 12:26

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

Pentakys Messages postés 8 Date d'inscription jeudi 16 juin 2016 Statut Membre Dernière intervention 25 mars 2019
22 juin 2016 à 13:50

Merci ça marche trés bien comme ça :)

Pentakys Messages postés 8 Date d'inscription jeudi 16 juin 2016 Statut Membre Dernière intervention 25 mars 2019
22 juin 2016 à 15:01

Comment je peux résoudre l'erreur qui intervient quand je clique sur la croix rouge ou je fais annuler ?

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303 > Pentakys Messages postés 8 Date d'inscription jeudi 16 juin 2016 Statut Membre Dernière intervention 25 mars 2019
22 juin 2016 à 15:22

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

Discussions similaires

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

Statut « en ligne » alors que non

Excel si cellule contient texte alors...

Ligne occupée : pourquoi mon téléphone sonne occupé ?

Discussions similaires

Newsletters