Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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 ?
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 :
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 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
 

ChTi160

XLDnaute Barbatruc
Bonjour Michel
tu disais a l'époque :
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
390
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…