Discussion :

[Kiera]

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

[Thautheme]

Bonjour Keira, bonjour le forum,

Ta macro semble tout à fait correcte ! Mais si tu veux utiliser une boucle For... Each on pourrait l'écrire comme ça :

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()
Dim DL As Integer
Dim PL As Range
Dim CEL As Range
Dim Note as Byte
Dim app As String
 
DL = Cells(Application.Rows.Count, 1).End(xlUp).Row - 1
Set PL = Range("A2:A" & DL)
For Each CEL In PL
    Note = CEL.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": app = ""
    End Select
    CEL.Offset(0, 1).Value = app
Next CEL
End Sub

[Kiera]

Bonsoir,

Merci pour votre aide.

Cordialement