Discussion :

[modus57]

Bonsoir,
Je viens de découvrir et télécharger le très intéressant DataUsfManager de FAUCONNIER Pierre https://fauconnier.developpez.com/tu...tructure/#LI-B

Pour l’ajout d’une colonne supplémentaire
Il faut bien entendu ajouter (ou insérer) la nouvelle colonne dans la table de données. Ici, nous allons ajouter l’adresse mail à nos contacts.
Le formulaire doit bien entendu disposer du contrôle associé à la nouvelle colonne du tableau structuré. Nous allons donc ajouter le TextBox tboMail à usfContact.
Il faut également ajouter la paire de valeurs dans la table de mappage.
À nouveau, il n’y a rien à modifier au niveau de la fonction d’appel du Userform, l’email du contact est bien récupéré au niveau du Userform, et il est bien transféré dans la table lors d’une modification.

Mais après le lancement de la procédure ShowContactForm l’adresse mail n’apparaît pas dans le TextBox tboMail de usfContact.



Je n’arrive pas à corriger ce petit bug.

Merci d’avance pour vos réponses.

[Valtrase]

Bonjour,
Dans le module : Module1 change la fonction GetMap() comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function getMap()
  Dim Map(1 To 4, 1 To 2)
 
  Map(1, 1) = "tboFirstname"
  Map(1, 2) = "Prénom"
  Map(2, 1) = "tboLastName"
  Map(2, 2) = "Nom"
  Map(3, 1) = "cboFunction"
  Map(3, 2) = "Fonction"
  Map(4, 1) = "tboMail"
  Map(4, 2) = "Mail"
 
  getMap = Map
End Function

En fait le mail n'est pas référencé dans le mappage.

Tu as aussi la possibilité d'utiliser la fonction : GetMap1 (Ma préférée) toujours dans le module: Module1
Ne pas oublier de référencer le tableau de Mappage sur la feuille Mappage.

usf	Contrôle	Colonne
usfEnterprise	tboName	Entreprise
usfEnterprise	tboWeb	Site Web
usfEnterprise	tboMail	Email général
usfEnterprise	chkActive	Entreprise active
usfContact	tboFirstname	Prénom
usfContact	tboLastName	Nom
usfContact	cboFunction	Fonction
usfContact	tboMail	Mail

Enfin modifier la procédure Sub ShowContactForm() et y appeler GetMap1 en lieu et place de GetMap.
Un conseil bien relire l'article et faire du pas à pas touche F8

[modus57]

Merci Valtrase pour la réponse.

Je me suis contenté de télécharger le classeur, de l'ouvrir de lancer la procédure ShowContactForm.

Sans chercher plus loin.

En effet c'est très simple, peut-être remplacer Dim Map(1 To 4, 1 To 2) par Dim Map(1 To Variable, 1 To 2).

Bonne journée @+

[Valtrase]

Bonjour,
Oui cela peut être une solution.
Mais comme dis plus haut, la procédure GetMap1, permet de vous affranchir de tout cela, en regroupant le mappage de tous les formulaires utilisateurs dans un seul tableau.

[modus57]

Petite précision :

modifier la procédure Sub ShowContactForm() et y appeler getMap1("usfContact") en lieu et place de GetMap.

Encore merci pour votre implication, discussion résolue.

Bonne soirée