Formule pour compter les lignes avec toutes les cellules vides

Bonjour,

Comment compter les lignes avec toutes les cellules vides avec une formule ?

Merci

Bonjour,

Si VBA vous est autorisé :

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

Bonjour Merakli,

Vous êtes ici sur un forum francophone, j'i donc modifié votre texte en conséquence

Même si ce n'est pas parfait, merci d'utiliser Google Translate SVP

Quant à votre demande, je n'ai pas de solution qui me vient à l'esprit

Cordialement.

Edit : bonjour Eric, il parle de formule

Bonjour Bruno,

Tu as tout à fait raison de le rappeler. Cependant, je suis une grosse brêle côté formules et j'ai du mal avec l'âge à déchiffrer celles qui font 1 km de long (je trouve cela même complètement stupide). C'est pour cette raison que j'ai utilisé cette précaution d'usage : "Si VBA vous est autorisé...".

J'espère que ce forum n'est pas aussi sectaire que d'autres sur cette question.

Amicalement.

Eric,

Ce n'est pas être "sectaire" que de préférer les formules à VBA quand on peut !
La dessus, chacun son point de vue.

Aujourd'hui beaucoup ne se posent plus la question, allez hop... une petite sub en vba fera l'affaire
Et c'est souvent comme utiliser un canon de 105 pour tuer une mouche

Surtout que nous avons Power Query depuis des années et son langage M qui fait un tas de choses incroyables.

De plus VBA est pour beaucoup une langue inconnue et difficilement assimilable
donc quand on peut éviter ou quand cela est demandé par celui qui poste, je préfère.

A+

Re,

Je ne peux pas te contredire sur l'utilisation du canon de 105 (sans recul). C'est vrai qu'on se trouve un peu bête une fois lues les autres réponses.

Amicalement.

Bonjour à tous,

Sinon, il y a la solution simpliste qui consiste à utiliser des colonnes vides pour faire les calculs intermédiaires et de faire le total après coup, dans le cas présent je vois que certaines colonnes ont des largeurs différentes, donc j'en conclu qu'elles doivent être utilisées, alors j'applique ces formules intermédiaires en dehors de ces champs, ici en colonnes AC et AD.

Puis les formules:

en AC5 et à tirer jusqu'à AC25: =SI(SOMME(E5:P5)=0;1;0)

en AD5 et à tirer jusqu'à AD25: =SI(SOMME(Q5:V5)=0;1;0)

en E25: ="Total blank fields count : " & SOMME($AC$5:$AC$24)

en Q25: ="Total blank fields count : "&SOMME($AD$5:$AD$24)

C'est sûr, c'est moins chic qu'une formule unique et complexe mais tellement plus facile à interpréter ou à adapter si besoin.

Cdlt

Merci Eric Kergresse,

J'aime et j'apprends le VBA

Bonjour BrunoM45,

J'utiliserai google translate français dans mes prochains sujets

Sinon, je vais essayer votre suggestion, en utilisant une colonne d'aide.

Je tape avec google translate, j'espère que j'ai pu expliquer

Eric Kergresse,

If WorksheetFunction.CountA(AireDonnees.Rows(I)) = 0 Then........

AireDonnees Qu'est ce que l'anglais?

C'est le range du tableau.

=LignesVides(E5:P24)

Merci beaucoup pour la réponse rapide.

bonjour

la formule mise au point et testée

validation tridactyle

=SOMMEPROD(--(SOUS.TOTAL(2;DECALER(E5:P5;LIGNE(E5:E24)-5;))=0)*(E5:P24=""))/NB.SI(E11:P11;"<>1<")

cordialement

bonjour tulipe_4

ça donne une erreur comme celle-ci

Ce n'est pas une erreur, c'est un renseignement, vous pouvez le désactiver en allant dans les options excel et décocher ceci:

re

l'essai

bonjour

ou alors en beaucoup plus simple

=SOMME(SI(FREQUENCE(SI(E5:P24="";LIGNE(D5:D24);"");LIGNE(D5:D24))=COLONNES(E:P);1))

toujours matricielle

cordialement

Merci tulipe_4

Cette formule est plus courte mais elle donne une erreur comme celle-ci

merakli-sample-file.xlsm

Merci Arturo83

Pour votre soutien et vos explications