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 ?
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,
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" <christophe.lenoire@gmail.com> a écrit dans le message de news:
0041e740-6001-45e5-a499-e2bb60003e7f@googlegroups.com...
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 ?
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,
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,
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
============
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,
Re...
...mais cela ne fonctionne pas.
Et ceci ??
http://cjoint.com/?BIemO4Fklwi
--
Salutations
JJ
"Mathieu" <christophe.lenoire@gmail.com> a écrit dans le message de news:
27e058d2-745f-4aa6-86e3-8cbd4780eee9@googlegroups.com...
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.
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,
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
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.
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
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
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" <christophe.lenoire@gmail.com> a écrit dans le message de news:
325d79b1-8c8b-425f-b717-903399d78c6c@googlegroups.com...
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.
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
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 ?
Bonsoir Jacky,
En suivant la procédure que tu m'indiques j'ai une erreur :
===========
Erreur de compilation
Nom ambigu détecté : UserForm_Initialize
===========
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"
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"
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"
'-------------------------------------- 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
'--------------------------------------
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
'-------------------------------------- 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
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 ;-)
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
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