supprimer plusieurs ligne par macro Résolu/Fermé

Question

Bonjour, 
je cherche une seconde macro qui supprime les lignes a partir de la ligne 14 jusqu'à la ligne où dans la colonne H il y a la valeur la plus proche de -180; puis en faire une seconde supprimant les lignes à partir de la colonne H indiquant un nombre supérieur a 540 jusqu'à la fin.
mon tableau s'étant sur 10 colonnes et un nombre de lignes supérieur a 12000.
pour plus de renseignement ou avoir le fichier. demandez moi, j'espère m'être bien exprimé.
merci d'avance.
cdlt


Configuration: Windows XP / Firefox 21.0

NeoTsu · Answer

Bonjour,

Il me manque juste deux info :


pour la 1), la valeur -180 existe-elle ? je comprends pas le fait de supprimer jusqu'à une valeur proche de -180 . Faut-il supprimer la ligne -180 ?

Quelle est le nom de la feuille du classeur utilisée ?

redaiwa · Answer

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 ?

jof.27 · Answer

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.

NeoTsu · Answer

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

WeaponEDGE · Answer

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!"

redaiwa · Answer

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

NeoTsu · Answer

je bloque aussi sur ce point, je recherche une solution

jof.27 · Answer

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.

WeaponEDGE · Answer

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

NeoTsu · Answer

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

jof.27 · Answer

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.

eriiic · Answer

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 8et 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.

jof.27 · Answer

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.

Supprimer plusieurs ligne par macro

13 réponses

Discussions similaires