Bonjour Thierry, bonjour le forum
Pour en revenir à mon problème, je n'ai pas encore testé ta solution Thierry, car j'ai tenté de faire un petit truc tout seul, qui ne marche pas très bien, et pourtant je ne vois pas d'erreur...
En gros l'ajout dans la listbox se fait a partir d'un bouton "Ajouter".
Donc les objets du formulaire sont:
- Une combobox
- Une listbox
- Un bouton d'ajout "Valider"
On sélectionne une valeur de la combobox, on valide en cliquant sur "Valider", et la valeur va se mettre dans la listbox uniquement si cette valeur n'y est pas déja présente.
J'ai donc écrit une fonction qui renvoie un booléen pour savoir si oui ou non la valeur est présente. La voici:
Private Function verif() As Boolean
Dim I As Integer
I = ListBox1.ListCount
While (I > -1) And (Not verif)
ListBox1.ListIndex = I - 1
MsgBox ListBox1.List(I - 1) -->Affichage juste pour voir
MsgBox ComboBox1.Value --> Affichage juste pour voir
If ListBox1.List(I - 1) = ComboBox1.Value Then
verif = True
End If
I = I - 1
Wend
End Function
Et ce qui se trouve derriere le bouton:
Private Sub CommandButtonAdd_Click()
If ComboBox1.Value <> "" And passage <> 1 Then
If Not verif Then --> Si l'élément n'est pas déja présent
ListBox1.AddItem (ComboBox1.Value)
Else
MsgBox " élément déja présent dans la liste"
End If
Else
If passage = 1 Then --> Le premier passage je vérifie pas l'unicité
ListBox1.AddItem (ComboBox1.Value)
Else
MsgBox " Aucune Valeur de la combobox n'a été sélectionnée, veuillez en sélectionner une"
End If
End If
passage = passage + 1 --> passage est initialisée à 1 à l'ouverture du formulaire
End sub
Alors ça marche au premier passage d'une valeur, ça marche au second passage si je donne une valeur identique à la premiere( il ne me rajoute donc pas la valeur dans la liste ), mais au deuxieme passage si je donne une valeur autre que la premiere valeur passée, la programme plante et le déboggeur pointe sur :
MsgBox ListBox1.List(I - 1) -->Affichage juste pour voir
ou sur:
If ListBox1.List(I - 1) = ComboBox1.Value Then
si j'enleve la msgbox.
Le message d'erreur est le suivant: Impossible de lire la propriété List. Index de table de propriétés non valide.
Et je ne comprends vraiment pas ce qui se passe car la message box s'affiche correctement avec la bonne valeur, et pourtant ça semble pas plaire à l'execution...
Pleaze help!
Merci d'avance du temps passé à lire mon probleme et a tenter de le résoudre.