sushisensei
Messages postés1Date d'inscriptionjeudi 9 décembre 2010StatutMembreDernière intervention10 décembre 2010
-
10 déc. 2010 à 10:34
cs_subaqua
Messages postés69Date d'inscriptionjeudi 22 décembre 2005StatutMembreDernière intervention20 juin 2011
-
10 déc. 2010 à 19:29
Bonjours,
Alors voila j'ai passé pas mal de temps a essayer de faire un petit programme qu'on m'a demander mais certain point me reste vague.
Alors je souheterai calculez la valeur maximum de chaque élèves pour chaqu'une des matières. J'ai donc reussi a le faire. Mais je n'arrive pas a crée la boucle pour que ca le fasse sur chaqu'une. Voila on j'en suis pour ce petit problème.
With Sheets("feuil1")
Set myrange = .Range("B2:B" & .Range("B65536").End(xlUp).Row)
Maximum = Application.WorksheetFunction.Max(myrange)
.Cells(j, 1).Value = "Valeur Max"
.Cells(j, y).Value = Maximum
Alors j'ai essayer en faisant comme ca avec do/loop while mais rien y fait, je n'y arrive pas ( sans doute j'utilise tres mal la formule )
Merci.
cs_subaqua
Messages postés69Date d'inscriptionjeudi 22 décembre 2005StatutMembreDernière intervention20 juin 2011 10 déc. 2010 à 19:29
Tu n'es pas le 1er à demander de l'aide pour ce type de pb. Vous avez eu de la part de votre prof. un exercice à faire concernant le calcul des moyennes des notes des élèves d'une classe ?
Et vous pensez qu'on va le résoudre pour vous
Bon, allez, une aide sur l'utilisation des boucles While :
J'imagine que les notes, pour chaque élève, démarrent en colonne D et se suivent (E, F, G, H,...)
Donc il faut faire :
ligne=3 'ligne pour le 1er élève
do while cells(ligne,4).value<>""
'recherche de la dernière note sur la ligne
col=4
do while cells(ligne,col).value<>""
col=col+1
loop
'recherche de la note max
cells(ligne,2).value=Application.WorksheetFunction.Max(range(cells(ligne,4),cells(ligne,col-1)))
ligne=ligne+1
loop
Voilà, c'est pas bien dur.
Si les notes sont en colonne, alors il faut inverser....