Bonjour,

Dans excel si je veux appliquer la macro ci dessous aux cellules A1:A12 cela me génère une erreur par contre si je mets note = range(A1") aucun problème comment faut il écrire la sélection de cellule pour que cela fonctionne sur la plage citée plus haut si je mets range ("cellA2:cellA12") cele ne fonctionne pas non plus.
merci
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
 Sub evaluation()
 
 
Dim Note As Integer
 
Dim Mention As String
Note = Range("A2:A12") '----->>>>>> c'est là qu'il y a problème
If Note = 0 Then Mention = "Nul"
If Note >= 1 And Note < 6 Then Mention = "Moyen"
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("B2:B12") = Mention
End Sub