XL 2019 Faire comuniquer un tabeau Excel avec un Userform

thunder23

XLDnaute Occasionnel
Bonsoir le forum,

Je souhaite que quand j'appelle un Userform celui-ci se rempli des valeurs. Je ne vois que par des Textbox sauf qu'il faut un certain type de boucle et je ne sais pas comment faire.

J'ai mis un fichier en exemple afin de mieux comprendre se que je recherche.

Merci d'avance pour vos réponses ;)
 

Pièces jointes

  • test1.xlsm
    41.6 KB · Affichages: 25
Solution
Bonsoir.
'aurais peut être plutôt mis une ListBox, mais tel que votre UFm est dessiné :
VB:
Option Explicit
Private RngDon As Range, TDon()
Private Sub UserForm_Initialize()
   Dim L&, C&
   Set RngDon = ActiveSheet.[A3:F14]
   TDon = RngDon.Value
   For L = 1 To UBound(TDon, 1)
      Me("Label" & L).Caption = TDon(L, 1)
      For C = 2 To 6
         Me("TextBox" & (L - 1) * 5 + C - 1).Text = TDon(L, C)
         Next C, L
   End Sub
Private Sub CommandButton1_Click()
   Dim L&, C&
   Set RngDon = ActiveSheet.[A3:F14]
   TDon = RngDon.Value
   For L = 1 To UBound(TDon, 1)
      For C = 2 To 6
         If C < 4 Then
            TDon(L, C) = CDate(Me("TextBox" & (L - 1) * 5 + C - 1).Text)
         Else
            TDon(L, C) =...

thunder23

XLDnaute Occasionnel
Re
En passant par un module de Classe !
Jean marie

Re,

Je viens de voir ton message précédent, ah ok ça serait géniale comme ça ! ☺️

Par contre, as-tu regardé par rapport à se que je t'avais posé comme question ?
Pour la troisième question, mon fichier à l'origine un Userform rempli ces 5 colonne dans une feuille BDD, je voudrais que quand je change d'année (par exemple 2024), ça archive ces 5 colonnes dans la feuille archive car aujourd'hui j'efface tout et fait une sauvegarde année par année.
Je t'avais mis un bout de mon fichier en pièce jointe ;)

Michel
 

ChTi160

XLDnaute Barbatruc
Bonjour Michel
Donc pour récapituler j'ai récupéré le Fichier du Post #40
Quelles feuilles doit-il y avoir et que doit-on faire ?
On garde une seule Feuille "Archives"
Les Deux "BDD" et Une Feuille "Archives" ?
Une seule Feuille peut suffire, je pense "Archives" ! Tu as combien de lignes de données par année d'enregistrement (moyenne) ?
Bonne journée
Jean marie
 

thunder23

XLDnaute Occasionnel
Bonjour Jean-Marie
Quelles feuilles doit-il y avoir et que doit-on faire ?
On garde une seule Feuille "Archives"
Les Deux "BDD" et Une Feuille "Archives" ?
Il faudrait les deux car sur BDD il y a plusieurs calculs d'effectuer et des UserForm qui récupèrent dessus. EN fait BDD est la colonne vertébrale de mon fichier.
Tu as combien de lignes de données par année d'enregistrement (moyenne) ?
En moyenne 365 Lignes, 366 lorsqu'il y a 29 jours au mois de Février.

Bonne journée
Michel
 

thunder23

XLDnaute Occasionnel
Re
Tu dis :

Ces calculs se font en fonction des Années ?
quel est le problème , si l'année en cour est Comprise dans la Feuille "Archives" ?
après j'arrête Lol
Jean marie
Re,

T'inquiète ça ne me dérange pas ;)
Oui ces calculs sont en fonction des années car étant en horaires décalés le calcul est différent (dimanche, jours fériés, etc.)

En fait la feuille BDD ne concerne que l'année en cours car j'ai d'autres options d'ajouter dessus et qui servent pour par exemple le calcul de ma feuille de paie.
La feuille archive servira juste pour revenir sur les années précédentes pour savoir se que j'ai pu faire.

