Mentions des candidats selon cellule variable

Bonjour à tous;

A fin de faciliter l’utilisation besoin de créer une macro qui affichera les mentions des candidats selon cellule variable

Veuillez voir la pièce ci-jointe pour plus de renseignements.

Merci beaucoup de votre réponse

Cordialement;

Bonjour Zinelamri, bonjour le forum,

Essaie ce code affecté au bouton :

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)

Set O = Worksheets("Feuil1") 'définit l'onglet O
TV = O.Range("A4").CurrentRegion 'définit le tableau des valeurs TV
For I = 2 To UBound(TV, 1) 'boucle sur toutes les ligne I du tableau des valeuirs TV (en partant de la seconde)
    Select Case TV(I, 3) 'agit en fonction de la note ligne I colonne 3 de TV
        Case Is >= 16 'cas supérieure ou égale à 16
            O.Cells(I + 3, 4) = "Bien" 'mention
        Case Is >= 11 'cas supérieure ou égale à 11
            O.Cells(I + 3, 4) = "Assez Bien" 'mention
        Case Is >= 7 'cas supérieure ou égale à 7
            O.Cells(I + 3, 4) = "Passable" 'mention
        Case Is < 7 'cas inférieure à 7
            O.Cells(I + 3, 4) = "Médiocre" 'mention
    End Select 'fin de l'action en fonction de la note
Next I 'prochaine ligne de la boucle
End Sub

Bonjour à tous

Une simple inversion des mentions et une formule suffisent

bonjour

sans ne rien changer

cordialement

BonsoirThauTheme, 78chris, tulipe_4,

Bonjour le forum,

Merci pour toutes ces réponses, En effet, il existe de Plusieurs solutions.

Merci beaucoup de votre réponse

Cordialement,