XL 2016 Compter des cellules vides selon critères

sousou à dit:

Bonsoir
deux fonctions perso à tester

Cliquez pour agrandir...

rounil09 à dit:

Merci, c'est exactement ce que je cherchais à faire depuis plusieurs heures....
Et bonne soirée

Cliquez pour agrandir...

sousou à dit:

Bonsoir
deux fonctions perso à tester

Cliquez pour agrandir...

job75 à dit:

Bonjour Tara-tata, bienvenue sur XLD, bonjour le forum,

Pour l'étude par lignes de ce fil j'ai modifié la solution VBA de sousou dans le 1er fichier joint :

Code:

Function EcartFinal%()
Application.Volatile
Dim c As Range, n%
Set c = Application.Caller
For n = 0 To c.Column - 3
    If c(1, -n) <> "" Then Exit For
Next
EcartFinal = n
End Function

Function EcartMax%()
Application.Volatile
Dim c As Range, n%, Ecart%
Set c = Application.Caller.Offset(, -1)
For n = 0 To c.Column - 3
    If c(1, -n) = "" Then Ecart = Ecart + 1
    If c(1, -n) <> "" Then EcartMax = IIf(Ecart > EcartMax, Ecart, EcartMax): Ecart = 0
Next
If EcartMax = 0 And c(1, 0) = "" Then EcartMax = n
End Function

Pour l'étude par colonnes que vous demandez voyez le 2ème fichier joint et le code adapté à cette transposition :

Code:

Function EcartFinal%()
Application.Volatile
Dim c As Range, n&
Set c = Application.Caller
For n = 0 To c.Row - 3
    If c(-n) <> "" Then Exit For
Next
EcartFinal = n
End Function

Function EcartMax%()
Application.Volatile
Dim c As Range, n&, Ecart&
Set c = Application.Caller.Offset(-1)
For n = 0 To c.Row - 3
    If c(-n) = "" Then Ecart = Ecart + 1
    If c(-n) <> "" Then EcartMax = IIf(Ecart > EcartMax, Ecart, EcartMax): Ecart = 0
Next
If EcartMax = 0 And c(0) = "" Then EcartMax = n
End Function

A+

Cliquez pour agrandir...

job75 à dit:

Bien voir que le code que j'ai donné doit impérativement être placé dans un module standard (Module1).

Comme dans le 2ème fichier du post #7.

Cliquez pour agrandir...