Userform et multipage

[Gunner]

Bonkour à tous, je viens de faire un Userform en multipage avec un onglet. Jusque là pas de souci, j'ai placé dans mon User une listbox à cliquer qui lors d'un choix d'un personnel affiche les données qui m'interessent, par exemple nom, prenom adresse.
La base de données qui est beaucoup plus vaste comprend des données de la Range A à la Range BM.

Je voudrai pouvoir afficher dans chaque onglet differentes données issues de la base de données. Sachant que l'onglet 1 prend les données de A à C, l'onglet 2 de D à M et ainsi de suite jusqu'à la fin.

A ce jour je n'arrive pas à afficher les données dans l'onglet 2 et lorsque je fais click droit sur le user pour rajouter un onglet il le fait bien mais il copie aussi l'integralité du code de la page 1.....

Je suppose que si on peu realiser une telle manip sur un onglet ce doit etre valade pour 10 ou 20. Donc si une personne à quelques minutes à me consacrer et me concocter un exemple je l'en remercie d'avance.

 

[job75]

Re : Userform et multipage

Bonjour,

Un exemple à adapter.

J'ai mis une ListBox dans chaque page du Multipage. Voyez leurs propriétés ColumnCount et RowSource

A+

 

[jp14]

Re : Userform et multipage

Bonjour

Ci dessous un exemple avec 30 colonnes
Une Listbox permet de sélectionner une ligne de la base.
Les textbox sont remplis et se trouvent dans les différentes pages.
En jouant sur le numéro des colonnes et Textbox les procédures sont très simple (par le nombre de lignes).

J'ai rajouté le squelette d'une procédure pour effectuer une action au changement de page.

A tester

JP

 

[Gunner]

Re : Userform et multipage

Merci je vais voir comment cela fonctionne et je vous tiens au courant😀

 

[teodormircea]

Re : Userform et multipage

Elle super cette solution.
Est-il possible de rajouter, une sorte de moteur de recherche comme ca un peut accéder directement a l'information qu'on veux
😕

 

[Gunner]

Re : Userform et multipage

Elle est effectivement tres bien cela correspond à mes attentes. Je vous propose mon debut et si quelqu'un veux bien me la completer...merci😉

 

[jeanpierre]

Re : Userform et multipage

Bonjour Gunner, teodormicea, JP et Job,

Peux-tu préciser l'origine de "Ton Début" ?

Bonne fin d'après-midi.

Jean-Pierre

 

[Gunner]

Re : Userform et multipage

Bonjour jeanpierre..

Oui mon debut tu as raison ce n'est pas là la bonne "expression" .il s'agit en fait d'un fichier posté il y a deja pas mal de temps mais que j'ai "modifié" car en fait il etait trop compliqué pour moi et finalement une grosse partie des elements ne m'etaient pas utiles.

Peut etre que ma demarche ne suit pas la deantologie du forum, je ne cherche en aucun à m'approprier le travail des autres bien au contraire. Si tu estimes que c'est le cas toutes mes excuses.

Joel

 

[jp14]

Re : Userform et multipage

Bonsoir Gunner
Bonsoir Jeanpierre

Ci joint le fichier avec des procédures pour
afficher les données dans des textbox
autoriser les modifications
enregistrer les modifications
initialisation de l'usf
Remplissage automatique des label en fonction des entêtes des colonnes.

Il suffit simplement de rajouter des textbox dans l'usf pour l'adapter à une BDD qui comportent plus de zones, en utilisant comme numéro de la textbox le numéro de la colonne.


A tester

JP

 

[Gunner]

Re : Userform et multipage

Merci JP14, cela correspond tout à fait à mes recherches. 🙂 Je vais l'itiliser et je vous tiens au courant des avancées et evolutions.

 

[Gunner]

Re : Userform et multipage

Encore une fois jp14 merci pour ce super travail. Comme tu me l'as marqué dans ton dernier post je l'ai testé et c'est vraiment super. En revanche si je peux me permettre est il possible ou du moins comment faire....

Voilà je peux effectuer pleins d'operations comme tu me la precisé mais il me manque 2 fonctions que je parviens pas à realiser meme avec les differentes aides que j'ai pu glaner à droite ou à gauche🙁

Voilà je me suis apercu que si je rajoute un individu à la base cela en supprime un, cela correspond en fait à faire la mise à jour d'une personne en changeant completement ses données alors que moi je ne veux pas la supprimer mais juste en rajouter une, pour la suppression là ca serait par le biais d'un bouton supprimer, mais c'est autre chose....🙄
De plus je sais j'abuse......est il possible que lors de l'ajout de données, elles se placent automatiquement dans la BDD dans l'ordre alpha?

Merci de ton aide et de ta patience😀

Joel

 

[jp14]

Re : Userform et multipage

Bonjour

Ci dessous le fichier avec un usf pour :

Sélectionner un enregistrement avec un "listBox"

Affichage des données soit dans des "TextBox" soit dans des "ComboBox".

Pour les "combobox", les données sont sans doublons et sont triées.

Possibilité de modifier les données des différentes zones.

Possibilité de créer un nouvel enregistrement soit en partant de zones vierges soit d'un enregistrement existant.

Affichage d'une "aide" en fonction du choix, les boutons étant visible ou invisible.

Exemple de contrôle de données en cours de saisie avec des valeurs numériques.
Exemple de contrôle avant l'enregistrement pour des zones soient obligatoires soient avec un caractère spécifique.

A tester
A modifier

JP

 

[jp14]

Re : Userform et multipage

Bonsoir à tous

Procédure à modifier dans le code du fichier "base de donnees.zip "
Le message d'erreur n'était pas explicite.

Private Function controledata(£type As Byte, £controle As String)
Dim i As Integer
controledata = 0
With Me.Controls(£controle)

Select Case £type
    Case 1 ' zone non vide
        If .Value = "" Then
            ' recherche de la valeur numérique du controle
           [COLOR="red"] £coln = Mid(£controle, Len(£controle), 1)
            For i = Len(£controle) - 1 To 2 Step -1
                If IsNumeric(Mid(£controle, i, 1)) Then
                    £coln = Mid(£controle, i, 1) & £coln
                Else
                    Exit For
                End If
            Next i
            ' affichage du nom de la zone 
            Call MsgBox("La zone : " & Me.Controls("Label" & £coln).Caption _[/COLOR]
                        & vbCrLf & "doit être renseignée : " _
                        & vbCrLf & "" _
                        , vbCritical, Application.Name)
   ......................

JP

 

[Gunner]

Re : Userform et multipage

Merci jp, je m'occupe de ca demain au boulot et je te tiens au courant 😀

 

[Gunner]

Re : Userform et multipage

j'ai travaillé sur le fichier et j'ai rencontré un petit souci...en fait j'arrive à modifier er creer mais uniquement en laissant le code tel quel et en ne faisant pas la modif presente dans ton dernier message. Aurais je oublié un truc? 😕