XL 2010 Compter les cellules renseignées

[julescesar75]

Bonsoir
j'ai un fichier avec 10 onglets et je voudrais avoir le total si la cellule E5 est renseignée sur les 10 pages

Merci pour votre aide

 

[Staple1600]

Bonsoir le fil, le forum

Une piste

Sub a()
Dim Resultat
Dim ws As Worksheet
For Each ws In Worksheets
Resultat = Resultat & ws.[E5].Parent.Name & " est vide :" & IsEmpty(ws.[E5]) & vbCrLf
Next
MsgBox Resultat
End Sub

Sinon une simple formule peut faire l'affaire aussi
=SOMME(Feuil1:Feuil10!E5)

 

[Jacky67]

Bonsoir
j'ai un fichier avec 10 onglets et je voudrais avoir le total si la cellule E5 est renseignée sur les 10 pages

Merci pour votre aide

Bonsoir;
essaye avec
=SOMME(Feuil1:Feuil10!E5)

 

[Staple1600]

Bonsoir Jacky67

C'est pile poil que je viens d'écrire dans le message #2

 

[Jacky67]

Bonsoir Jacky67

C'est pile poil que je viens d'écrire dans le message #2

Bonsoir JM
Désolé, je n'avais pas rafraichi.
Sinon pour tester s'il y a bien 10 valeurs
=SI(NB(Feuil1:Feuil10!E5)=10;SOMME(Feuil1:Feuil10!E5);"Incomplet")

 

[julescesar75]

Merci les gars, mais cela ne fonctionne pas
Mes onglets se nomment : Fiche, Fiche2, Fiche3 etc...

Dans chaque fiche je mets un nom dans la cellule E5 par exemple Fiche = toto
Fiche2 non renseignée, Fiche3 = Titi
Donc cela me ferait un total de 2 (2 fiches renseignées sur 3)

 

[Jacky67]

Merci les gars, mais cela ne fonctionne pas

Re..
Alors, je pense que le problème vient d'ailleurs
Poste un classeur sans donnée confidentielle

 

[Jacky67]

Merci les gars, mais cela ne fonctionne pas
Mes onglets se nomment : Fiche, Fiche2, Fiche3 etc...

Dans chaque fiche je mets un nom dans la cellule E5 par exemple Fiche = toto
Fiche2 non renseignée, Fiche3 = Titi
Donc cela me ferait un total de 2 (2 fiches renseignées sur 3)

Re..
Essaye avec
=NBVAL(Fiche:Fiche3!E5)

 

[julescesar75]

Super !!!
Merci Jacky