Suppression via une inputbox
v
Bonjour à tous,
est il possible de supprimer via une input box?
Je joins un fichier avec plus de détails.
Je vous remercie.
Bonjour Vacoch,
Ce sur quoi tu es parti n'est pas une inputbox, mais un userform
A mon avis une inputbox était effectivement préférable dans ton cas, à moins que tu ne désires une présentation personnalisée de la "boîte"
Tu peux faire avec ce code :
Sub supprime()
Dim lig As Integer
Dim plage As Range
Set plage = Range("A1:A" & Range("A1").End(xlDown).Row)
Dim nom_suppr As String
nom_suppr = InputBox("Indiquez le nom à supprimer")
On Error GoTo erreur
With Application.WorksheetFunction
lig = .Match(nom_suppr, plage, 0)
End With
Rows(lig & ":" & lig).Delete Shift:=xlUp
Exit Sub
erreur: MsgBox ("Ce nom n'est pas dans la liste !")
End Subv
Vraiment bien cette macro merci Sylvain.
Est il possible de reprendre dans le message la liste avant de supprimer?
t
Bonjour,
je vois que ce message est vieux, mais je voulais remercier Sylvain TBM pour ce code.
Je suis encore novice dans le milieu du VBA, mais ton code ma vraiment plu.