Afficher les information liées à une sélection dans un UserForm

Version imprimable

17/12/2010, 22h08
zelda12

Afficher les information liées à une sélection dans un UserForm

Bonjour,
J'essaie, depuis peu de créer une multi base de données sur exel 2007 (que j'enregistre également sous 2003) je suis bloquée à plusieurs niveaux en voici un:

j'aimerai faire en sorte que quand je saisie un nom de voie dans mon userform, les informations liées s'affichent directement dans mon formulaire de saisie:

NOM DE VOIE/ TYPE / numero / ASSISTANTE SOCIALE
acacias / rue/ isabelle
verlaine / bd / julie
bezons / bd / de 1 à 89 / florence
bezons / bd / de 90 à 160 / marianne

Je vous remercie de l'aide que vous pourrez m'apporter.
Zelda12

Salut,

C'est un peu particulier comme demande ?
Tu nous dis ce que tu souahites avoir, mais pas ce que tu souhaites en faire.

Tu as de toute façon plusieurs façon d'alimenter un liste de choix.
Soit en insérant les données directement dans le code, mais ce n'est pas la meilleure solution, si les données doivent être modifiées, il faut éditer le code.

Une autre option est de charger le contenu en utilisant une liste se trouvant dans une feuille de calcul.

Voilà un exemple qui va chercher les données de la première colonne de la première feuille d'un classeur pour les afficher dans une liste déroulante lstChoix.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub UserForm_Initialize()
Dim intL As Integer 'Récupération de l'index de la ligne
Dim tblListe() As String 'tableau pour le remplissage de la liste
Dim xlWb As Workbook
Dim xlWs As Worksheet
 
 
    'Ouverture du fichier
    Set xlWb = ActiveWorkbook
    'Utilisation de la première feuille
    Set xlWs = xlWb.Worksheets(1)
    'Boucle pour déterminer le nombre de lignes contenant des
    'données dans le fichier Excel
    intL = 1
        Do Until Len(xlWs.Range(Cells(intL, 1), Cells(intL, 1))) = 0
        intL = intL + 1
        Loop
 
    'redimensionnement du tableau en fonction du nombre de lignes
    'remplies dans le feuille de données
    ReDim tblListe(intL, 1)
    tblListe(0, 0) = "Index"
    tblListe(0, 1) = "Mois"
    'Boucle sur les cellules de la feuille Excel
    intL = 1
        Do Until Len(xlWs.Range(Cells(intL, 1), Cells(intL, 1))) = 0
        'Index de la ligne
        tblListe(intL, 0) = intL
        'Contenu de la première colonne de la feuille de données
        tblListe(intL, 1) = xlWs.Range(Cells(intL, 1), Cells(intL, 1))
        'Debug.Print intL & " --- " &  & " --- " &
        intL = intL + 1
        Loop
    'transfert des données vers la liste du UserForm
    Me.lstChoix.List = tblListe
    'Fermeture et libération des objets
Set xlWb = Nothing
Set xlWs = Nothing
 
End Sub

18/12/2010, 11h56
zelda12

liste de choix userform

Bonjour,
En fait, pour répondre à ta question, je souhaite créer un formulaire de saisie pour faciliter et limiter les erreurs de l'enregistrement de données:
au préalable dans ce userform on saisie le nom d'une famille qui habite "rue des acacias", donc on appel le "Nom de la voie" dans la liste de choix (depuis le userform), 3 autres zones de textes doivent automatiquement se remplir en fonction de l'info donnée depuis "nom de la voix" puisque à ces noms de voie sont associés un type (rue, bd, impasse...) et des n° en fonction de l'assistante sociale désignée, enfin arrivent les assistantes sociales affectées à cette voie.
Peut-être que je ce n'est pas le plus simple et qu'il y a plus facile, je continue de chercher mais les conseils judicieux me sont précieux.
merci
Zelda12