Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
 
C

Compte Supprimé 979

Guest
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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…