Supprimer plusieurs ligne par macro [Résolu]

Réponse 2 / 13

NeoTsu Messages postés 58 Date d'inscription Statut Membre Dernière intervention 3

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

Réponse 3 / 13

NeoTsu Messages postés 58 Date d'inscription Statut Membre Dernière intervention 3

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 ?

Réponse 4 / 13

redaiwa Messages postés 351 Date d'inscription Statut Membre Dernière intervention 119

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 Messages postés 79 Date d'inscription Statut Membre Dernière intervention

peut être une question bête mais comment crée-t-on un bouton?

WeaponEDGE

Te casses pas la tête effectues la même manip qu'avec l'autre macro.

Sinon dans AFFICHER / BARRE OUTIL tu coches TOOLBOX et tu auras différents otption, menu déroulant bouton ect...

Une fois le bouon inséré tu fais un clique droit puis assigner macro.

Tu peux aussi insérer une image et faire la même manipulation.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 13

jof.27 Messages postés 79 Date d'inscription Statut Membre Dernière intervention

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.

Réponse 6 / 13

NeoTsu Messages postés 58 Date d'inscription Statut Membre Dernière intervention 3

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

Réponse 7 / 13

WeaponEDGE

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

Réponse 8 / 13

redaiwa Messages postés 351 Date d'inscription Statut Membre Dernière intervention 119

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

jof.27 Messages postés 79 Date d'inscription Statut Membre Dernière intervention

ça ne fonctionne pas, erreur sur la ligne While Cells(ligne, 8) <> "" erreur d'exception "13"
et je ne sais pas comment créer un bouton?

redaiwa Messages postés 351 Date d'inscription Statut Membre Dernière intervention 119

Essaye ceci : https://www.cjoint.com/?CFnmF72lMBD

C'est peut-être plus simple pour toi.

EDIT : je crois que je suis en retard d'une guerre, désolé je n'ai pas vu les derniers messages.

jof.27 Messages postés 79 Date d'inscription Statut Membre Dernière intervention

merci quand même ^^

Réponse 9 / 13

NeoTsu Messages postés 58 Date d'inscription Statut Membre Dernière intervention 3

je bloque aussi sur ce point, je recherche une solution

jof.27 Messages postés 79 Date d'inscription Statut Membre Dernière intervention

ok merci de ton aide.

Réponse 10 / 13

jof.27 Messages postés 79 Date d'inscription Statut Membre Dernière intervention

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.

Réponse 11 / 13

jof.27 Messages postés 79 Date d'inscription Statut Membre Dernière intervention

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.

NeoTsu Messages postés 58 Date d'inscription Statut Membre Dernière intervention 3

Ce serait possible en cherchant à mettre en avant des "bornes". il faudrait en gros qu'il cherche les valeurs qu'ils nous intéresse, et ensuite lui demander de tout supprimer d'un bloc, je termine un truc et je regarde ce que je peux faire ^^

jof.27 Messages postés 79 Date d'inscription Statut Membre Dernière intervention

ok merci beaucoup^car la ça fait 10minutes et n'est toujours pas fini ^^
vraiment très long quoi.

Réponse 12 / 13

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

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.

jof.27 Messages postés 79 Date d'inscription Statut Membre Dernière intervention

je fais référence à celle ci: de NeoTsu
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

Réponse 13 / 13

jof.27 Messages postés 79 Date d'inscription Statut Membre Dernière intervention

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.

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

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.
Tu as vraiment besoin de conserver les formules ?
Tu peux travailler sur une copie. Tu fais un copier collage spécial valeur, tu mets un filtre automatique pour afficher les lignes à supprimer et tu les supprimes.

eric

jof.27 Messages postés 79 Date d'inscription Statut Membre Dernière intervention

ca peut se faire en macro copier collage spécial valeur, tu mets un filtre automatique pour afficher les lignes à supprimer et tu les supprimes. sinon laisse je vais laisser mon fichier sera lourd mais ce n'est pas si grave.
merci de ton aide.
joffrey

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

à mettre dans le module Feuil1 :

Sub suppLig()
    Dim derlig As Long, data As Variant
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    mlCalcStatus = Application.Calculation
    Application.Calculation = xlCalculationManual
    
    derlig = Cells(Rows.Count, "A").End(xlUp).Row
    [A13].Resize(derlig, 14).Copy
    [A13].Resize(derlig, 14).PasteSpecial Paste:=xlPasteValues
    If ActiveSheet.AutoFilter Is Nothing Then [A12].AutoFilter
    [A12].AutoFilter Field:=8, Criteria1:="<-180", Operator:=xlOr, Criteria2:=">540"
    Rows("13:" & derlig).Delete Shift:=xlUp
    Selection.AutoFilter Field:=8
    
    Application.ScreenUpdating = True
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = mlCalcStatus
End Sub

Travailler sur une copie, les formules sont supprimées
eric

PS: je viens de voir que tu avais une table en P171. Il faut la préserver en la mettant au-dessus de la ligne 13. Et rajouté un copier-collage spécial valeur dessus.
Idem en 4027, les lignes risquent d'être supprimées...
Ou bien si tu es sûr que ces lignes restent élargir le nombre de colonnes ici :
[A13].Resize(derlig, 14).Copy
[A13].Resize(derlig, 14).PasteSpecial Paste:=xlPasteValues

jof.27 Messages postés 79 Date d'inscription Statut Membre Dernière intervention

je ne sais pas comment tu as réussi mais un grand merci pour le travail et le temps que tu as passé ça fonctionne parfaitement a condition de ne cliquer qu'une fois sur le bouton.
merci beaucoup.
joffrey

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

j'ai édité la fin de mon post, je ne sais pas si tu as vu.
eric

Supprimer plusieurs ligne par macro

13 réponses

Votre réponse

Discussions similaires