Listbox à userform

Version imprimable

16/12/2019, 12h33
steph7609123

1 pièce(s) jointe(s)

Listbox à userform

Bonjour à tous,

je suis en train de construire un Base de données sur Excel (plus accessible pour moi que Access). Jusqu'à présent, j'ai réussi à coder comme je le voulais, grâce à ce forum. Mais là, je sèche et ne trouve pas de réponses.
Sur ma base de données, j'ai une feuille appelée "bd" sur laquelle je recense des établissements scolaires.
J'ai crée un formulaire "consult", qui me permet, grâce à une recherche en cascade, d'afficher les établissements qui répondent à la recherche dans une ListBox appelée "ListBox1" (je changerai le nom ultèrieurement).
Ce que je voudrais arriver à faire c'est :
Sélectionner une ligne (qui correspond à un établissement) dans ListBox1. A partir de cette sélection, si je clique sur "modifier l’établissement sélectionné", je voudrais ouvrir le formulaire ajout_etab_1 avec les champs pré remplis, à savoir :

L'id de la colonne 1 (donc colonne 0) de la ligne sélectionnée de la listbox1 vient s'incrémenter dans la zone de texte "id_etab" du formulaire ajout_etab_1
le "nom" de la colonne 2 (donc colonne 1) de la ligne sélectionnée de la Listbox1 vient s'incrémenter dans la zone de texte "nom" du formulaire ajout_etab_1
le type d’établissement de la colonne 3 (donc colonne 2) de la ligne sélectionnée de la Listbox1 vient s'incrémenter dans la zone de texte "typ_etab" du formulaire ajout_etab_1

etc .....
Le formulaire me servira à modifier les informations d'un établissement.

J'espère que mon message est claire et que quelqu'un pourra m'apporter un début de réponse.
Je vous remercie par avance pour votre contribution.

Bien cordialement
Stéphane Bernier

Ps : en PJ ce que j'ai déjà réalisé.
16/12/2019, 13h07
boisgontierjacques

1 pièce(s) jointe(s)
Bonjour,

Pgm générique:Recherche par 6 comboboxs puis recherche intuitive multi-mots multi-colonnes , Ajout,Modif.

Bouton de lancement du formulaire sur la feuille BD

On peut remplacer des TextBoxs par des comboBoxs.

Pour créer un identifiant:
Code:

1 2 3 4 5 Private Sub B_ajout_Click() raz Me.Enreg = Range(NomTableau).Rows.Count + 1 Me.TextBox1 = Application.Max(Application.Index(TabBD, , 1)) + 1 End Sub
Boisgontier
16/12/2019, 13h21
Qwazerty

Salut

