Supprimer les lignes vide sans diminution de la formule

[Mimi]

Bonjour à tous,
Avec le bouton 4 j'arrive à supprimer les lignes vides,
jusque là tout va bien, mais en cellule F2 il i a une formule =SOMME(F4:F500)
et le problème c'est que lorsque je supprime les lignes vides la formule diminue
c'est-à-dire que lorsque que je supprime 7 lignes vides la formule diminue de 7
Comment faire pour eviter la diminution du F500,
D'avance merci
Michel

 

[Efgé]

Re : Supprimer les lignes vide sans diminution de la formule

Bonjour
Au plus simple : remettre la formule en fin de traitement.

Sub test_2()
Application.ScreenUpdating = True
With Sheets("Vente")
For i = Range("A65536").End(xlUp).Row To 3 Step -1
    If Range("A" & i).Value = "" Then Rows(i).Delete
Next i
.Range("$F$2").FormulaLocal = "=SOMME($F$4:$F$50)"
End With
Application.ScreenUpdating = False
End Sub

Cordialement

 

[CHALET53]

Re : Supprimer les lignes vide sans diminution de la formule

bonjour,

J'ai mis en T2 cet info F4:F50
en F2 : =SOMME(indirect(T2))

A tester

 

[Efgé]

Re : Supprimer les lignes vide sans diminution de la formule

Re
On peux en profiter pour remetre le code d'applomb

Sub test()
Application.ScreenUpdating = False
With Sheets("Vente")
    For i = .Range("A65536").End(xlUp).Row To 3 Step -1
        If .Range("A" & i).Value = "" Then .Rows(i).Delete
    Next i
    .Range("$F$2").FormulaLocal = "=SOMME($F$4:$F$50)"
End With
Application.ScreenUpdating = True
End Sub

Cordialement

EDIT Bonjour CHALET

 

[Mimi]

Re : Supprimer les lignes vide sans diminution de la formule

Bonjour,
Ben rien à dire réponse rapide et c'est nickel
Merci beaucoup
Michel