VBA Liste Déroulante Résultat en Texte

djca -  
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
    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
    1. 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
      1. Bidouilleu_R
        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