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
Configuration: Windows 7 / Safari 532.5

3 réponses

  1.
    Bidouilleu_R Messages postés 1209 Statut Membre 296
     
    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
  2. 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
  3. Bidouilleu_R Messages postés 1209 Statut Membre 296
     
    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