Aujourd'hui, je rédige en Visual Basic 6.0 le module de mis à jour de ma base de données, correctement exportée depuis Excel. (ceci afin de tenir au courant ceux qui s'étaient intéressés à mon précédent problème).

Bref, je veux ajouter des traducteurs, et pour mettre les langues à disposition, j'utilise 5 ComboBox. Mon problème est de retirer de chacune des ComboBox la sélection des autres. Et ceci à tout instant.

Si, par exemple, dans la première liste, je choisis 'Albanais', je veux que Albanais soit retiré de toutes les autres listes. Mais si je veux choisir 'Anglais' dans cette première liste en lieu et place de 'Albanais', il faut que 'albanais' réapparaisse dans les autres ComboBox.

Pour faire ceci, j'avais pensé à reremplir chacune des ComboBox à chaque modification de l'une d'entre elles, et de supprimer tous les items en cours dans les ComboBox, en veillant a ne pas supprimer dans la Combo qui viens d'être modifiée, la valeur.

Donc, pour faire ca, j'ai deux procédures : (une avec un s l'autre sans)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub MAJCombos()
    MAJCombo (Co_langue1)
    MAJCombo (Co_langue2)
    MAJCombo (Co_langue3)
    MAJCombo (Co_langue4)
    MAJCombo (Co_langue5)
End Sub
Celle-ci est appelée juste après le Reremplissage de toutes les Combos avec toutes les valeurs.

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
Sub MAJCombo(ByVal Combo As ComboBox)
 
    If Combo.Name <> Co_langue1.Name Then
        Co_langue1.RemoveItem (Combo.ListIndex)
    End If
 
    If Combo.Name <> Co_langue2.Name Then
        Co_langue2.RemoveItem (Combo.ListIndex)
    End If
 
    If Combo.Name <> Co_langue3.Name Then
        Co_langue3.RemoveItem (Combo.ListIndex)
    End If
 
    If Combo.Name <> Co_langue4.Name Then
        Co_langue4.RemoveItem (Combo.ListIndex)
    End If
 
    If Combo.Name <> Co_langue5.Name Then
        Co_langue5.RemoveItem (Combo.ListIndex)
    End If
 
End Sub
Celle-ci est appellée par la précédente.

Je sais que mon code est très moche et absolument pas flexible, mais ca, pour le moment, c'est pas vraiment un problème.

Mon problème survient dans cetteligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
    MAJCombo (Co_langue1)
L'erreur étant :
Compile Error : Type Mismatch
Merci par avance pour votre aide.

Ahmed

PS : Si vous trouvez ma question absolument débile parce que déjà renseignée, je vous serais reconnaissant de bien vouloir m'indiquer où. J'ai eu beau chercher, je n'ai pas trouvé