Bonsoir tout le monde,

Je vous expose mon problème. Je réalise un petit programme dans le cadre d'un projet ( niveau débutant ), et j'en suis à la fin.

Dans mon programme il y a deux listebox qui se remplissent manuellement et de facon proportionnelle. Si je veux rentrer une valeur dans la première listebox, je dois rentrer obligatoirement une valeur dans la seconde.

Mon problème réside dans le fait que je n'arrive pas a supprimer comme je le souhaite. Je vous explique :

- lorsque je sélectionne une valeur dans la première listebox et que je l'efface à l'aide d'un bouton que j'ai fait, alors automatiquement il efface la valeur correspondante dans la seconde. ( cette partie j'y suis arrivé ). L'inverse est possible.

Mais je n'arrive pas à faire en sorte que lorsque je selectionne une valeur dans la lb1 et la valeur correspondante dans la lb2 alors je peux effacer aussi, en revanche si je selectionne une valeur dans la lb1 et une valeur qui ne correspond pas dans la lb2 alors impossible et apparition d'un message d'erreur.

Je ne sais pas si j'ai été clair, si vous ne comprenez pas, je reste à disposition pour répondre. En tout cas je vous remercie de votre attention.

Edit
je vous mets la partie de code que j'ai pour le moment pour cette partie

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
 Private Sub effacerBoutonOK()
        Dim valeur1 As Integer
        Dim valeur2 As Integer
        Dim i As Byte
        Dim tour As Byte
        Dim nbreTours1 As Byte
        Dim nbreTours2 As Byte
 
        valeur1 = lstNotes.SelectedItem
        valeur2 = lstCoeff.SelectedItem
        nbreTours1 = lstNotes.Items.Count
        nbreTours2 = lstCoeff.Items.Count
        For tour = 1 To nbreTours1 And nbreTours2
            For i = 0 To lstNotes.Items.Count - 1 Or lstCoeff.Items.Count - 1
                If valeur1 = lstNotes.Items.Item(i) Or valeur2 = lstCoeff.Items.Item(i) Then
                    lstNotes.Items.RemoveAt(i)
                    lstCoeff.Items.RemoveAt(i)
                    Exit For
                End If
            Next i
        Next tour

Malheureusement je viens de m'apercevoir qu'il y a un gros problème. Effectivement j'ai une listebox pour mes notes, une autre pour mes coefficients, mais lorsque j'ai une note identique à mon coefficient plusieurs fois ( exemple 4 notes ayant pour valeur 3 en coeff et 3 en notes ), et bien si je veux supprimer une de ces lignes, le bouton va m'effacer les 3 autres notes et coeff car les valeurs sont identiques. Je suis complètement foutu