Discussion :

[gmalodent]

Bonjour le forum,

J'ai un userform composé d'un contrôle Onglet remplit de : zone de texte et listbox qui servent à saisir des données qui seront enregistrées dans un autre classeur servant de base de donnée. (jusque là ça va ...)

Grace aux recherches sur le forum et tuto divers, je vois à peu près comment sauvegarder les données dans le fichier servant de BDD (affectation aux variables, recherche de la 1ère ligne vide utile, copie des données ...) sauf que :

J'ai pas moins de 130 données à enregistrer... et oui

Je cherche pas forcément du code mais plutôt une piste / des idées sur comment gérer une grande quantité de donnée à récupérer d'un userform pour les enregistrer dans un autre classeur.
Parce que je ne me vois pas créer 130 variables pour les affecter une par une aux listBox. (à moins que je n'ai pas le choix )

==> J'avais pensé aux variables tableaux ... mais pareil : un tableau avec 130 items ... c'est pas terrible il me semble.
==> Ou alors faire plusieurs "petits" tableaux mais après comment aligner les données dans la BDD

bref, j' ai du mal à voir comment procéder et si une âme charitable à une piste, je suis preneur

merci d'avance !

[Kimy_Ire]

Bonjour gmalodent,

Voici ce que j'ai compris : tu as besoin d'enregistrer 130 données qui seraient insérées à partir d'un UserForm par un utilisateur.
C'est ça ?

Je n'ai pas bien compris ton histoire de ListBox. Est-ce que les données sont à sélectionner, les unes après les autres, 130 fois ?
Est-ce que ces données sont à écrire dans un UserForm ? Sont-elles du même formalisme ? Que du texte ? Des dates ? Des nombres ?
Doit-il y avoir des explications pour chaque valeur à enregistrer ?

Bref, je crois que ce n'est pas très clair...

Cordialement,
Kimy

[gmalodent]

Bonjour Kimy_Ire

merci pour ton intérêt malgré un énoncé obscur

Voici ce que j'ai compris : tu as besoin d'enregistrer 130 données qui seraient insérées à partir d'un UserForm par un utilisateur.

Oui tout à fait ça !

Est-ce que les données sont à sélectionner, les unes après les autres, 130 fois ?

il y a 44 listBox , il faut choisir une donnée à chaque fois. (données à choisir qui sont différentes à chaque listBox ... sinon ça serait pas drôle ... )

Est-ce que ces données sont à écrire dans un UserForm ? Sont-elles du même formalisme ? Que du texte ? Des dates ? Des nombres ?

Oui, elles sont à écrire dans un formulaire et il y a de tout : texte, date, nombre ... (le tout : en plus des listBox)

Doit-il y avoir des explications pour chaque valeur à enregistrer ?

si par explications tu veux dire : dire à l'utilisateur ce qu'il doit saisir ==> non, non pas d'explications, (et puis quoi encore ! )

En fait, il n'y aurait que quelques données, ça ne m'aurait pas posé trop de pb (ya des tutos bien fait) mais là : 130 données ... comment gérer ça de façon rapide et efficace

voila voila, j'espère avoir été plus clair

Thierry

[Kimy_Ire]

Bonjour gmalodent,

Je veux bien voir la tête de ton formulaire parce que j'ai un peu de mal à comprendre.
Tu ne peux pas "réafficher" 130 fois le même UserForm avec une boucle ?

Cordialement,
Kimy

[joe.levrai]

Bonjour,

une piste à bien entendu adapter à ton contexte :

- utiliser les Tag de tes contrôles qui vont devoir transmettre une valeur
- chaque Tag possède deux informations : Le type de contrôle (ListeBox, Combobox, TextBox etc...) et le numéro de la colonne d'écriture
- les deux informations sont séparées par une virgule : exemple "ListBox,4" pour écrire la valeur du ListBox dans le colonne D

avec ça, tu peux transférer tes 130 valeurs en une seule boucle :

- boucle sur tous les contrôles
- si le contrôle possède un Tag : on fait un select Case sur le Split(TagDuContrôle,",")(0) pour tester le type de contrôle
- chaque Case de ton Select Case permet ainsi de transférer correctement la valeur du contrôle, en fonction de son type
- on utilise le Split(TagDuContrôle,",")(1) pour obtenir le numéro de colonne qui recevra la valeur


Voilà pour la théorie ... dans la pratique, il faudra probablement complexifier la chose pour gérer :

- les différents types de données si besoin (date, texte, nombre etc...)
- les contrôles pouvant renvoyer plusieurs valeurs à différents endroits (exemple d'un ListBox Multiselect)

Dans ce cas là, on pourra découper le Tag en plusieurs portions délimitées par "," et naviguer dans les informations au travers de la fonction Split


Testé et approuvé sur un fichier que j'ai crée et dont un userform possède ... 402 contrôles !

[gmalodent]

Bonjour Kimy

voila une ébauche de l'userForm (j'ai changé les noms pour mettre n'importe quoi et tous les onglets ne sont pas présents mais l'esprit est là...)

quelques précisions :

- il n'y a qu'un seul UserForm à l'interieur duquel il y a un contrôle multiplan à l'intérieur duquel il y a plein de champs à remplir / choisir par le biais de listBox, comboBox etc ... (et donc le tout représentant 130 données différentes environs)
- les items des comboBox sont alimentées (par "Rowsource") par des tableaux qui se trouvent sur un onglet du fichier. (non repris dans l'exemple fourni par soucis d'anonymat )
- les données à choisir pour les listBox / comboBox sont toutes différentes

Je pensais créer des variables tableaux qui seraient remplies par des boucles mais cela suppose de nommer les combobox, textBox de la même façon et de leur attribuer un n°. quelque chose du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub captureDon() 
Don(10) as string ' 10 pour exemple. mais sinon suivant longueur du tableau
Dim Col as Integer
For Col =1 to 10
    Don(Col) = Controls("TextBox" + Cstr(Col)).Text
Next Col
End Sub

Après il faudrait que je copie les données sur la même ligne de la BDD ...

est ce que ce raisonnement parait correct ?


cordialement
Thierry

[gmalodent]

Bonjour joe.levrai

merci bien pour tes lumières
transférer tous mes contrôles en une seule boucle, j'en salive déjà !!
je vais de ce pas explorer (et déchiffrer aussi ) ta piste et je reviens !


A+
Thierry

[gmalodent]

Bonjour

quelle belle petite propriété que ce TAG. Difficile de trouver de la doc dessus mais c'est bon, je vois comment l'utiliser
joe.levrai : du coup je pars sur ta solution qui fonctionne effectivement pas mal.

merci encore pour cette piste !

A+

[joe.levrai]

Ravi d'avoir proposé une solution satisfaisante pour ton projet.

j'ai été très succinct sur le descriptif des choses, n'hésite surtout pas à intervenir à ce niveau si tu as du mal à mettre en application la méthode, ou a utiliser quelques pistes que j'ai écrit (notamment l'utilisation de la fonction Split pour naviguer sur les différentes informations qui sont concaténées dans le TAG)