XL 2016 Effacer contenu d'une cellule contenant VBA

Yow8

XLDnaute Nouveau
Bonsoir à tous, pas très doué en VBA, j'ai trouver ceux ci afin de supprimer une ligne contenant une certaine valeur :


VB:
Sub supprime()

Dim lig As Integer
Dim plage As Range
Set plage = Sheets("Feuil2").Range("A1:A100" & Range("A1").End(xlDown).Row)
Dim nom_suppr As String
nom_suppr = InputBox("Indiquez l'ID à supprimer")
On Error GoTo erreur
With Sheets("Feuil2").Application.WorksheetFunction
lig = .Match(nom_suppr, plage, 0)
End With
Application.EnableEvents = False
Sheets("Feuil2").Rows(lig & ":" & lig).Delete Shift:=xlUp

Seulement je voudrais à la place de supprimer la ligne seulement supprimer le contenu de la cellule

Merci d'avance :)
 

Statistiques des forums

Discussions
311 715
Messages
2 081 822
Membres
101 822
dernier inscrit
holale