VBA Moyenne + filtres sur colonnes

[sakura]

Bonjour, je ne suis pas experte en VBA mais je dois passer par ce mode car le fichier est destiné à des personnes ne maîtrisant pas du tout excel et donc à part cliquer sur un bouton pour que cela s’exécute, je n'ai pas d'autre choix...
En fait sur un fichier excel j'ai les contraintes suivante (fichier exemple joint), c'est un fichier exemple, sur le réel il peut y avoir 1000 lignes ou 20 000 lignes suivant les cas.
Etape 1 :
Calculer la moyenne (colonne E)
si résultat inférieur strictement a inférieur à 4 on affiche : aaa
si supérieur ou égal a 6 > on affiche : bbb
si entre =4 et <6 on affiche : ccc et on poursuit avec étape 2

Etape 2 :
- dans la colonne H on ne conserve que les cas avec 2, on élimine tous les autres.
- Dans la colonne N on élimine tous les cas dont le ratio est inférieur a 1
- Dans cette même colonne N on calcule la moyenne sur ce qui reste
si moyenne < 2 , on affiche : ddd
si moyenne >= 2 , on affiche : eee

J'espère que c'est assez clair et merci beaucoup beaucoup pour votre aide !!!
Jess

 

[pierrejean]

bonjour sakura

A tester

 

[sakura]

bonjour sakura

A tester

Bonjour Pierre Jean,
C'est super ! merci !!!
Est ce que vous pensez que c'est possible d'afficher les valeurs des moyennes ainsi que les résultats sur une autre feuille de calcul ?

Merci d'avance pour votre aide
Jess

 

[pierrejean]

Re

Comme ceci par exemple

 

[sakura]

Re

Comme ceci par exemple

Re, merci beaucoup pour votre aide !
Il y a une erreur d'execution 13 si la 1ère moyenne est en 4 et 6
'Range("O1") = "ccc"
Sheets("Feuil2").Range("B3") = "ccc"
For n = LBound(tablo, 1) To UBound(tablo, 1)
If tablo(n, 8) = 2 And tablo(n, 14) > 1 Then
tot = tot + tablo(n, 14) ==> cette ligne apparait en jaune

Merci encore pour votre aide
Jess

 

[pierrejean]

Re

il y a bien toujours des nombres dans la colonne N ????

 

[sakura]

Re

il y a bien toujours des nombres dans la colonne N ????

Re,

Ah je viens de voir que parfois il y a le champs N/A, je ne l'avais pas vu avec mon filtre

C'est possible de passer outre ?

Merci
Jess

 

[pierrejean]

Re

teste cette version

 

[sakura]

Super Génial ça marche merci beaucoup !!!