Macro suppr de ligne en fction de nombre

[DPX]

Bonjour,

Je recherche un macro qui trouve dans la colonne B les valeurs:
inférieure à 54300
entre 5430 et 70000
puis supérieures à 899000

Et qui supprime les lignes correcpondantes.

Une PJ

 

[Gorfael]

Re : Macro suppr de ligne en fction de nombre

Salut DPX et le forum
Pas sûr de comprendre tes critères :

inférieure à 54300
entre 5430 et 70000
puis supérieures à 899000

x<=70000 et x>899000 ?
A+

 

[DPX]

Re : Macro suppr de ligne en fction de nombre

Salut
T'as raison j'ai mal expliqué les critères.

Dans la colonne B, il y a toute une liste de nombre.
Les seuls lignes que je veux garder sont :
Entre 5400 et 5440
Entre 700000 et 899000
Toutes les autres lignes pourront être suppr.
Le vrai fichier par de 0 jusqu'à 59000 lignes.
...
@

 

[Robert]

Re : Macro suppr de ligne en fction de nombre

Bonjour DPX, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)

With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
    dl = .Cells(Application.Rows.Count, 2).End(xlUp).Row 'définit la dernière ligne édité  dl de la colonne B
    Set pl = .Range("B2:B" & dl) 'définit la plage pl
    On Error Resume Next 'gestion des erreurs (passe à la ligne suivante si rencontre une erreur)
    .Range("A1").AutoFilter Field:=2, Criteria1:="<54300" 'filtre sur premier critère (valeur<54300)
    pl.SpecialCells(xlCellTypeVisible).EntireRow.Delete 'efface les lignes visible de la plage pl (provoque une erreur si aucune ligne visible)
    If Err <> 0 Then Err = 0 'si une erreur a été générée, annule l'erreur
    .ShowAllData 'affiche toutes les lignes
    .Range("A1").AutoFilter Field:=2, Criteria1:=">5430", Operator:=xlAnd, Criteria2:="<70000" 'filtre sur second critère (5430<valeur>70000)
    pl.SpecialCells(xlCellTypeVisible).EntireRow.Delete 'efface les lignes visible de la plage pl (provoque une erreur si aucune ligne visible)
    If Err <> 0 Then Err = 0 'si une erreur a été générée, annule l'erreur
    .ShowAllData 'affiche toutes les lignes
    .Range("A1").AutoFilter Field:=2, Criteria1:=">899000" 'filtre sur troisième critère (valeur>899000)
    pl.SpecialCells(xlCellTypeVisible).EntireRow.Delete 'efface les lignes visible de la plage pl (provoque une erreur si aucune ligne visible)
    If Err <> 0 Then Err = 0 'si une erreur a été générée, annule l'erreur
    .ShowAllData 'affiche toutes les lignes
    .Range("A1").AutoFilter 'supprime le filtre automatique
End With 'fin de la prise en compte de l'onglet "Feuil1"
End Sub

Le fichier :

 

[Robert]

Re : Macro suppr de ligne en fction de nombre

Bonjour DPX, Gorfael, bonjour le forum,

Oui je me doutais aussi d'une blague de ce style ! Le fichier proposé ne tient pas compte de ton changement de cao. tu adapteras....

 

[DPX]

Re : Macro suppr de ligne en fction de nombre

Merci Robert,

Je vais voir pour adapter.

 

[DPX]

Re : Macro suppr de ligne en fction de nombre

Robert j'ai réussi à l'adapter merci.

Peux ton rendre ta macro plus souple en lui attribuant un bouton qui demande quelles sont les valeurs à supprimer?

 

[Robert]

Re : Macro suppr de ligne en fction de nombre

Bonjour le Fil, bonjour le forum,

Peux ton rendre ta macro plus souple en lui attribuant un bouton qui demande quelles sont les valeurs à supprimer?

Peux-tu poser la bonne question en début de fil ?....
En pièce jointe la version 2 avec une UserForm :
Dans la TextBox1 tu tapes le critère avec un des tois opérateurs, <>=. Par exemple : >10000 ou =4383 ou <60000. Les lignes correspondant au critère seront supprimées...

 

[DPX]

Re : Macro suppr de ligne en fction de nombre

Bonjour Robert, le forum

La TextBox1 fonctionne nickel!
J'ai même essayé avec du texte pur.
Merci