If Condition si la cellule est vide

Bonjour j'essaye d'implémenter ce code afin de pouvoir l'exécuter sur une feuille , ce code permet actuellement de supprimer les données à partir de la 1ère ligne sur la feuille "test" :

Public Sub Supp()

  Call Init ' initialisation des filtre 

  Dim dlig As Long

  With Sheets("test")
    dlig = .Range("A" & Rows.Count).End(xlUp).Row
    .Rows("1:" & dlig).ClearContents

  End With

End Sub

J'aimerai savoir si c'est possible d'ajouter une condition si : si la cellule A1 n'a pas de donnée quitter directement le sub. Je sais pas s'il faut ajouter If Range ("A1") = 0 Then ou bien y a une fonction particulière sur Excel.

Je vous remercie d'avance

Hello,

Pour vérifier si une valeur est vide tu peux utiliser IsEmpty

If IsEmpty([a1]) Then Exit Sub

Bonjour

A tester

Public Sub Supp()

  Call Init ' initialisation des filtre 

  Dim dlig As Long

  With Sheets("test")
    dlig = .Range("A" & Rows.Count).End(xlUp).Row
        if .Range("A1")="" then
            Exit Sub
        Else
            .Rows("1:" & dlig).ClearContents
        End if
  End With

End Sub

sub

J'ai fais un mix des deux solutions :

En Utilisant IsEmpty à la place de la Cellule Vide " "

Public Sub Supp()

  Call Init ' initialisation des filtre 

  Dim dlig As Long

  With Sheets("test")
    dlig = .Range("A" & Rows.Count).End(xlUp).Row
       If IsEmpty(A1) = True Then
            Exit Sub
        Else
            .Rows("1:" & dlig).ClearContents
        End if
  End With

End Sub

Merci encore pour votre aide.

Re

pas besoin de mettre = True, isEmpty renvoi déjà une valeur booléenne
Egalement il faut mettre les crochets sinon vba ne comprend pas que tu fais référence à une cellule

Voici une proposition un peu plus légère

Public Sub Supp()
    Call Init ' initialisation des filtre 

    If IsEmpty([a1]) Then Exit Sub
    Range([a1], [a1].End(xlDown)).EntireRow.ClearContents
End Sub

D'accord je vous remercie