Formule pour compter les lignes avec toutes les cellules vides

Bonjour Eric Kergresse,

Function LignesVides(ByVal AireDonnees As Range) As Integer

Dim I As Integer

    LignesVides = 0
    For I = 1 To AireDonnees.Rows.Count
        If WorksheetFunction.CountA(AireDonnees.Rows(I)) = 0 Then
           LignesVides = LignesVides + 1
        End If
    Next I

End Function

Comment pouvons-nous mettre à jour la macro que vous avez écrite de cette manière ?

Comment pouvons-nous mettre à jour la macro que vous avez écrite de cette manière ?

De la même manière que la précédente :

Function LignesRemplies(ByVal AireDonnees As Range) As Integer

Dim I As Integer

    LignesRemplies = 0
    For I = 1 To AireDonnees.Rows.Count
        If WorksheetFunction.CountA(AireDonnees.Rows(I)) > 0 Then
           LignesRemplies = LignesRemplies + 1
        End If
    Next I

End Function

Merci Eric Kergresse