Discussion :

[Patrickm211]

Bonjour,

J'utilise en général la solution des zones de liste à l'intérieur de formulaires, ce qui me donne toute liberté de remplir mes zones de liste avec des valeurs calculées à loisir...

Oui, mais voilà, lorsque je souhaite "formater" des données mélangées dans la liste (des textes qui cohabitent avec des chiffres), je galère un peu...et ce n'est guère élégant (voir parfois impossible).

J'ai lu (et cela semble logique), que pour mieux maîtriser le format de chaque "champs" (et donc chaque colonne), j'aurais intérêt à utiliser un formulaire(en mode feuille de données) à la place de ma zone de liste...

Ma question : comment procéder ? comment "remplir" mon formulaire avec mes données calculées ?...en VBA bien entendu...

Merci de votre aide

[Jeannot45]

Tu génères ton sous-formulaire avec comme données source, la requête qui t'aurais servi pour ta zone de liste

[Patrickm211]

Bonjour,

Bien sûr, si le traitement des données le permet, il est plus logique d'utiliser la solution que tu me proposes (ce que je fais habituellement !)...malheureusement, le traitement que j'applique à mes données est trop lourd pour être traité par une requête...et donc cette solution n'est pas envisageable...
...retour à mon problème...
Merci quand même et bonne journée à toi...et n'hésites pas si tu as une autre solution !

Patrick

[tee_grandbois]

bonjour,

malheureusement, le traitement que j'applique à mes données est trop lourd pour être traité par une requête...et donc cette solution n'est pas envisageable...

je ne comprend pas trop ton besoin, sachant, qu'à moins d'utiliser pour la propriété Origine source: "Liste de valeurs", pour alimenter le contenu, une zone de liste utilise aussi une requête.
Peux-tu illustrer ton besoin (notamment le formatage des données mélangées) ceci pour nous aider à la comprendre ?

[Patrickm211]

Bonjour,

C'est bien évidemment avec la propriété "origine source" = Liste de valeurs que je remplie ma zone de liste...ce que je ne sais pas faire avec un formulaire.
Je remplie ma zone de liste comme cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
' Pour les en-tête...
MaListe.RowSource = " N°; Libellé du matériel immobilisé; Date achat ; Montant HT ; Durée amort. ; Amort. antérieur ; Amort. de l'exercice ; Total Amorti ; Valeur rest. amortir"
'Pour les valeurs, je croise 2 valeurs de table, plus quelques calculs (prorata des achats en cours d'année pour chaque article,...et je les rentre comme suit :
While rst.EOF = False
        MaListe.RowSource = MaListe.RowSource & rst("Num_Immo") & ";" & _
                             rst("Intitulé") & " " & rst("Marque") & " " & rst("Désignation") & ";" & _
                             rst("Date_Acquisition") & ";" & _
                             rst("Montant_Achat_HT") & ";" & _
                             rst("Duree_Amort") & " ans;" & _
                             Amort_Ant & ";" & _
                             Amort_Exo & ";" & _
                             Tot_Amorti & ";" & _
                             Val_Reste_Amort
       rst.MoveNext
Wend

Bien entendu, pour chaque ligne de ma liste (chaque matériel faisant partie de ma liste d'immo) les valeurs Amort_Ant, Amort_Exo, Tot_Amorti et Val_Reste_Amort sont des variables numériques calculées suivant une logique ne pouvant être intégrée à une requête...et je vous fais grâce de ces calculs dans ma boucle "While / Wend" d'exemple...mais ils sont bien présents dans mon programme !

Alors tout fonctionne très bien, les valeurs sont correctes, mais j'ai des difficultés pour traiter chaque mise en forme pour chaque colonne. En effet, la colonne qui nomme le matériel immobilisé est aligné à gauche (c'est du texte), mais les valeurs numériques (de bons vieux euros) demandent à être alignées à droite, par exemple...

Voilà...désolé pour la mauvaise mise en forme du texte "langage VBA"...pas très habitué à aller sur un forum

[tee_grandbois]

Alors tout fonctionne très bien, les valeurs sont correctes, mais j'ai des difficultés pour traiter chaque mise en forme pour chaque colonne.

c'est le souci avec les zones de liste: comme toutes les colonnes sont de type Variant, une date, un montant ou un texte sont traités de la même façon rendant impossible la mise en forme (couleur, gras, souligné, encadré ...)

pour chaque ligne de ma liste (chaque matériel faisant partie de ma liste d'immo) les valeurs Amort_Ant, Amort_Exo, Tot_Amorti et Val_Reste_Amort sont des variables numériques calculées suivatune logique ne pouvant ^petre intégrée à une requête...et je vous fais grâce de ces calculs dans ma boucle "While / Wend" d'exemple...mais ils sont bien présents dans mon programme !

c'est pourtant bien ces calculs qui auraient été intéressant de montrer pour proposer une solution.
Je suis persuadé que ce qui peut s'insérer dans une zone de liste peut forcément s'insérer dans un formulaire ou plusieurs formulaires (donc en tant que sous-formulaires), quitte à créer des fonctions pour les calculs complexes ...

comment procéder ? comment "remplir" mon formulaire avec mes données calculées ?...en VBA bien entendu...

il y a la possibilité de créer une table qui sera alimentée dans la boucle, pouvant ensuite être utilisée comme source d'un formulaire

[Patrickm211]

Merci pour le temps passé à me répondre...j'en conclue que la meilleure solution serait de créer une table comme source d'un formulaire ce que j'avais commencé à faire, mais cela me paraissait très inélégant...peut-être aller vers une table temporaire ???...mais j'ai du mal à me trouver des tutos sur le sujet...
As-tu des pistes sur ce dernier sujet ?

Encore Merci

[tee_grandbois]

j'ai du mal à admettre que tu trouves inélégant à utiliser une table pour présenter des données dans un formulaire alors que tu trouves normal de les présenter au travers d'une zone de liste
Des outils existent autant les utiliser et rien de plus facile de créer une table: si la structure est toujours la même, tu peux la créer manuellement et la vider à chaque fois que tu en as besoin.

Je ne connais pas les tutos existants mais si tu as besoin d'aide pour vider et remplir une table via VBA voici quelques mots-clés pour faire des recherches sur internet:
vider une table en vba
ajouter enregistrements avec Addnew