XL 2019 Faire comuniquer un tabeau Excel avec un Userform

thunder23

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
Dranreb
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) =...
Trier par date Trier par votes
thunder23

thunder23

XLDnaute Occasionnel
ChTi160 à dit:
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
Cliquez pour agrandir...
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
Vote positif 0 Vote négatif

Discussions similaires

Le_Phénomène
  • Résolu(e)
Microsoft 365 Forcer l'affichage de mon userform (barre de progression) sur l'écran où le classeur est actif (cas des doubles/triples écrans)
2 3
Réponses
40
Affichages
847
Dudu2
Dudu2
T
  • Résolu(e)
XL 2019 Contrôle de saisie dans un USF
Réponses
4
Affichages
221
ThierryP
T
natorp
  • Résolu(e)
XL 2019 Accepter une virgule (ou un point) dans un textbox
2 3 4
Réponses
53
Affichages
2 K
patricktoulon
patricktoulon
S
  • Question
XL 2016 Utiliser un UserForm qui s'actualise en direct
Réponses
5
Affichages
321
seby93
S
chris6999
  • Question
Microsoft 365 Copier une plage vers une autre feuille depuis un USF
Réponses
4
Affichages
159
chris6999
chris6999
R
  • Question
Microsoft 365 VBA Excel PowerPoint
Réponses
5
Affichages
208
Rem6610
R
E
  • Question
Microsoft 365 Faire une moyenne sur une plage variable
Réponses
2
Affichages
292
erch29
E
T
  • Résolu(e)
XL 2021 Incompatibilité de type avec un userform
2
Réponses
19
Affichages
657
Bernard38
Bernard38
thunder23
  • Question
XL 2021 Formule RechercheX et VBA
Réponses
8
Affichages
518
thunder23
thunder23
R
  • Question
XL 2016 TDC dans unserform avec segments
Réponses
1
Affichages
334
patricktoulon
patricktoulon

Membres actuellement en ligne

5 membres et 58 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 628
Messages
2 111 337
Membres
111 104
dernier inscrit
JEMADA