Discussion :

[avyrex]

Je voudrais savoir comment faire pour ajouter la valeur du textbox1 dans la liste du combo1. Par contre, si le nom existe déjà, il me dira qu'il existe dans la liste.

Merci pour votre aide.

Du même temps, une fois créer un .exe, est0ce que ça va fonctionner aussi cette addition de la liste du combo1?

[Delbeke]

Tu crées une petite fonction pour vérfier si le texte est déjà dans la liste du combo avant d'ajouter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Function IsInList(sText As sring, Cbo As ComboBox) As Boolean
  Dim iPnt As Integer
  For iPnt = 0 To Cbo.ListCount - 1
    If Cbo.List(iPnt) = sText Then
      IsInList = True
      Exit Sub
    End If
  Next
End Function

Cà s'utilise comme çà

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If IsInListe("Nancy Davolio",Combo1) Then
    Combo1.AddItem "Nancy Davolio"
    Combo1.ItemData(Combo1.NewIndex) = 12345
End If

[avyrex]

Merci pour ton aide.

Je me retrouve avec un erreur:

Compile error:
User-defined type not defined.

Ça veut dire quoi ça?

[ProgElecT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Function IsInList(sText As String, Cbo As ComboBox) As Boolean

Une petite erreur de frappe (pas trop fort ) sur le As String, Salut Delbeke

[avyrex]

Super, merci