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+
 

Yow8

XLDnaute Nouveau
merci j’avais effectivement essayer .range mais pas "A".
Merci
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas