XL 2016 Supprimer donnees en fonction valeur cellule

[gourdin]

Bonjour,

Par macro je voudrais supprimer des données en fonction de la valeur d'une cellule de la même ligne.
Voir pièce jointe avec exemple.

Merci

 

[Sheldor]

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

nicolas

 

[gourdin]

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

 

[Sheldor]

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

 

[gourdin]

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

 

[Sheldor]

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

 

[gourdin]

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

 

[Sheldor]

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

à adapter

 

[gourdin]

Parfait !
Bonne fin de journée

 

[Staple1600]

Bonjour le fil, gourdin, nicopec

Une autre façon de faire (sans boucle)

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.

 

[Sheldor]

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

 

[Staple1600]

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)

 

[mapomme]

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.