[ RESOLU Par JOB75 ,Merci ]Calculer le Nb de celulles vertes et faire un classement..

[Guido]

Bonjour le Forum

Je recherche a compter le nombres de cellules verte foncées par lignes

et le nombres de cellules verte foncées par colonne.

et faire afficher un classement par citations.

Voir le petit fichier

Merci

Guido

 

[Guido]

Bonjour le Forum et job75

Je n'ai toujours pas eu une proposition pour la deuxième partie du fichier n°29 les tableaux...

qui faisait partie de mes deux demandes...

Merci a Tous

A demain

Guido

 

[job75]

Bonjour Guido,

Pour le tableau d'en haut il suffit d'adapter la méthode utilisée pour le tableau du bas.

Dans ce fichier (2) il y a maintenant les 2 fonctions VBA TriVerticalCouleur et TriHorizontalCouleur.

Et 126 tableaux de résultats dont les formules (volatiles) se recalculent en 0,26 seconde.

A+

 

[job75]

Salut Mytå,

Ce n'est pas un problème, je travaille autant pour moi que pour lui.

Guido n'est pas le seul à se moquer du monde sur ce forum, quoi qu'il en dise.

Bonne soirée.

 

[DoubleZero]

Bonjour à toutes et à tous,

Oups c'est vrai, vos compteurs de performances ....

...A mes yeux, Monsieur job75 n'a pour objectifs que de nous aider, avec patience, délicatesse et talent !

 

[job75]

Bonsoir chère ânesse,

Je travaille aussi pour moi, pas pour la performance mais parce qu'ainsi je continue à apprendre.

Mais à part cela mon objectif est en effet d'aider et de partager mes connaissances.

Bonne nuit.

 

[Guido]

Bonjour le Forum

et les personnes qui sont sur ce post.

Je tiens a donnés une précision, Le faite de devoir modifier des demandes du a un changement sur la bases de

DONNEES que l'on me ,ou ma fournies,

NE VEUT PAS DONNER L'IMPRESSION DE SE MOQUER DES PERSONNES QUI M'AIDES OU MON AIDER.

Je suis un HOMME respectueux. ,

Quand j'ai raison ,je me défend, et si j'ai TORT ,je m'excuse.

Merci encore pour Tout

Joyeux NOEL

Amitiés

Guido

Je remercie Job75 pour le dernier mis a JOURS

Amitiés

Guido

 

[job75]

Bonjour Guido, le forum,

NE VEUT PAS DONNER L'IMPRESSION DE SE MOQUER DES PERSONNES QUI M'AIDES OU MON AIDER.

Merci pour les remerciements.

Mais ne pas faire le moindre commentaire ni dire si ça convient ou pas (car les résultats ne sont pas présentés comme dans votre fichier de demande), comment vous qualifiez ça ?

Joyeux Noël à tous.

 

[Guido]

Re Job75

Les résultats finaux que Vous me proposer sont a la Hauteur des réponses désirées, MEME si le fichier final na pas la même

présentation que le fichier posté lors de ma première demande.

C'est le résultat FINALE posté par Vous qui compte.

Merci encore

Joyeux Noel

Guido

 

[job75]

Bonjour Guido, le forum,

Une solution plus sophistiquée dans ce fichier (3).

0,26 seconde précédemment pour le recalcul des 126 tableaux de résultats c'est rapide.

Mais on peut trouver que c'est trop long car ce délai s'applique à toute modification du classeur.

On peut raccourcir ce délai à 0,04 seconde en n'effectuant les calculs que pour la feuille active :

If Application.Caller.Parent.Name <> ActiveSheet.Name Then Exit Function

Avec en plus ce code dans ThisWorkbook :

Private Sub Workbook_Open()
Me.Saved = True 'évite l'invite à la fermeture si aucune modification
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Calculate 'recalcul de la feuille
End Sub

Edit : l'inconvénient de cette méthode c'est qu'il faut activer chaque feuille si l'on veut faire un récapitulatif de tous les résultats.

A+

 

[Guido]

Bonjour Job75

Merci pour la dernière proposition

je regarde et te redis demain ..

Merci Job75

 

[job75]

Bonjour Guido,

Autre inconvénient de la solution (3) : Sh.Calculate rend impossible le copier-coller entre les feuilles, il faut désactiver cette instruction.

Alors voici une solution encore plus sophistiquée dans ce fichier (4).

Le calcul itératif est activé (sur Excel 2003 menu Outils => Options).

Voyez les 2 fonctions VBA modifiées.

Et le code dans ThisWorkbook :

Private Sub Workbook_Open()
Dim F As Object, w As Worksheet
Set F = ActiveSheet
Application.ScreenUpdating = False
For Each w In Worksheets
  w.Activate
  w.Calculate 'recalcul de la feuille
Next
F.Activate
Me.Saved = True 'évite l'invite à la fermeture si aucune modification
End Sub

Si l'on modifie une couleur verte => touche F9 ou revalider une cellule quelconque pour mettre à jour les résultats.

Et si vous trouvez que c'est trop sophistiqué contentez-vous de la solution (2)...

A+

 

[job75]

Re,

Une feuille parasite du type ThisWorkbook s'était glissée dans les fichiers (3) et (4), je viens de les corriger.

A+

 

[Guido]

Re

Job75

Merci pour le fichier

Sans vouloir te demander encore plus j'aimerais savoir

si je glisse tes feuilles dans mon fichier perso.

pense tu que les MFC fonctionneras kan même...??

ou faut t'il que je t'envoi mon fichier pour adapter directement les MFC..??

A plus

Merci d'avance

Amitiés

Guido

 

[job75]

si je glisse tes feuilles dans mon fichier perso.

pense tu que les MFC fonctionneras kan même...??

Les MFC ne devraient pas poser de problème, il suffit d'essayer.

Mais il faut aussi "glisser" les codes...

A+

 

[Guido]

Re Job75

J'ai fais glisser le feuilles ,mais pour les code je ne sais pas faire...ou plutôt pas reussi cette action..

Voir le fichiers svp Job75

il ne doit pas manqué grand choses...??

Merci

Guido