Bonjour à tous,

gentils newbe que je suis sur VBA, je dois faire un projet de gestion des notes d'une promotion sous VBA excel.

Toutes les informations sont stockées sur une page excel. C'est un joli tableau avec en colonnes : nom du devoir, matière, coeffcient, elève1, élève2,elèveN, etc.

J'ai crée un userform servant à modifier les données déjà enregistrées.
Il fonctionne avec 2 combobox : l'une permet de sélectionner la matière et l'autre le devoir. En appuyant sur un bouton, je veux pouvoir afficher des valeurs (note de l'élève X) par exemple présentes sur la ligne ou se trouve ces deux informations. Ca donne ca

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
16
17
18
19
20
21
22
23
Private Sub CommandButton2_Click() 'sélection du devoir
 
    i = variable.Value
    k = Ligne.Value
 
    Do Until Sheets("Liste").Cells(k, 1).Value = ""
 
        If ComboBox1.Value = Sheets("Liste").Cells(k, 1).Value And ComboBox2.Value = Sheets("Liste").Cells(k, 2).Value Then
            NOM.Visible = True
            Prénom.Visible = True
            TextBox1.Visible = True
            CommandButton3.Visible = True
            NOM.Caption = Sheets("Liste").Cells(2, i).Value
            Prénom.Caption = Sheets("Liste").Cells(1, i).Value
 
            Else: k = k + 1
            Ligne.Value = k
 
        End If
 
    Loop
 
End Sub
Toutes les lignes marches sauf celle ci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
        If ComboBox1.Value = Sheets("Liste").Cells(k, 1).Value And ComboBox2.Value = Sheets("Liste").Cells(k, 2).Value Then
Help, je dois le rendre dans quelques jours.