Code VBA

Bonjour,

Je viens de débuter en VBA et je sollicite votre aide et contribution pour pouvoir migrer vers VBA.

J'ai les notes d'une classe et je veux mentionner devant le résultat de chaque élève la mention (réussi ou ajourné).

J'ai déjà commence par insérer un code mais il présente une erreur et je souhaite que vous me la corrigiez.

Merci d'avance.

Bonjour

Essaie plutôt ceci :

Sub commentaire_résultat()
Dim note As Integer, i As Integer
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
    With Range("B" & i)
           If .Value > 10 Then
               Range("C" & i).Value = "Réussi"
           Else
               Range("C" & i).Value = "Ajourné"

           End If
       End With
   Next
End Sub

Si ok, lors de ta réponse veille à cliquer sur le V vert à coté du bouton EDITER pour clôturer le fil

Cordialement

Merci infiniment

Pour pouvoir bien comprendre, merci une fois encore de me donner une explication du code.

Re,

Le code avec les explications

Sub commentaire_résultat()
'declaration de la variable i
Dim i As Integer
'on fait une boucle qui va de la ligne 2 à la dernière ligne de la feuille
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
'on boucle sur chaque ligne i  de la colonne B
    With Range("B" & i)
        'on vérifie que la valeur B et ligne i est supérieure à 10
           If .Value > 10 Then
                'si oui, on met "Réussi" en colonne C de la ligne i
               Range("C" & i).Value = "Réussi"
           Else
                'si non, on met "Ajourné" en colonne C de la ligne i
               Range("C" & i).Value = "Ajourné"

           End If
       End With
'on recommence à la ligne i suivante
   Next
End Sub

J'ai supprimé la variable "nom" qui ne sert plus dans ce code

Crdlt

Je vous remercie beaucoup pour les bonnes explications et pour la disponibilite .