[VB.net 2005] Valeur par defaut Deroulante

Résolu/Fermé

afrodje Messages postés 759 Date d'inscription mardi 13 mars 2007 Statut Membre Dernière intervention 22 janvier 2014 - 22 févr. 2008 à 15:10
Chuppas - 29 juil. 2008 à 10:51

Bonjour,

J'ai une liste déroulante et j'aimerai avoir au demarrage une valeur par defaut.

Voila mon code

Public Sub liste_deroulante_mois(ByVal nom_liste As ComboBox)

        nom_liste.Items.Add("Janvier")
        nom_liste.Items.Add("Fevrier")
        nom_liste.Items.Add("Mars")
        nom_liste.Items.Add("Avril")
        nom_liste.Items.Add("Mai")
        nom_liste.Items.Add("Juin")
        nom_liste.Items.Add("Juillet")
        nom_liste.Items.Add("Aout")
        nom_liste.Items.Add("Septembre")
        nom_liste.Items.Add("Octobre")
        nom_liste.Items.Add("Novembre")
        nom_liste.Items.Add("Decembre")
    End Sub

A voir également:

[VB.net 2005] Valeur par defaut Deroulante
Liste déroulante excel - Guide
Télécharger money 2005 - Télécharger - Comptabilité & Facturation
Liste déroulante en cascade - Guide
Windows 11 afficher plus d'options par défaut - Guide
Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être

3 réponses

Réponse 1 / 3

afrodje Messages postés 759 Date d'inscription mardi 13 mars 2007 Statut Membre Dernière intervention 22 janvier 2014 168
21 mars 2008 à 10:10

je dirais meme mieux :

  Dim mois_en_cour As Date
        ComboBox_mois.Text = ComboBox_mois.Items(mois_en_cour.Month + 1)

Merci à toi.

Chuppas
29 juil. 2008 à 10:51

ComboBox1.SelectedIndex = 0 te mettra la première ligne de ton comboxbox1

Réponse 2 / 3

afrodje Messages postés 759 Date d'inscription mardi 13 mars 2007 Statut Membre Dernière intervention 22 janvier 2014 168
3 mars 2008 à 14:04

Personne sait comment faire?

Réponse 3 / 3

PaPy36 Messages postés 25 Date d'inscription dimanche 11 février 2007 Statut Membre Dernière intervention 28 avril 2013
18 mars 2008 à 17:27

Salutafrodj,
Voilà une proposition de solution: tu insères le code qui suit, soit dans ta sub d'initialisation soit dans ta sub de routine

ComboBox1.Text=ComboBox.list(MoisNum-1)

MoisNum correspond au rang du mois dans l'année; c'est un entier
Voilà ça devrait fonctionner!
à+
PaPy50

Discussions similaires

Problème de restrictions

Formule Excel : "SI" une cellule contient un mot, alors ?

Suppression listes déroulantes

La passerelle par défaut n'est pas disponible

Discussions similaires

Newsletters