VBA Liste Déroulante Résultat en Texte

djca -  
Bidouilleu_R Messages postés 1209 Statut Membre -
Bonjour,
J'ai un formulaire dans lequel je peux modifier Nom Prénom et Règlement
Jusqu'à maintenant je faisais de la saisie simple mais je voulais pouvoir avoir une liste déroulante pour les prénoms
j'ai donc essayé de créer celle-ci
mon souci est que je ne vois pas comment reporter la réponse dans la feuille
j'ai fait une tentative de réponse dans la feuille prénom en C1 mais là j'ai une réponse en chiffre correspondant à la ligne du prénom mais pas le prénom comment faire
avec tous mes remerciements pour votre aide
A voir également:

3 réponses

Bidouilleu_R Messages postés 1209 Statut Membre 295
 
Bonjour,
As-tu fais ceci?

click en C1 (l'endroit ou tu veux mettre un prénom automatiquement)
Click sur
Données /Validation des données
choisir "Liste" ( par défaut il y a "Tout")
en dessous on écrit dans la zone source
=$L$8:$L$10 ( si ta liste de prénom se trouve en en L8 à L10... tu peux aussi niommer cette zone)
puis click ok

dis-moi s'il y a encore des chiffres
0
djca
 
Bonsoir résultat toujours un nombre
(si tu es sur une liste déroulante dans la cellule pas de problème)
mais passant par un formulaire le résultat est un nombre
cdt
0
Bidouilleu_R Messages postés 1209 Statut Membre 295
 
je n'ai pas compris ce passage....
mais passant par un formulaire le résultat est un nombre
cdt


tu veux dire que ta liste déroulante est dans un userform c'est ça
tu utilise donc listbox ou combobox dans ce cas montre ce que tu as écris...

je te donne un exemple....
ma liste de prénom se trouve G3 Gxx
tu as besoin d'un userform d'un listbox ou combobox
tu colles ce code par la zone code du userform...
tu testes .
Est-ce ce que tu veux?


Private Sub UserForm_Initialize()
Dim C As Variant   ' variable pour l'objet cellule
Dim NbLig As Integer ' compteur de ligne

NbLig = Range("g3").CurrentRegion.Rows.Count

For Each C In Range("G3:G" & NbLig + 3)    ' ici on a +3 car on commence à la ligne 3
    ComboBox1.AddItem C.Value
Next
End Sub
0