Attention à la liste d'adresses mail contenue dans le fichier ;)
Même si ces adresses ne sont pas confidentielles, elles pourraient être utilisées ou revendues dans le but de diffuser du SPAM (ou autre), il vaut mieux supprimer ce genre de contenu avant diffusion (ça n'est que mon avis).

++
Qwaz
16/12/2019, 13h35
steph7609123

Bonjour Jacques, Bonjour Qwazerty,

Dans un premier temps, je vous remercie des retours que vous avez réalisés.
Toutefois, ce n'est pas tout à fait ce que je souhaite. En effet, le userform "consult" a été créé pour consulter les établissements, et le cas échéants, ajouter un événement avec la possibilité de modifier également au besoin. Si je parviens à trouver la solution pour repiquer les infos d'une ligne pour alimenter un autre formulaire alors je pense que je pourrai avancer.
La solution que vous me proposez Jacques est certes très bien construite (je ne serais pas capable d'en faire autant) et je pense pouvoir me servir de certaines lignes de code que vous avez utilisées. Néanmoins, je voudrais vraiment partir du formulaire "consult" et chaîner vers un formulaire de modification.

Citation:

Attention au liste d'adresse mail contenu dans les fichiers

Qwerty, c'est exact, tu as raison de me faire la remarque et je t'en remercie. Bien évidement, ces adresses sont en accès libre sur le site en accès libre du ministère et sur les sites des différents établissements. Effectivement, s'il s'était agit des adresses mais persos des chefs d'établissement, je ne les aurais pas intégrées. Merci en tout cas.

Mon problème n'est pas encore complètement résolu, et je laisse donc la discussion ouverte.

Bien cordialement et merci à nouveau.

Stéphane

1 pièce(s) jointe(s)

Salut

Les modifications:

Dans Consult

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub modif_Click()
Dim iLigne As Integer
 
'On boucle sur les item de la liste
For iLigne = 0 To (ListBox1.ListCount - 1)
 
    If ListBox1.Selected(iLigne) Then
        'ajout_etab_1.id_etab.Caption = Me.ListBox1.List(compteur, 0)
        'ajout_etab_1.Show
        'On appel la procedure d'affiche du userofrm
        ajout_etab_1.ShowLigneByID ListBox1.List(iLigne, 0)
        'On quitte la boucle (sauf si le traitement de plusieurs ligne est autorisée
        Exit For
    End If
Next

Dans ajout_etab_1

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
Private Sub UserForm_Initialize()
 
'Dim i As Integer
'Dim nb As Integer
'    nb = consult.ListBox1.ListCount
'    For i = 0 To nb
'        Me.id_etab.Caption = consult.ListBox1.List(i)
'    Next i
'
End Sub
 
Sub ModifLigneByID(IDLigne As Long)
Dim TheRow As ListRow, aCtrl As Control
 
    'On pointe le tableau structuré
    With F_BD.ListObjects("Tab_BD")
        'On recherche la ligne contenant l'ID
        On Error Resume Next
        Set TheRow = .ListRows(WorksheetFunction.Match(IDLigne, .ListColumns("ID").DataBodyRange, 0))
        On Error GoTo 0
        If TheRow Is Nothing Then
            'ID inexistant dans le tableau
            'Gestion à faire...
        Else
            'On procéde à l'affichage
            'On boucle sur les controles du userorm
            For Each aCtrl In Me.Controls
                'On regarde si le tag est renseigné
                If aCtrl.Tag <> "" Then
                    'On va chercher l'info dans therow
                    'Là il serait bien de gérer le cas ou le tag ne correspond à aucune colonne
                    aCtrl.value = TheRow.Range(1, .ListColumns(aCtrl.Tag).Index).value
                End If
            Next
            'On affiche le userform
            Me.Show
        End If
    End With
End Sub

Puis sur le userform il faut rentrer dans la propriété tag de chaque controle le nom de la colonne correspondante dans le tableau BD

++
Qwaz

17/12/2019, 08h41
steph7609123

A Qwazerty

Bonjour Qwazerty,

Merci beaucoup pour ce que tu as fait. Je n'ai, pour l'heure, pas pu tester, mais toute aide est bienvenue et je t'en remercie.
Je vais tester cela aujourd'hui.

Bien cordialement.

Stéphane
08/01/2020, 13h08
steph7609123

TAG

Bonjour Qwazerty, bonjour à tous,

De retour d'un long mois sans nouvelles (TAF et vacances) et je me repenche sur la base de données que je suis en train de constituer.
Dans le précédent message de Qwazerty il est précisé :

Code:

rentrer dans la propriété tag de chaque controle le nom de la colonne correspondante dans le tableau BD

.

Quelqu'un pourrait-il m'indiquer en quoi cela consiste et comment je dois procéder.

Je vous remercie par avance et vous souhaite au passage une très belle année 2020.

Bien cordialement.

Stéphane Bernier
08/01/2020, 19h58
Qwazerty

1 pièce(s) jointe(s)

Salut

Un petit dessin valant mieux qu'un grand discours ;)

Pièce jointe 529263

Attention aussi dans ton code, tu utilises beaucoup "ActiveWorkBook", avec cette écriture si un Classeur autre que celui sur lequel les macros sont contenues est actif, les macros vont modifier ce classeur.... Si ça n'est pas souhaitable (ce qui ne devrait quasi jamais être le cas - sauf rares exceptions), il vaut mieux utiliser ThisWorkBook, qui représente le classeur contenant la macro qui s’exécute.

++
Qwaz
09/01/2020, 08h34
steph7609123

Bonjour Qwazerty,
Je te remercie de ces informations. Je vais par ailleurs modifier le code en fonction de tes remarques et vais essayer de le rédiger en essayant de le décortiquer et d'en comprendre les étapes.

Bien cordialement.

Stéphane
09/01/2020, 12h16
steph7609123

Re bonjour Qwazerty et tous les membres du forum,

Je viens de tenter les dernières instructions de Qwazerty et, comme de bien entendu, j'ai un message d'erreur :

Code:

impossible de définir la propriété list index de table de propriétés non valide

.
Le débogeur me place sur la ligne :

Code:

ajout_etab_1.id_etab.Caption = Me.ListBox1.List(compteur, 0)

de la fonction sub modif_click() du controleur "modif" du formulaire "ajout_etab_1".

Après maintes recherches sur le web (afin d'éviter de toujours solliciter les bonnes volontés), je pense avoir trouvé le problème.

En fait je pense que la méthode que j'utilise pour alimenter la listbox n'est pas bonne. Je m'explique :
Lorsque j'ai créé le contrôle ListBox, j'ai rempli la propriété Rowsource à partir de la feuille "extractions". Peut être aurais-je du utiliser la méthode Additem. Qu'en pensez vous ? Dans ce cas peut être n'est il pas utile de basculer les résultats de recherche dans la feuille "extractions" et alimenter directement la ListBox à chaque critère sélectionné. Cela est-il possible avec des colonnes non contiguës ? Pourriez vous m’éclairer ?

Bien cordialement.

Stéphane