Supprimer certaines lignes

[Boby71C]

Bonjour à tous
J'éssai de faire une macro pour supprimer des lignes par rapport à des N° situés en colonne J.
Je désir garder seulement les lignes ayant le N° 115.
J'ai réussi à supprimer celles situées au dessus du 115 mais je ne réussi pas à supprimer celles au dessous.

Comme vous le savez, je ne suis pas trés costaud en VBA et je fais souvent appel aux pros que vous êtes.

Merci beaucoup de votre aide.
Dans le fichier joint, je désir seulement garder les lignes rouge.

Trés bon Week End
@+ Robert [file name=NbCP.zip size=9253]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/NbCP.zip[/file]

 

[JC de Lorient]

Bonjour Boby, le forum

je ne suis pas un spécialiste de VBA mais ce code a l'air de marcher
par contre tes 115 sont au format texte je ne sé pas si c normal !!
si se sont logiquement des nombres faudra sans doute le modifier

y'a surement plus simple mé c un début !!

Sub suppres()
Dim x, y As Byte
y = Range('J65536').End(xlUp).Row
For x = 2 To y

Range('J' & x).Select
If ActiveCell = ('115') Then
ActiveCell('1').Rows('1:1').EntireRow.Select
Selection.Delete Shift:=xlUp
x = x - 1
y = y - 1
End If
Next x
End Sub


bon courage

JC

 

[JC de Lorient]

re

grosse erreur j'ai fé l'inverse de ta demande !!!!
je supprime tes lignes que toi tu veux garder !

je regarde et je te renvoie le code

JC

 

[JC de Lorient]

re
j'ai des soucis pour t'envoyer le fichier

JC

 

[JC de Lorient]

re

voilà le fichier
avec ça ça devrait aller !!

PS: si tu as plus de 255 lignes changes Dim x, y As Byte
par Dim x, y As integer

JC [file name=Boby.zip size=6480]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Boby.zip[/file]

 

[Boby71C]

Bonjour JC de LORIENT et le forum

Merci beaucoup pour ton excelent travail. C'est exactement se que je désirais et je constate que tu as serieusement réduit le code VBA par rapport à se que j'avais commencé.
Nous voyons la différence entre les pros et les amateurs.

Merci beaucoup

@+ Robert