Vérifier qu'une plage est vide

[Troudz]

Bonjour à tous,

Je me suis créée une fonction qui vérifie si les cellules d'une plages sont vides mais elle devient très lente lorsque la plage observée est grande :

Function PlageVide(PlageObservee As Range) As Boolean
Dim i As Long
Dim j As Long
PlageVide = True
    
    With PlageObservee
        For i = 1 To .Rows.Count
            For j = 1 To .Columns.Count
                If .Item(i, j) <> "" Then PlageVide = False
            Next
        Next
    End With

End Function

Auriez vous une idée pour accélérer ce traitement ?

Merci d'avance,

Bonne journée

PS : j'aurai bien utilisé l'équivalent de la formule "ESTVIDE" mais j'aurai bien aimé faire ça entièrement avec du code VBA.

 

[Efgé]

Re : Vérifier qu'une plage est vide

Bonjour Troudz,
Peut être en sortant dès qu'une cellule est non vide:

Function PlageVide(PlageObservee As Range) As Boolean
Dim i As Long
Dim j As Long
PlageVide = True
    With PlageObservee
        For i = 1 To .Rows.Count
            For j = 1 To .Columns.Count
                If .Item(i, j) <> "" Then
                PlageVide = False
                Exit Function
                End If
            Next
        Next
    End With
End Function

Cordialement

 

[Troudz]

Re : Vérifier qu'une plage est vide

Bonjour Efgé et merci
C'est effectivement une solution à laquelle que je n'avais pas pensé. C'est vraiment que c'est plus rapide quand la plage n'est pas vide. Malheureusement, lorsque la plage est vide, le code est toujours très très long à exécuter.

 

[mth]

Re : Vérifier qu'une plage est vide

Bonjour le fil

Une tentative (en espérant ne pas faire de bêtise ...)

Function PlageVide(PlageObservee As Range) As Boolean
PlageVide = True
    With PlageObservee
        If WorksheetFunction.CountA(PlageObservee) > 0 Then PlageVide = False
    End With
End Function

Bonne journée à tous,

mth

 

[Troudz]

Re : Vérifier qu'une plage est vide

Bonjour mth et merci,

Effectivement ta solution est extrêmement rapide. Elle est même instantanée d'après mon timer.
Je tenais à faire ça sans utiliser de formule mais je m'en accommoderai.

Merci