Problème de boucle [Résolu]

[bilou_12]

Bonjour,

Ma précédente requête n'ayant pas beaucoup de succès, je reviens vers vous avec un nouveau titre!

Pourriez-vous me corriger le code suivant censé inscrire une note type agence de notation (fameux AAA ) dans une colonne à droite d'une autre ayant un chiffre.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Note()
'
 
Dim i As Integer
 
For i = 2 To 4001
 
 
    If Cells(K, i).Value <= 0.05 Then
    Cells(L, i).Value = AAA
 
    End If
 
Next
 
End Sub

Merci à vous! Et au boulot pour récupérer notre AAA

[Daniel.C]

Bonjour,

1. si tu n'initialises pas K et L, ces deux valeurs sont par défaut égales à "". Si K el L sont des colonnes, il faut écrire :

Code :

1
2
    If Cells(i, "K").Value <= 0.05 Then
    Cells(i, "L").Value = "AAA"

2. Quelles autres valeurs pour quelles notes ?

[gFZT82]

Bonjour,

Essaie avec

Code :

1
2
3
4
5
6
7
8
Sub Note()
Dim i As Integer
For i = 2 To 40
    If Cells(i, "K").Value <= 0.05 Then
        Cells(i, "L").Value = "AAA"
    End If
Next
End Sub

Cordialement.

[bilou_12]

Super ca marche!

Merci à tous les 2!

[bilou_12]

Pour Daniel, pour info la notation est la suivante:

0,00% AAA
0,05% AA
0,10% A
0,20% BBB
0,30% BB
0,45% C
8% D

[Daniel.C]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Note()
'
 
Dim i As Integer, Notes, NotesNum
Notes = Array("AAA", "AA", "A", "BBB", "BB", "C", "D")
NotesNum = Array(0, 0.05, 0.1, 0.2, 0.3, 0.45, 8)
 
For i = 2 To 4001
 
    Cells(i, "L").Value = Application.Index(Notes, Application.Match(Cells(i, "K").Value, NotesNum))
 
Next
 
End Sub