Re : Conditions if/then qui ne fonctionne pas
Bonjour
Comment fais-tu à la main? tu regardes toute la liste et à la fin tu t'aperçois que tu n'as pas trouvé l'élève.
Même chose en programmation
Private Sub CommandButton1_Click()
Dim i As Integer
Dim NbreEleve As Integer, NoteEleve As Integer, Eleve As String
Eleve = InputBox("Entrez le nom", "Note GMP", "jo")
Dim Cel As Range
Dim trouve As String
Set Cel = Range("A1")
NbreEleve = Cel.End(xlDown).Row - 1
trouve = 0
'balayage de la liste
For i = 1 To NbreEleve
If Cel.Offset(i) = Eleve Then
NoteEleve = Cel.Offset(i, 1)
MsgBox "La note de " & Eleve & " est " & NoteEleve
trouve = 1
exit for
End If
Next
'si pas trouvé
If trouve = 0 Then
MsgBox "Cet éléve n'existe pas"
trouve = 0
End If
End Sub