Suppression de lignes après une cellule

[nice]

Bonjour à tous

Je souhaite utiliser une macro pour supprimer des lignes ( dans l'exemple ci joint, 13 lignes) après une cellule de résultat ( somme de 2 colonnes )
Ce tableau est mis à jour et le nombre de lignes avant résultat augmente à chaque mise à jour
Mon niveau de VBA étant ce qu'il est ( très mince ),
j' en appelle à vos compétences

Par avance Merci à tous pour votre aide

 

[phlaurent55]

Re : Suppression de lignes après une cellule

Bonjour Nice,

avec ce code ( si on doit tout supprimer à partir de la ligne 26)

    Rows("26:26").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("A26").Select

le problème consiste à déterminer la ligne où se trouvera le total
il suffirait de mettre le mot "TOTAL" en colonne M (à la ligne 25 dans ton exemple)
après chaque mise à jour, il restera à déterminer la position du mot "TOTAL" et l'utiliser dans la première ligne du code comme ceci: Rows(position+1).Select


à+
Philippe

 

[nice]

Re : Suppression de lignes après une cellule

Merci Phillipe
Mais que fait on de la variation des lignes qui augmentent avant le résultat
la ligne 26 est un exemple mais on peut avoir après mise à jour, n lignes ( dans l'absolu le nombre max de lignes d' excel ) moins les 13 lignes qu'il faut toujours enlever après le résultat.
Je me suis mal exprimé, il y a toujours 13 lignes à enlever

a+
Gilbert

 

[phlaurent55]

Re : Suppression de lignes après une cellule

Re,

Mais que fait on de la variation des lignes qui augmentent avant le résultat

??????

ce que j'ai voulu dire , c'est qu'il faut retrouver la ligne qui contient le résultat et s'en servir pour effacer tout ce qui se trouve en dessous

le code donné au post précédent est à utiliser après la mise à jour


à+
Philippe

 

[nice]

Re : Suppression de lignes après une cellule

Re

Il faudrait donc utiliser un repère par exemple "TOTAL" en le tapant dans l

 

[nice]

Re : Suppression de lignes après une cellule

Re

J'ai bien compris Phillipe mais il faut taper manuellement un "repère" par ex "TOTAL" dans la cellule précédente après chaque mise à jour!?
N'y a t' il pas une solution plus "automatique" avec macro?

a+
Gilbert

 

[JNP]

Re : Suppression de lignes après une cellule

Bonsoir Nice, re Philippe ,
A tester

Sub Test()
Dim Cellule As Range
For Each Cellule In Range("N1:N" & Range("N65536").End(xlUp).Row)
If Cellule.Formula Like "=SUM*" Then
Rows(Cellule.Row + 2).Resize(13).Delete
End If
Next Cellule
End Sub

Bonne suite

 

[phlaurent55]

Re : Suppression de lignes après une cellule

Re,

une autre manière de s'y prendre

Sub Macro1()
Dim myRange As Range
Set myRange = Worksheets(1).Range("N1:N65535")
trouvemax = Application.WorksheetFunction.Max(myRange)
For i = 1 To Range("N65536").End(xlUp).Row
If Cells(i, 14).Value = trouvemax Then
ligne = i + 2
Exit For
End If
Next i
Rows(ligne).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
End Sub

à+
Philippe

 

[nice]

Re : Suppression de lignes après une cellule

Bonsoir JNP, Re Philippe

Vos 2 macros fonctionnent à merveille!!
Une question "embarrassante" ( je ne veux pas vous fâcher ! )
Quelle est la mieux ? étant novice, je ne peux pas les commenter

a+
Gilbert

 

[nice]

Re : Suppression de lignes après une cellule

Re Philippe

la macro ne fonctionne pas si la somme est négative, faut il utiliser la "Fonction.Min" ? et comment l'intégrer dans ta macro

Merci encore
Gilbert

 

[JNP]

Re : Suppression de lignes après une cellule

Re ,

Une question "embarrassante" ( je ne veux pas vous fâcher ! )
Quelle est la mieux ? étant novice, je ne peux pas les commenter

Comme l'a dit Philippe, ce sont 2 manières différentes d'aborder le problème, donc pas forcément comparables ...
On pourrait facilement en trouver d'autres déclinaisons, un Find à la place de la boucle de Philippe par exemple, mais ça ne prendra de l'importance que si tu traites 20000 ou 30000 lignes ...
J'avais d'ailleurs d'abord pensé au Max, mais comme je n'étais pas sûr que la valeur dans la colonne à droite était toujours négative, j'ai préféré chercher le SUM .
Donc si la valeur au dessus est toujours plus grande que la somme, pas de problème, les 2 sont bonnes .
Bonne soirée
Ajout : Finalement, j'avais bien fait de me "déméfier"

 

[nice]

Re : Suppression de lignes après une cellule

Re ,

Mais si la somme est supérieure à la valeur au dessus, le cas se présente aussi, que faut il faire?
Merci pour ta réponse
et Bonne soirée
Gilbert

 

[Staple1600]

Re : Suppression de lignes après une cellule

Bonsoir à tous


Une autre façon

Sub a()
Rows([MASOMME].Offset(1).Row & ":65536").Delete
End Sub

Préalable: Tu nommes ta cellule ou est ta formule avec Insertion/Noms/Définir
(Ici je l'ai nommée MASOMME)

 

[nice]

Re : Suppression de lignes après une cellule

Bonsoir JM
et merci pour ta participation
mais comment nommer cette cellule résultat qui descend dans le tableau à chaque mise à jour?

Cordialement,
Gilbert

 

[JNP]

Re : Suppression de lignes après une cellule

Re ,

Mais si la somme est supérieure à la valeur au dessus, le cas se présente aussi, que faut il faire?

Il me semble bien que mon code ne tiens pas compte de la valeur Max, mais de la présence de la formule Somme dans la cellule ...
Sinon, la solution de Jean-Marie est élégante ...
Bonne soirée