Select case avec boucle

Bonjour tout le monde

j'aimerais avoir un coup de main et un conseil en meme temps

j'essaye de coupler la fonction select case avec une boucle mais je n'y arrive pas voila ce que je fais

Sub N()

i = 1

fin = Cel.End(xlDown).Row - 1

For i = 1 To fin

Dim Note As Integer

Dim Mention As String

Note = Range("A1")

If Note = 0 Then Mention = "Nul"

If Note >= 1 And Note < 6 Then Mention = "mauvais"

If Note >= 6 And Note < 11 Then Mention = "Passable"

If Note >= 11 And Note < 16 Then Mention = "Bien"

If Note >= 16 And Note < 20 Then Mention = "Très Bien"

If Note = 20 Then Mention = "Excellent"

Range("B1") = Mention

i = i + 1

Next

End Sub

dans la colonne a j'ai plusieurs note qui vont jusqu'en a100 et je n'arrive pas a boucler,je pense que le select case et la solution mais si cla fonctionne avec le while ou autre je suis preneur

En tout cas merci de m'aider à debuter

Bonjour,

C'est a dire, tu as une colonne avec les notes, et dans la colonne a cotés tu veux mettre "l'appreciation" ?

Bonne journée,

Fab.

Bonjour steph 57 le forum

bon alors je ne vois pas la notion de select là dedans mais bon modifie comme cela

a+

papou

Sub N()
dim mention$,note&
fin = cells(rows.count,1).end(xlup).row
For i = 1 To fin
Note = Range("A" & i)
If Note = 0 Then Mention = "Nul"
If Note >= 1 And Note < 6 Then Mention = "Mauvais"
If Note >= 6 And Note < 11 Then Mention = "Passable"
If Note >= 11 And Note < 16 Then Mention = "Bien"
If Note >= 16 And Note < 20 Then Mention = "Très Bien"
If Note = 20 Then Mention = "Excellent"
Range("B" & i) = Mention:mention=""
Next i
End Sub

paritec a écrit :

Bonjour steph 57 le forum

bon alors je ne vois pas la notion de select là dedans mais bon modifie comme cela

a+

papou

Sub N()
dim mention$,note&
fin = cells(rows.count,1).end(xlup).row
For i = 1 To fin
Note = Range("A" & i)
If Note = 0 Then Mention = "Nul"
If Note >= 1 And Note < 6 Then Mention = "Mauvais"
If Note >= 6 And Note < 11 Then Mention = "Passable"
If Note >= 11 And Note < 16 Then Mention = "Bien"
If Note >= 16 And Note < 20 Then Mention = "Très Bien"
If Note = 20 Then Mention = "Excellent"
Range("B" & i) = Mention
Next i
End Sub

Attention! Notre ami steph 57 a oublié les End if...

Bonjour

Bonjour Paritec

Bonjour Fabdu57100

Une solution avec des Select .. Case

Sub N()
Dim I As Long
Dim Note As Double
Dim Mention As String
Dim Fin As Long

  Fin = Range("A1").End(xlDown).Row - 1
  For I = 1 To Fin
    Note = Range("A" & I)
    Select Case Note
      Case 0
        Mention = "Nul"
      Case Is < 6
        Mention = "mauvais"
      Case Is < 11
        Mention = "Passable"
      Case Is < 16
        Mention = "Bien"
      Case Is < 20
        Mention = "Très Bien"
      Case Else
        Mention = "Excellent"
    End Select
    Range("B" & I) = Mention
  Next I
End Sub

Bonjour Banzaï Fabdu57100 le forum

Fabdu57100 je pense que tu ne sais pas que le end, if n'est pas nécessaire si tu as le résultat sur la même ligne!!

a+

Papou

Ah, je viens d'en apprendre une bonne alors

Bon a savoir ca

Et bien un grand merci à vous tous pour ces réponses ,j'ai encore beaucoup de progrés à faire,et grace à vous j'avance,merci pour votre disponibilité