Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Liste déroulante dans une box

Liste déroulante dans une box

24 réponses
Avatar
Mathieu
Bonjour,

J'utilise une box de saisie contenant une liste d=E9roulante. Je souhaitera=
is que plut=F4t que d'avoir la zone de s=E9lection vide il soit affich=E9 l=
a premi=E8re ligne propos=E9e par cette liste d=E9roulante. Pourriez-vous m=
e dire comment faire ?

Avec mes remerciements anticip=E9s,
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
Jacky
Bonjour,

Pourriez-vous me dire comment faire ?




J"ai supposé un ComboBox dans un userform
'------------
Private Sub UserForm_Initialize()
ComboBox1.ListIndex = 0
End Sub
'------------
--
Salutations
JJ


"Mathieu" a écrit dans le message de news:

Bonjour,

J'utilise une box de saisie contenant une liste déroulante. Je souhaiterais que plutôt que d'avoir la zone de
sélection vide il soit affiché la première ligne proposée par cette liste déroulante. Pourriez-vous me dire
comment faire ?

Avec mes remerciements anticipés,
Avatar
Mathieu
Bonjour Jacky,

J'ai tenté mais cela ne fonctionne pas.
J'ai comme code de départ :

============
Private Sub ComboBox1_Change()

End Sub
============

j'ai remplacé par ton code mais cela ne fonctionne pas. J'ai ensuite repr is la portion centrale pour l'ajouter au centre de mon code :

============
Private Sub ComboBox1_Change()
ComboBox1.ListIndex = 0
End Sub
============

mais cela ne fonctionne pas non plus.

Merci par avance,
Avatar
Jacky
Re...
...mais cela ne fonctionne pas.


Et ceci ??
http://cjoint.com/?BIemO4Fklwi

--
Salutations
JJ


"Mathieu" a écrit dans le message de news:

Bonjour Jacky,

J'ai tenté mais cela ne fonctionne pas.
J'ai comme code de départ :

=========== Private Sub ComboBox1_Change()

End Sub
===========
j'ai remplacé par ton code mais cela ne fonctionne pas. J'ai ensuite repris la portion centrale pour l'ajouter
au centre de mon code :

=========== Private Sub ComboBox1_Change()
ComboBox1.ListIndex = 0
End Sub
===========
mais cela ne fonctionne pas non plus.

Merci par avance,
Avatar
Mathieu
Merci Jacky,

Malheureusement le serveur travail n'autorise pas l'ouverture de ton fichie r. Je regarderais cela ce soir à la maison s'il n'y a pas d'autres soluti ons.

Mathieu
Avatar
Jacky
Re..
Malheureusement le serveur travail n'autorise pas l'ouverture de ton fichier.


Ok !
- Dans l'editeur, affiche l'userform
- double clique sur une partie vierge de cet userform (pas sur un control)
- en haut à droite dans la liste tu sélectionnes "Initialize"
- dans la fenêtre tu entres ce code
'-------
Private Sub UserForm_Initialize()
ComboBox1.ListIndex = 0
End Sub
'------

Comment est renseigné le combobox ???

Salutations
JJ


"Mathieu" a écrit dans le message de news:

Merci Jacky,

Malheureusement le serveur travail n'autorise pas l'ouverture de ton fichier. Je regarderais cela ce soir à la
maison s'il n'y a pas d'autres solutions.

Mathieu
Avatar
Mathieu
Bonsoir Jacky,

En suivant la procédure que tu m'indiques j'ai une erreur :
===========
Erreur de compilation
Nom ambigu détecté : UserForm_Initialize
===========

Que faire ?
Avatar
Mathieu
Voir code dans fichier :
http://cjoint.com/?3IesKMsp6Ox
Avatar
MichD
Bonjour,

Tu as probablement 2 procédures qui ont le même nom!

Dans le menu "Édition de la fenêtre de l'éditeur de code (VBA), utilise la
commande "Rechercher" et fait une recherche en utilisant "UserForm_Initialize"
en cochant le bouton radio : "Projet en cours"

MichD
--------------------------------------------------------------
Avatar
MichD
Le problème est ici :

'--------------------------------------
Private Sub UserForm_Initialize()
ComboBox1.ListIndex = 0
End Sub

Private Sub UserForm_Initialize()
'insertion de la date sur le formulaire
TextBox5.Value = Format(Now(), "dd/mm/yyyy")
End Sub
'--------------------------------------


Tu dois combiner ces 2 procédures dans la même procédure événementielle
et effacer les remplacer tous les 2 par ceci :

'--------------------------------------
Private Sub UserForm_Initialize()
'insertion de la date sur le formulaire
TextBox5.Value = Format(Now(), "dd/mm/yyyy")
ComboBox1.ListIndex = 0
End Sub

MichD
--------------------------------------------------------------
Avatar
Mathieu
Bonsoir Jacky,

Désormais tout fonctionne. Peux-tu me dire comment faire pour que l'utili sateur soit obligé de choisir dans la liste et n'ait aucune possibilité de remplir une autre donnée que celles se trouvant dans la liste dérou lante ?
http://cjoint.com/?BIesRl95OvW

Merci ;-)
1 2 3