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 :)
 

BrunoM45

XLDnaute Barbatruc
Yow ;)

Ta ligne est trouvée par la recherche, donc si ta cellule à effacer se trouve dans la colonne A, voici le code
VB:
Sheets("Feuil2").Range("A" & lig).ClearContents
A+
 

Discussions similaires


Haut Bas