Discussion :

[thibautclement]

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.

[decondelite]

Ta Combobox1 elle se situe où? Ta variable "variable", elle est déclarée où et remplie où?

[thibautclement]

Mes deux combobox sont dans le meme userform.
Mes variables i et k sont définies "as Integer" tout comme il faut dans ma page dez programmation, a l'extérieur du bonton.
Elles correspondent aux valeurs de 2 textbox présentes dans mon userform. Elles ont au départ une valeure donnée qui correspond au numéro de ligne et de colonne ou commence mon test. VBA les lit et les comprend, c'est pas le probleme. Le probleme se situe au niveau des combobox, mais j'en sais pas plus.

[ucfoutu]

Bonjour,

Peux-tu, déjà, ajouter un msgbox ici :

i

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 = variable.Value
k = Ligne.Value
msgbox "--" & i & "--" & k & "---"

et nous dire ce qui s'affiche très exactement (espaces éventuels compris)

que l'on puisse y voir plus clair ?

[thibautclement]

Je clique sur mon bouton :
la msgbox apparait et affiche --5--4---

Je sors de la msgbox et reclique sur mon bouton :
la msgbox apparatit et affiche --5--7---

En gros, ma boucle fonctionne mais mon test échoue à chaque fois.
Avant de lancer le bouton, k = 4
La condition de fermeture de ma boucle (cellule vide) se réalise a la ligne k=7.
La condition de mon test, c'est que ce qu'il y a d'écrit dans les combobox corresponde à ce qu'il y a d'écrit dans deux cellules données de la ligne k.

[ucfoutu]

je ne comprends pas.... Je ne vois rien qui cloche ...
A moins que ta feuille ne porte finalement un autre nom ...??

Essaye de remplacer, pour voir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Do Until Sheets("Liste").Cells(k, 1).Value = ""

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Do while Sheets("Liste").Cells(k, 1).Value <> ""

[patbou]

Bonjour

Peux tu essayer en rajoutant des paranthèses

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If (ComboBox1.Value = Sheets("Liste").Cells(k, 1).Value) And (ComboBox2.Value = Sheets("Liste").Cells(k, 2).Value )Then

[thibautclement]

Youpi, il s'agissait juste de mettre des parenthèses la ou il faut.
Mon programme continue joyeusement de bugger, mais a un autre endroit.

Merci a tous et bon weekend