Menus déroulants sous VBA excel

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:

---

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:

---

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.

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

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.

Bonjour,

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

i

Code:

---

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 ?

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.

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:

---

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

---

par

Code:

---

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

---

Bonjour

Peux tu essayer en rajoutant des paranthèses

Code:

---

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

---

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