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
Bonjour Michel
Je viens de regarder ton Fichier
Beaucoup de problèmes (manque de feuille, de Userform) etc etc
Il n'y rien de moi je pense , dans ce Fichier Lol
Je passe la main à ceux qui ont contribué a ce fichier !
Jean marie
Bonjour Jean-Marie,

C'est que je l'ai réduit au strict minimum car les autres feuilles et UserForm ne travaillent pas avec la feuille BDD ou la future feuille archives.

J'ai fais un petit peu de ménage supplémentaire et mis ton Userform que tu avais partagé sur le post #39

J'ai laissé le miens également si tu veux bricoler dessus ;)

Michel
 

Pièces jointes

  • testarchivev3.xlsm
    344.4 KB · Affichages: 8

Discussions similaires

Réponses
5
Affichages
271

Statistiques des forums

Discussions
315 085
Messages
2 116 074
Membres
112 650
dernier inscrit
badi44