Discussion :

[kouame berenger aymar]

comment ajouter un nom ou supprimer un nom a une liste deroulente par programmation

[leroissejp]

Bonjour,

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
24
25
26
27
28
29
30
 
Private Sub cmdAjout_Click()
If cmdsupp.Enabled = False Then
    cmdSupp.Enabled = True
End If
Combo1.AddItem "Bonjour"
Combo1.AddItem "Bonsoir"
Combo1.AddItem "Au revoir"
Combo1.ListIndex = 0
End Sub
 
Private Sub cmdSupp_Click()
Dim Ind As Integer
 
   Ind = Combo1.ListIndex   ' Affiche l'index.
   ' Vérifie qu'un élément de la liste est sélectionné.
   If Ind >= 0 Then
      ' Supprime l'élément de la zone de liste.
      Combo1.RemoveItem Ind
      ' Affiche le nombre de clients.
      MsgBox "Il reste " & Combo1.ListCount & " éléments dans la liste", vbInformation, "Suppression"
 
   Else
      Beep
   End If
   'Désactive le bouton si la liste ne contient plus déléments.
   If Combo1.ListCount = 0 Then
    cmdSupp.Enabled = False
    End If
End Sub

jpleroisse