XL 2016 Supprimer donnees en fonction valeur cellule

S

Sheldor

XLDnaute Occasionnel

Supporter XLD

• 1 Décembre 2019

• #2

bonjour
la dernière ligne s'efface aussi, ou alors j'ai raté quelque chose

nicolas

 

Pièces jointes

• Copie de JMG forumexcel.xlsm

  16.7 KB · Affichages: 6

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 1 Décembre 2019

• #3

J'ai oublié de signaler que mon tableau n'est qu'un exemple comportant 4 lignes mais l'original peut comporter plusieurs centaines de lignes

 

Vote positif 0 Vote négatif

S

Sheldor

XLDnaute Occasionnel

Supporter XLD

• 1 Décembre 2019

• #4

for ligne = 4 to cells(rows.count,2).end(xlup).row

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 1 Décembre 2019

• #5

Merci
mais en remplaçant la 1e ligne de ton ancien code par ton nouveau code (for ligne = 4 to cells(rows.count,2).end(xlup).row)
celà ne fonctionne pas

 

Vote positif 0 Vote négatif

S

Sheldor

XLDnaute Occasionnel

Supporter XLD

• 1 Décembre 2019

• #6

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

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 1 Décembre 2019

• #7

OK merci beaucoup
Celà fonctionne

PS : pas moyen de regrouper en 1 ligne de code les 3 lignes de code (car j'ai pas mal de colonnes) ?
Cells(i, 2).ClearContents
Cells(i, 3).ClearContents
Cells(i, 4).ClearContents

 

Vote positif 0 Vote négatif

S

Sheldor

XLDnaute Occasionnel

Supporter XLD

• 1 Décembre 2019

• #8

range(cells(i,2),cells(i,4)).clearcontents

à adapter

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 1 Décembre 2019

• #9

Parfait !
Bonne fin de journée

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Décembre 2019

• #10

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.

 

Vote positif 0 Vote négatif

S

Sheldor

XLDnaute Occasionnel

Supporter XLD

• 1 Décembre 2019

• #11

bonjour Staple,
je me doutais qu'une solution plus élégante arriverait

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Décembre 2019

• #12

Re

nicopec
Je ne sais si elle plus élégante ou que sais-je encore.
C'est juste une autre façon de faire 😉
(Et pour ce qui me concerne, quand je peux éviter de faire une boucle, je l'évite)

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 2 Décembre 2019

• #13

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:
ou bien

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

• Gourdin- effacer ligne- v2.xlsm

  19.2 KB · Affichages: 5

Dernière édition: 2 Décembre 2019

Vote positif 0 Vote négatif