Michel
 

ChTi160

XLDnaute Barbatruc
Re Michel
Tu dis :
Pour la troisième question, mon fichier à l'origine un Userform rempli ces 5 colonne dans une feuille BDD, je voudrais que quand je change d'année (par exemple 2024), ça archive ces 5 colonnes dans la feuille archive car aujourd'hui j'efface tout et fait une sauvegarde année par année.
Et aussi
En fait la feuille BDD ne concerne que l'année en cours
Peut-être n'ai-je pas compris ! Lol
Quand tu dis :
quand je change d'année
C'est en 2023 ? Donc tu mets les données qui l'année prochaine (2024) seront l'année en Cours dans la feuille "Archives" ! Ou alors ton exemple (par exemple 2024) n'est pas Bon Lol
Je suis Chiant, je sais Lol , je comprends vite mais ..........
Bonne fin de Soirée.
Jean marie
 

thunder23

XLDnaute Occasionnel
Re Michel
Tu dis :

Et aussi

Peut-être n'ai-je pas compris ! Lol
Quand tu dis :

C'est en 2023 ? Donc tu mets les données qui l'année prochaine (2024) seront l'année en Cours dans la feuille "Archives" ! Ou alors ton exemple (par exemple 2024) n'est pas Bon Lol
Je suis Chiant, je sais Lol , je comprends vite mais ..........
Bonne fin de Soirée.
Jean marie
Re Jean-marie,

Prenons exemple 2023 et 2024 si tu veux. Quand on sera l'année prochaine, je mettrais 2024 dans une cellule et celle-ci transférera ce que j'ai noté en 2023 dans "Archives", "BDD" passera à l'année en cours(2024). Ainsi de suite avec 2024 qui passera dans archives quand on sera en 2025.

Non pas du tout, c'est un peu difficile parfois de retranscrire en écrit se que l'on pense ;)

Michel
 

ChTi160

XLDnaute Barbatruc
Bonsoir Ok

Je ne connais pas ton fichier et je me dis que tu pourrais peut-être essayer la "BDD" Unique
Car ça fait beaucoup de transfert de Archives à BDD et Retour Lol
je regarde ce que je peux faire §
Bonne fin de Soirée.
Jean marie
 

thunder23

XLDnaute Occasionnel
Bonjour Jean-Marie,

Si tu veux dans l'après-midi je peux te mettre mon fichier en entier pour mieux comprendre son fonctionnement(une grande partie se passe en UserForm) mais comme je te l'ai dit, la feuille BDD est la ''matrice'' du fichier. Quasi tout se passe dessus 🙂

Bon dimanche
Michel
 

thunder23

XLDnaute Occasionnel
Re
Ok ! Je regarderai !
Bonne fin de journée.
Jean marie

Bonjour le forum, bonjour @ChTi160,

J'ai un peu oublié ce sujet on va dire 😄 , est-ce que par hasard tu as pu regarder ?

Ah oui je devais t'envoyer le fichier initial, il est en pièce jointe ;)

Bonne journée !
Michel
 

Pièces jointes

  • testarchivev2.xlsm
    441.5 KB · Affichages: 7
Dernière édition:

ChTi160

XLDnaute Barbatruc
Bonjour Michel
tu disais a l'époque :
Si tu veux dans l'après-midi je peux te mettre mon fichier en entier pour mieux comprendre son fonctionnement(une grande partie se passe en UserForm) mais comme je te l'ai dit, la feuille BDD est la ''matrice'' du fichier. Quasi tout se passe dessus 🙂
Et bien! Non je n'ai pas regardé lol (y'a pas eu de fichier joint)
et là y'a un mot de pass ........
Bonne fin de Journée
Jean marie
 

Discussions similaires

  • Résolu(e)
Microsoft 365 Taille UserForm
Réponses
3
Affichages
355

Statistiques des forums

Discussions
312 238
Messages
2 086 492
Membres
103 234
dernier inscrit
matteo75654548