XL 2010 Problème ou alternative à SOMPRODUCT en VBA

[aurelio.ewane]

Bonjour chers Excellistes, je possède une base de données qui et je voudrais en dati faire la moyenne

jai dans ma plage plusieurs colonne:

Colonne H Colonnes des eleves

Colonne R Colonnes des Classes ( ici on peut avoir plusieurs classes

Colonne T Colonne des Séquences

Colonne V Colonne des Coefficients

Colonne Y colonne des Notes


Je voudrais avoir dans le combobox 1 la liste des classes

Je voudrais avoir dans le combobox 2 la liste des Sequences

Je voudrais donc avoir dans le Listbox 1 la liste des eleves correspondant à la classe choisis
Colonne0 à colonne 9
évidement les colonnes 2 à 9 seront masquées par le columwidths

les colonnes 10 11 et 12 seront pour la moyenne de la séquence 1, son rang et l'appreciations

Pareil pour les colonnes
12-13-14 pour la Séquence 2

15-16-17 pour la séquence 3

17-18-19 pour la séquence 4

20-21-22 pour la séquence 5

23-24-25 pour la séquence 6

pour la moyenne, le calcul est simple
c'est la somme de toutes les notes de cet élevé multiplié par son coef divisé par le total des coefficients ou il ya eu une note
(entendu qu'une note peut etre de 0 à 20)

Exemple:
Si l'a eu
Note1 15 coefficient 2
Note2 10 Coefficient 3
Note3 M Coefficient 2 (C'est à dire absent)
Note4 6 Coefficient 1 (C'est à dire absent)

Sa Moyenne sera donc 15*2+10*3+6*1=30+30+6=66
total des coefficients sera 2+3+1=6
Sa moyenne sera donc pour cette séquence 66 divisé par 6 qui lui fera 11 de moyenne
pour le rang il est calculé comme nous le savons en utilisant la fonction rang

Jai essayer avec des formules sommeprod qui marche bien qui est très lente mais je nais pas comment l'implémenter en VBA EXCEL

Prière de m'aider en programmant la macro qui se chargera des calculer les moyennes rangs et appréciations suivant l'explication donné plus haut

pour les appréciations jai élaborer une fonction
AppreciationMoyenne qui tiens compte d'une plage AH51: AK
vous pourrez si vous jugez nécessaire la reprogrammer pour quelle soit plus rapide



je joins un fichier

Cordialement







Le Listbox

 

[gbinforme]

Bonjour,

Je pense que tu t'es trompé de classeur car il ne correspond pas à la descrption

 

[aurelio.ewane]

Bonjour,

Je pense que tu t'es trompé de classeur car il ne correspond pas à la descrption

désolé voila le vrai fichier avec les userform

 

[Oneida]

Bonjour,

Y a pas de AppreciationMoyenne !

 

[bsalv]

c'est encore en excel2010 ?

 

[bsalv]

un essai

 

[aurelio.ewane]

c'est encore en excel2010 ?

Bonjour,

Y a pas de AppreciationMoyenne !

voici

 

[Oneida]

Bonjour,

Y a toujours pas de code AppreciationMoyenne !

 

[bsalv]

un essai

 

[gbinforme]

Bonjour,

Je ne comprends pas ta séquence 2 dans ta listbox alors que tu choisis la séquence dans le combox2

Pourquoi inhiber 9 colonnes ?
Regardes si cela correspond à ton souhait.

 

[aurelio.ewane]

un essai

En fait lors de la selection de la combobox des classe ca doit charger les eleves correspondant à catte classe dans le listbox
Colonne0 à Colonne

Bonjour,

Je ne comprends pas ta séquence 2 dans ta listbox alors que tu choisis la séquence dans le combox2

Pourquoi inhiber 9 colonnes ?
Regardes si cela correspond à ton souhait.

C'est propre comme l'eau de roche
Merci beaucoup
je vais adapter
trop fort le code et tres rapide

 

[gbinforme]

Bonjour,
j'espère que tu as pris la dernière version du classeur qui est plus correcte.
bonne utilisation

 

[bsalv]

l'idée de gbinform, légèrement adapaté

 

[aurelio.ewane]

Bonjour,
j'espère que tu as pris la dernière version du classeur qui est plus correcte.
bonne utilisation

2010 et 2016 me vont bien

 

[bruno lemaire]

Bonjour,

Dans tous les cas, pour connaître le nom d'une fonction Excel en VBA, Ex : =SOMMEPROD(Matr1;matr2;etc)
1/ saisie ta formule dans la cellule, valide pour vérifier sa validité.
2/ Clique sur le bouton nouvelle macro
3/ Edite ta formule avec <F2> revalide et arrete l'enregistrement.
4/ Va ds la fenêtre vba et ouvre le module créé.

Tu devrais trouver un code genre :
Sub Macro1()
'
' Macro1 Macro

ActiveCell.FormulaR1C1 = "=SUMPRODUCT(RC[2]:R[5]C[2],Matr2,etc)"
End Sub

Tu adaptes à tes références de plages à utiliser

Cdt. Bruno