Bonjour je souhaite effectuer une boucle conditionnelle de la forme For each ...next , à partir de la macro que j'ai écrite ci-dessous.
Après plusieurs tentatives, ça ne fonctionne pas comme je le souhaiterai...
Quelqu'un pourrait il m'aider s'il vous plaît?
Merci beaucoup
Cordialement
voici la macro en question :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30 Sub macro21() ' dereleve = Range("A1").End(xlDown).Row - 1 ' calcul du nombre de lignes exactes pour le nombre d'élèves sans la 1ère ligne For i = 1 To dereleve Note = Range("A1").Offset(i, 1).Value Select Case Note Case 0 app = "NUL!" Case 1 To 6 app = "Très insuffisant" Case 7 To 10 app = "insuffisant" Case 11 To 15 app = "satisfaisant" Case 16 To 19 app = "bien" Case 20 app = "excellent" Case Else MsgBox "La note n'est plus valide" End Select Range("A1").Offset(i, 2).Value = app Next i End Sub
Partager