Discussion :

[bernard41]

bonjour,
j'ai cherché un peu dans l'historique, mais je n'ai pas trouvé réponsea mon petit probleme...
voila: dans mon fichier, je fais la somme de cellules qui ont toutes la meme adresse dans toutes les feuilles (formule: '=SOMME('feuil1:feuil256'!B8;I8) )
ceci sur plusieurs lignes, ensuite je les totalise, puis en final calcule une moyenne, mon probleme est que certaines cellules prises en compte dans mon addition ne sont pas encore renseignées, ce qui fausse ma moyenne,
aussi je cherche une formule pour connaitre le nombre de cellules vides sur toutes mes feuilles en B8 et I8..

si vous avez une piste..merci

[EngueEngue]

=NB.VIDE(Plage)

=Moyenne(Plage) ne prends pas en compte les cellules vides

=Sommeprod()

[bernard41]

merci, mais ça ne marche pas dans mon cas:
NB.VIDE('feuil1:feuil256'!b8) ou bien je fais une erreur dans ma formule..

[EngueEngue]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NB.VIDE('feuil1'!b8:I8)+NB.VIDE('feuil256'!b8:I8)

[bernard41]

la ça n'additione que pour 2 feuilles (premiere et derniere... )s'il faut que je marque toutes les feuilles, ça ne va pas etre simple, surtout que mes noms de feuilles sont bien plus compliqués que feuil1, etc...
vais je etre obligé de faire une petite macro ?

[EngueEngue]

oui monsieur

[bernard41]

ah mince, j'espérait qu'il existe une fonction standard...

bon, et bien je laisse encore un peu ouvert des fois que quelqu'un ait déja eu ce probleme, et quand j'aurais un peu de temps je ferais ma boucle en vba.

merci tout de meme.

[EngueEngue]

Tu peux faire une fonction personnalisée assez simple...

Sinon je pense qu'avec une sommeprod avec un nb.vide et un indirect ou tu repertories le nom de tes feuilles pourrait le faire.

[bernard41]

en fait mes feuilles, je n'en ai actuellement que 56, mais j'en rajoute au fur et a mesure, et leur nom correspond a des noms de pays, c'est parfois des noms assez long.

une boucle en vba me semble plus simple, car je ne vois pas comment faire une fonction personnalisée pour ce cas.

[Marc-L]

Bonjour.

la ça n'additione que pour 2 feuilles (premiere et derniere... )s'il faut que je marque toutes les feuilles, ça ne va pas etre simple, surtout que mes noms de feuilles sont bien plus compliqués que feuil1, etc...
vais je etre obligé de faire une petite macro ?

Non, pas obligé …

Comme la référence 3D pour effectuer la somme, la même astuce peut être utilisée pour les cellules vides, non ?

Suffit juste d'attribuer la même cellule dans chaque feuille pour y calculer le nombre de cellules vides …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[EngueEngue]

Tu mets ça dans un module standard:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Function calculvide(R1 As Range) As Double
    For Each ws In ActiveWorkbook.Worksheets
        calculvide = calculvide + Application.WorksheetFunction.CountBlank(R1)
    Next ws
End Function

Puis dans ta feuille:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=calculvide(b8:I8)

[bernard41]

merci a tous les deux, mais non hélas avec ma formule "3D" je n'arrive pas a adapter la/les fonctions... meme pas la fonction calculvide

[EngueEngue]

Tu as bien copié

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Function calculvide(R1 As Range) As Double
    For Each ws In ActiveWorkbook.Worksheets
        calculvide = calculvide + Application.WorksheetFunction.CountBlank(R1)
    Next ws
End Function

dans un module standard ?

[boisgontierjacques]

Bonjour,

=SOMME(Feuil1:Feuil4!B1)/SOMMEPROD(NB.SI(INDIRECT(nf&"!B1");"<>0"))

Jacques Boisgontier

[bernard41]

merci a tous...

enguengue, oui j'avais bien mis le code dans un module standard (avec mes autres macros d'ailleurs..) et elle fonctionne bien quand il n'y a qu'une feuille.

jacques, merci, tes formules m'intéressaient, mais si je suis obligé de faire une macro pour lister les feuilles, autant que je fasse le tout avec la macro, domage ce ne sera que sur commande et non pas automatique.

en tout cas merci a tous pour vos recherches.

[boisgontierjacques]

Bonjour,

La liste des noms de feuilles s'obtient sans macro

Cf PJ

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
=MOYENNE(SI(N(INDIRECT("'"&nf&"'!B1"))>0;N(INDIRECT("'"&nf&"'!B1"))))

Noms de champ
nf =DECALER(Recap!$F$3;;;NB.SI(Recap!$F$3:$F$20;"><"&""))
NomsFeuilles =STXT(LIRE.CLASSEUR(1);TROUVE("]";LIRE.CLASSEUR(1))+1;99)&INDIRECT("iv65000")

ou sans les noms de feuilles dans le tableur

=MOYENNE(SI(N(INDIRECT("'"&NomsFeuilles&"'!B1"))>0;N(INDIRECT("'"&NomsFeuilles&"'!B1"))))


Jacques Boisgontier

[bernard41]

merci, mais a trop vouloir en faire, on s'écarte du sujet...

je cherche une formule pour connaitre le nombre de cellules vides sur toutes mes feuilles en B8 et I8

pour les moyennes et les noms de feuilles, je les traite déja ailleurs.