stefyc
Nouveau membre
Bonjour,
je suis débutante en vba et n'arrive pas à trouver comment faire que ma fonction s'applique non pas juste aux 30 premières lignes mais à toute une colonne (la A ici).
Voici mon code:
Function mention() As String
Dim note As Single
Dim i As Integer
For i = 1 To 30
note = Worksheets("Feuil1").Cells(i, 1).Value
Select Case note
Case Is < 10
mention = "non admis"
Case 10 To 11.9
mention = "passable"
Case 12 To 13.9
mention = "assez bien"
Case 14 To 15.9
mention = "bien"
Case Is >= 16
mention = "très bien"
End Select
Worksheets("Feuil1").Cells(i, 2) = mention
Next i
End Function
merci beaucoup de votre aide!
je suis débutante en vba et n'arrive pas à trouver comment faire que ma fonction s'applique non pas juste aux 30 premières lignes mais à toute une colonne (la A ici).
Voici mon code:
Function mention() As String
Dim note As Single
Dim i As Integer
For i = 1 To 30
note = Worksheets("Feuil1").Cells(i, 1).Value
Select Case note
Case Is < 10
mention = "non admis"
Case 10 To 11.9
mention = "passable"
Case 12 To 13.9
mention = "assez bien"
Case 14 To 15.9
mention = "bien"
Case Is >= 16
mention = "très bien"
End Select
Worksheets("Feuil1").Cells(i, 2) = mention
Next i
End Function
merci beaucoup de votre aide!