XL 2013 Propriété de la cellule contenant de la formule

[badraaliou4]

Bonjour, le forum
je voulais supprimer la dernière ligne de mon tableau si c'est vide
mais toutes les cellules contiennent des formules.
lorsque j'ai mis ce code, il me dit que les cellules ne sont pas vides.
y a t il une propriété qui défini la cellule qui contient de formule?
merci pour votre aide

Sub delete_trans()
Dim li As String
    li = ActiveSheet.Range("a7").End(xlDown).Value  'ça me donne comme la cellule n'est pas vide alors que c'est vide mais contenant de formule
If li = "" Then
        Dim AckTime As Integer, infobox As Object
        Set infobox = CreateObject("Wscript.Shell")
        AckTime = 1.3
        Select Case infobox.popup("Pas de ligne vide", _
        AckTime, "Information...", 0)
        Case 1, -1
        Exit Sub
        End Select
Else
    Sheets("liste").Select
     ActiveSheet.Unprotect Password:="0000"
    Range("A7").End(xlDown).Select
    Dim lot As ListObject, l As Long
    Set lot = ActiveCell.ListObject
    If lot Is Nothing Then Exit Sub
    l = ActiveCell.Row - lot.HeaderRowRange.Row
    lot.ListRows(l).Delete
    ActiveSheet.protect Password:="0000", DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub

 

[James007]

Bonjour,

SI tu définis ta plage As Range

If plage.HasFormula = True Then

En espèrant que cela t'aide

 

[badraaliou4]

Re,
Merci beaucoup, James007, le forum

J'ai remplacé

if li="" then

Par

if li <>"" then

Et ça a marché

 

[James007]

Content que tu aies pu résoudre ton problème