XL 2016 Compter des cellules vides selon critères

[rounil09]

Bonjour,

Je n’arrive pas à me sortir de comptages de cellules vides (par formules de préférence, sinon par VBA).
Il s’agit de compter des cellules vides dans chaque ligne d’un tableau selon 2 critères :
. Nombre de cellules vides jusqu’à la première cellule non vide.
. Nombre maximum de cellules vides entre plusieurs cellules non vides.

Je joins un fichier explicatif

Merci par avance pour votre aide.

 

[sousou]

Bonsoir
deux fonctions perso à tester

 

[rounil09]

Bonsoir
deux fonctions perso à tester

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

 

[JHA]

Bonjour à tous,

Pour l'écart final par formule:

=SI(SOMME($B3:$AK3)>0;COLONNE()-COLONNE(INDEX($B3:$AK3;EQUIV(9^9;$B3:$AK3;1)));COLONNE()-2)

Copier vers le bas
Concernant l'écart max(), pas encore trouvé.

JHA

 

[rounil09]

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

La formule fonctionne nickel. Merci.
Je reste toujours ébahi devant la dextérité de certains à manier les formules ou le code VBA.

 

[Tara-tata]

Bonsoir
deux fonctions perso à tester

Bonjour, je suis nouvelle sur le forum.
J'aimerais également calculer l'écart max de cellules vides mais dans une colonne. Pouvoir avoir l'écart max et l'écart final. Je ne comprends pas la formule dans le tableau pour Rounil09. Est il possible d'avoir la formule en code texte et adapté aux colonnes ?
Merci beaucoup.

 

[job75]

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 :

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 :

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+

 

[Tara-tata]

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 :

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 :

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+

Bonjour, merci beaucoup pour votre bienvenue et pour votre réponse mais je suis désolée, je ne comprends pas... dans la case, la formule marquée est "=EcartFinal()" et "=EcartMax()". Or, quand je rentre ça à la dernière ligne de la colonne concernée dans mon tableau et avec la colonne sélectionnée, ça me met "#NOM?". Quelle est la formule que je dois rentrer exactement ? Merci beaucoup. Je suis désolée, je ne m'y connais pas vraiment...

 

[job75]

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.

 

[Tara-tata]

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.

Tout fonctionne très bien, c'est parfait !!! Merci beaucoup beaucoup beaucoup, vous m'enlevez une épine du pied !!!

 

[AtTheOne]

Bonsoir tout le monde
Comme d'habitude je suis un peu à la traine pour poster ma réponse (manque d’entrainement).
Voir en PJ une version avec 1 formule l'écart final 1 fonction pour l'écart max.

Un peu tard mais tant-pis

A bientôt
Alain