XL 2016 Supprimer donnees en fonction valeur cellule

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 !

ah oui j'ai fait de mémoire, j'avais utilisé i et non ligne, comme ceci alors:

Application.ScreenUpdating = False
For i = 4 To Cells(Rows.Count, 2).End(xlUp).Row
If Cells(i, 2) = 1 Then
Cells(i, 2).ClearContents
Cells(i, 3).ClearContents
Cells(i, 4).ClearContents
End If


Next i
 
Bonjour le fil, gourdin, nicopec

Une autre façon de faire (sans boucle)
VB:
Sub EffacerAvecFiltre()
ActiveSheet.[B3].CurrentRegion.AutoFilter 1, "1"
ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(12) = ""
ActiveSheet.ShowAllData
End Sub
Test OK sur le fichier exemple du fil.
Sans doute, besoin de quelques adaptions pour le fichier réel.
 
Bonjour à tous 🙂

@Staple1600 😉

Avec la méthode par filtre, j'obtiens une erreur quand il y a de nombreuses lignes de données. Le fait que je n'ai que 4 Go de mémoire n'est peut-être pas étranger au phénomène ?

Voir le fichier joint avec les quatre cas (boucle avec peu ou beaucoup de données, filtre avec peu ou beaucoup de données)

L'erreur obtenue est la suivante:
1575276100772.png
ou bien
1575275752681.png


nota :
  • si je télécharge le fichier et ne le sauvegarde pas, j'ai l'erreur 400
  • si je télécharge le fichier et le sauvegarde, j'obtiens l'erreur 1004
Je "suppose" que l'erreur 400 est plutôt due à un manque de mémoire vive. Le fait de sauvegarder doit libérer un peu d'espace et on aboutit quand même à une erreur 1004. Ce ne sont que des supputations.
 

Pièces jointes

Dernière édition:
- 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 bouton supprimer
Réponses
4
Affichages
108
Réponses
17
Affichages
273
Réponses
6
Affichages
160
Retour