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

  • Initiateur de la discussion Initiateur de la discussion Yow8
  • Date de début Date de début
  • Mots-clés Mots-clés
    vba

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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 🙂
 
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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
1 K
Réponses
12
Affichages
1 K
  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
904
Réponses
4
Affichages
439
Réponses
16
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…