XL 2016 Compter des cellules vides selon critères

rounil09 · 25 Janvier 2018

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 · 25 Janvier 2018

Bonsoir
deux fonctions perso à tester

rounil09 · 25 Janvier 2018

sousou à dit:
Bonsoir
deux fonctions perso à tester

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

JHA · 26 Janvier 2018

Bonjour à tous,

Pour l'écart final par formule:

Code:

=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 · 26 Janvier 2018

rounil09 à dit:
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 · 26 Janvier 2019

sousou à dit:
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 · 26 Janvier 2019

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+

Tara-tata · 26 Janvier 2019

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+

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 · 26 Janvier 2019

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 · 26 Janvier 2019

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.

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

AtTheOne · 19 Novembre 2021

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

XL 2016 Compter des cellules vides selon critères

rounil09

XLDnaute Occasionnel

Pièces jointes

sousou

XLDnaute Barbatruc

Pièces jointes

rounil09

XLDnaute Occasionnel

JHA

XLDnaute Barbatruc

rounil09

XLDnaute Occasionnel

Tara-tata

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

Tara-tata

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Tara-tata

XLDnaute Nouveau

AtTheOne

XLDnaute Accro

Pièces jointes

Discussions similaires