Moyenne des 2 meileures notes avec Coefficient sous VBA

[carlos]

Bonjour le forum

Voici un fichier joint avec propositions qui ne marchent pas , Pourquoi ?


Essai sous average , sumProduct ...

Merci Carlos

 

[jp14]

Re : Moyenne des 2 meileures notes avec Coefficient sous VBA

Bonjour

IL faudrait revoir les fonctions dans les cellules.
=LesDeuxPlusGrandes(B5 : D5) colonne E
=LesDeuxPlusGrandes(B6 : D6;$B$4:$D$4) colonne F

Il y a un problème de nom.

JP

 

[carlos]

Re : Moyenne des 2 meilleures notes avec Coefficient sous VBA

Bonsoir JP14

Effectivement il y avait une erreur de nom et de présentation , j'ai corrigé mais ca ne marche toujours pas .

Comment faire pour que , au 2 plus grandes notes soient attribuées leurs coefficients respectifs ?

Merci

 

[jp14]

Re : Moyenne des 2 meileures notes avec Coefficient sous VBA

Bonsoir

Ci joint le fichier avec une fonction
A tester

JP

 

[pierrejean]

Re : Moyenne des 2 meileures notes avec Coefficient sous VBA

bonsoir carlos

Salut jp14 🙂

Ma version (elle etait faite !!!)

 

[carlos]

Re : Moyenne des 2 meileures notes avec Coefficient sous VBA

Bonsoir PierreJean,Re JP14

Je suis impréssionné par votre réactivité et votre capacité à créer du code.
Bravo

J'ai fait une petite synthese des 2 propositions.

Celle de PierreJean, si je ne me suis pas trompé semble etre plus simple et opérationnelle.

Merci à tous les deux , je vais tenté de déchiffrer vos lignes.

Carlos

 

[carlos]

Re : Moyenne des 2 meileures notes avec Coefficient sous VBA

Re

c'est quoi CDbl ?

merci

 

[carlos]

Re : Moyenne des 2 meileures notes avec Coefficient sous VBA

Bonsoir PierreJean,Re JP14


j'ai personnalisé la proposition de Pierrejean à mon projet mais je ne comprends pas pourquoi si je change un coef , il faut obligatoirement que je double clic sur sa formule pour que la mise à jour se fasse ??

Bizarre ....

Carlos

 

[pierrejean]

Re : Moyenne des 2 meileures notes avec Coefficient sous VBA

bonjour carlos

Une petite modif pour faire evoluer les moyennes au changement de coefficient:

Application.Volatile

en debut de fonction

Quant a Cdbl c'est la conversion en variable de type Double

pour le reste, je vois que tu as compris le fonctionnement

 

[carlos]

Re : Moyenne des 2 meileures notes avec Coefficient sous VBA

Bonjour Pierrejean , bonjour le forum


Merci pour tes explications et ton code qui marche à merveille .

Je reste sur ce fil pour aller plus loin dans mon projet.Est il possible de colorier les notes retenues (cellules retenues) ?

Pourquoi cel.Interior.ColorIndex = 46 ne marche pas ?

For Each cel In plage ' rejeter la cellule qui contient la plus petite valeur
If cel.Address <> ad Then
tot = tot + cel.Value * Cells(Lincoef, cel.Column)
totcoef = totcoef + Cells(Lincoef, cel.Column)
cel.Interior.ColorIndex = 46
End If
Next cel

Merci

 

[pierrejean]

Re : Moyenne des 2 meileures notes avec Coefficient sous VBA

Re

Selon toute vraisemblance une fonction renvoie une valeur mais n'est pas destinée a engendrer des modifications (ceci ne fait que resulter de mon experience ; il serait bon que ce point soit confirmé)
pour identifier les valeurs utilisées j'ai créé des MFC mais comme les formules ne sont pas mon fort elles ne traitent pas les cas particuliers
Si tu le souhaites je peux t'aiguiller vers un des tenors en la matière

 

[carlos]

Re : Moyenne des 2 meileures notes avec Coefficient sous VBA

Re Pierrejean, le forum

Les MFC peuvent effectivement résoudre en partie mon problème.

Sauf que mon projet concerne aussi des formules pour supprimer la plus mauvaise note et 2 autres choix au travers d'onn combo.

Je vais chercher à transformer les formules de mon premier fichier ( joint) qui ne prenait pas en compte les coefficients, en macro évènementielle qui se declencherons selon le choix du combo.

Merci beaucoup.

Carlos