Probleme boucle.

Signaler
Messages postés
1
Date d'inscription
jeudi 9 décembre 2010
Statut
Membre
Dernière intervention
10 décembre 2010
-
Messages postés
69
Date d'inscription
jeudi 22 décembre 2005
Statut
Membre
Dernière intervention
20 juin 2011
-
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.

2 réponses

Messages postés
75
Date d'inscription
mercredi 17 août 2011
Statut
Membre
Dernière intervention
27 septembre 2011
2
Bonsoir,

Avec les données de la feuil1 on peut d'aider mais sans ça va être difficile.

Merci

Didier
Messages postés
69
Date d'inscription
jeudi 22 décembre 2005
Statut
Membre
Dernière intervention
20 juin 2011

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....

Bon devoir.