reafficher dans la même Combobox l'élément précédement selectionné

[freefer]

Bonjour,

En fait, il s'agit de rentrer les notes d'élèves par un Userfrom, le nom du test est selectionné par la 1ère combobox, le nom de l'élève par la seconde combobox, et je rentre la note puis => élève suivant, avec le même UserForm, conserver dans la 1ere Combo le même nom de test, mais changer celui de l'élève (le suivant) et entrer sa note. Pour entrer la première note, je sais faire, pas de PB (ci-dessous), mais je n'arrive pas à aller à l'élève suivant en conservant le même nom de test.

N_Test = Combox1_Test.Value
N_Eleve = Combox2_Eleve.Value
N_Note = TextBox1.Value
Set cell_col = ActiveSheet.Range("e3:h3").Find(N_Test)
Set cell_ligne = ActiveSheet.Range("d4:d19").Find(N_Eleve)
ActiveSheet.Cells(cell_ligne.Row, cell_col.Column) = N_Note
Jusque là ça roule ...

Merci d'avance de votre aide.

Cordialement,

Freefer

 

[Guest]

Re : reafficher dans la même Combobox l'élément précédement selectionné

Bonjour Freefer,

L'élève suivant:
' Si l'élève sélectionné n'est pas le dernier de la liste
if Combox2_Eleve.listIndex< Combox2_Eleve.listcount-1 then
N_EleveSuivant = Combox2_Eleve.list(Combox2_Eleve.listindex+1).value
end if

A bientôt

 

[freefer]

Re : reafficher dans la même Combobox l'élément précédement selectionné

Merci Hasco pour ta réponse, mais je me suis mal exprimé, je voudrais choisir n'importe quel élève dans la liste et non pas forcément le suivant.

Cordialement,

Freefer