Soyez le premier à donner votre avis sur cette source.
Vue 5 220 fois - Téléchargée 306 fois
Option Explicit ' la variable vEntrée est déclarée dans la section Déclaration, pour qu'elle ' soit disponible pour toutes les procédures du module de la feuille. Elle ' positionnée dans la procédure événementielle LostFocus de la zone de texte ' à la valeur correspondante de la propriété Text Dim vEntrée Private Sub cbostyle0_lostfocus() vEntrée = cbostyle0.Text End Sub Private Sub cbostyle1_LostFocus() vEntrée = cbostyle1.Text End Sub Private Sub cbostyle2_lostfocus() vEntrée = cbostyle2.Text End Sub Private Sub cmdajouter_Click() If Trim(vEntrée) <> "" Then lstresultat.AddItem vEntrée vEntrée = "" lblaffichage.Caption = lstresultat.ListCount Else Beep End If End Sub Private Sub cmdeffacer_Click() 'supprimer l'entrée, verrouiller le bouton 'supprimer",afficher le nombre lstresultat.Clear cmdsupprimer.Enabled = False lblaffichage.Caption = lstresultat.ListCount End Sub Private Sub cmdquitter_Click() End End Sub Private Sub cmdsupprimer_Click() Dim vValeurIndex vValeurIndex = lstresultat.ListIndex 'si un élément est sélectionnné, le supprimer 'et afficher le nombre If vValeurIndex > -1 Then lstresultat.RemoveItem vValeurIndex lblaffichage.Caption = lstresultat.ListCount Else Beep End If 'verrouiller le bouton si la liste est vide If lstresultat.ListCount = 0 Then cmdsupprimer.Enabled = False End If End Sub Private Sub Form_Load() cbostyle0.AddItem "Article 1" cbostyle1.AddItem "Article 2" cbostyle2.AddItem "Article 3" cbostyle0.AddItem "Article 4" cbostyle1.AddItem "Article 5" cbostyle2.AddItem "Article 6" cbostyle0.AddItem "Article 7" cbostyle1.AddItem "Article 8" cbostyle2.AddItem "Article 9" cbostyle0.AddItem "Article 10" cbostyle1.AddItem "Article 11" cbostyle2.AddItem "Article 12" cbostyle0.AddItem "Article 13" cbostyle1.AddItem "Article 14" cbostyle2.AddItem "Article 15" cbostyle0.AddItem "Article 16" cbostyle1.AddItem "Article 17" cbostyle2.AddItem "Article 18" cbostyle0.AddItem "Article 19" cbostyle1.AddItem "Article 20" cbostyle2.AddItem "Article 21" vEntrée = "" End Sub Private Sub lstresultat_GotFocus() 'Déverrouiller le bouton "supprimer", 'si la liste n'est pas dite If lstresultat.ListCount > 0 Then cmdsupprimer.Enabled = True End If End Sub Private Sub lstresultat_DblClick() cmdsupprimer.Value = True End Sub
j'ai pas trouvé de bug lors des tests...
$hîv@n
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.