Supprimer plusieurs ligne par macro

Salam jof.27

Crée un bouton et attribue-lui le code suivant :

Private Sub CommandButton1_Click()
ligne = 14
While Cells(ligne, 8) <> ""
  If Cells(ligne, 8) < -180 Or Cells(ligne, 8) > 540 Then
    Rows(ligne).Delete
  Else
    ligne = ligne + 1
  End If
Wend
End Sub

J'ai supposé que la colonne H contient des valeurs en ordre croissant à partir de la ligne 14.

C'est bien ce que tu voulais ?

elle existe seulement elle n'est pas toujours de -180 pile par exemple elle peut être de -180.36 ou de -179.94; je veux donc supprimer les valeurs inférieur à -180et laisser la valeur -180; dans le cas ou il y -180.36 ou -179.94 la valeur -180.36 sera alors supprimer.
voici mon travail: http://cjoint.com/13jn/CFmqxqxKZKr.htm
merci de votre réponse.

pour la second ça donnera: (j'ai prévu large avec 13000, mais sans connaitre le tableau c'est dur à dire)

sub suppression()

For i = 14 to 13000

If sheets("Feuil1").cells(i, 8).value > 540 then
sheets("Feuil1").rows(i).delete
i = i-1
Else
End if

Next i
end sub

normalement, ça fonctionnera

J'ai regardé mais il y a un problème

Quand on supprime des lignes sur ton fichier toutes les zone avec des formule passe en "REF!"

Salam jof27.

Je crains que mon message ne soit passé inaperçu car nous avons posté au même moment :)

https://forums.commentcamarche.net/forum/affich-28004011-supprimer-plusieurs-ligne-par-macro#2

je bloque aussi sur ce point, je recherche une solution

si on ne peut pas le faire ainsi on peut ruser, je faisais cela afin d'obtenir la somme de la colonne L à partir de -180 à 0 en H puis la somme de L de 0 à 180 en H puis la somme de 180 à 360 en H puis la somme de 360 à 540 en H. ainsi rassembler ensuite ces somme dans un tableau.
mais cela me fait refaire une macro sauf si vous trouver la solution de supprimer les points.
je ne suis pas sur de m'être bien exprimer, demandez moi si vous n'avez rien compris.
merci à vous.

Bonjour jof.27,

Voilà une petite Macro qui devrait résoudre ton problème

Sub Suppr_Inf180_Sup540()
NB_Debut = Sheets(1).Cells(65536, 8).End(xlUp).End(xlUp).Row + 1
Nb_Ligne = Sheets(1).Cells(65536, 8).End(xlUp).Row
    
For i = NB_Debut To Nb_Ligne
    Valeur = Sheets(1).Cells(i, 8)
    
    If Valeur < -180 Then
        GoTo Fin
    Else
        Range(Rows(NB_Debut), Rows(i - 1)).Select
        Selection.Delete
        Exit For
    End If
Fin:
Next i

Sheets(1).Cells(NB_Debut, 1).FormulaR1C1 = "=R[-10]C[7]-R[-10]C[6]"
Sheets(1).Cells(NB_Debut, 12) = ""

Nb_Ligne = Sheets(1).Cells(65536, 8).End(xlUp).Row

For i = NB_Debut To Nb_Ligne
    Valeur = Sheets(1).Cells(i, 8)
    
    If Valeur > 540 Then
        Range(Rows(i), Rows(Nb_Ligne)).Select
        Selection.Delete
        Exit For
    End If
Next i
End Sub

Bonjour,

Voila la solution que j'ai trouvé :

Sub suppression()
For i = 14 To 12000
Sheets("éssai instationnaire").Cells(i, 13).Value = Sheets("éssai instationnaire").Cells(i, 8).Value
Next i
For i = 14 To 10000
If Sheets("éssai instationnaire").Cells(i, 13).Value < -180 Then
Sheets("éssai instationnaire").Rows(i).Delete
i = i - 1
Else
If Sheets("éssai instationnaire").Cells(i, 13).Value > 540 Then
Sheets("éssai instationnaire").Rows(i).Delete
i = i - 1
Else
End If
End If
Next i
Sheets("éssai instationnaire").Range("M1:M10000").ClearContents
End Sub

tu a dès problèmes de références dans certaines colonnes, il faudra retaper les formule sur la première ligne, et tu n'aura plus qu'a les faire glisser sur les autres (pas besoin de macro, plus simple a la main)

fais attention, cette macro est lente d'exécution, et très longue, donc ton fichier sera inutilisable jusqu'à ce qu'elle se finisse

merci la macro fonctionne et effectivement c'est vraiment très long, ce n'est pas possible de faire plus rapide?
merci beaucoup quand même.

Bonjour,

ce n'est pas possible de faire plus rapide?
On ne sait pas trop à quelle macro tu fais référence...

1) limiter la boucle à la dernière ligne utilisée:

derlig=cells(rows.count,8).end(xlup).row 'colonne 8

et sur une suppression de ligne on boucle plutôt du bas vers le haut avec step -1

2) ajouter au début du code :

Application.ScreenUpdating = False
Application.EnableEvents = False 
mlCalcStatus = Application.Calculation
Application.Calculation = xlCalculationManual

rétablir en fin de code :

Application.ScreenUpdating = true
Application.EnableEvents = true
Application.Calculation = mlCalcStatus

eric
Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.

merci de votre aide mais je penses malheureusement que ce ne sera pas possible puisque pour chaque valeurs j'ai besoin de la précédente, donc je voulais supprimer de façon a alléger mon fichier mais, ça me modifie tout.
je penses partir sur une autre solution qui me semble plus simple:
faire la somme de la colonne L à partir de la valeur -180 en colonne H ou ce qui s'en rapproche le plus( -180.28 non mais -179.94 oui) jusqu'à la valeur 0 en colonne H ou ce qui s'en rapproche le plus en positif ( pas -0.18 mais 0.24 par exemple).
ainsi avec cette macro je pourrais l'étendre pour faire la somme de mes autres valeurs toujours même colonne L mais de valeur dans la colonne H différentes mais suivant le même principe.
j'espère être claire dans ce que je dis.
désolé de vous avoir fait chercher une solution qui ne peut fonctionner dans mon cas.