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
Dranreb

Dranreb

XLDnaute Barbatruc
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) = CDbl(Me("TextBox" & (L - 1) * 5 + C - 1).Text)
            End If
         Next C, L
   RngDon.Value = TDon
   End Sub
 
Vote positif 0 Vote négatif
Solution
thunder23

thunder23

XLDnaute Occasionnel
Dranreb à dit:
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) = CDbl(Me("TextBox" & (L - 1) * 5 + C - 1).Text)
            End If
         Next C, L
   RngDon.Value = TDon
   End Sub
Cliquez pour agrandir...

Bonsoir Dranreb, Bonsoir le forum,

Le soucis est que les listbox je n'ai jamais essayer, est-ce que l'on peut lui mettre une mise en forme ?

Par ailleurs merci pour votre code, je vais le mettre sur mon fichier final ;)
 
Vote positif 0 Vote négatif
thunder23

thunder23

XLDnaute Occasionnel
Bonjour,

Je reviens sur ce sujet car je ne vois pas comment inclure une condition en plus. En fait j'ai un autre UserForm que je voudrais afficher un aperçu de mon planning sur l'année mais en tenant compte si c'est une année à 28 ou 29 pour le mois de Février. J'ai mis un fichier pour mieux comprendre la chose.

Merci d'avance ;)
 

Pièces jointes

  • testaperçu.xlsm
    30.3 KB · Affichages: 8
Vote positif 0 Vote négatif
Dranreb

Dranreb

XLDnaute Barbatruc
Bonjour.
Je dirais comme ça :
VB: 
Private Sub UserForm_Initialize()
   Dim L As Integer, TDon(), M As Integer, J As Integer, Lab As MSForms.Label, TBx As MSForms.TextBox, I As Integer
   TDon = Feuil1.[A2].Resize(366, 2).Value
   For L = 1 To DateSerial(Year(TDon(1, 1)) + 1, 1, 1) - TDon(1, 1)
      M = Month(TDon(L, 1)): J = Day(TDon(L, 1))
      Set Lab = Me("Label" & L)
      Set TBx = Me("TextBox" & L)
      Lab.Caption = J
      TBx.Text = TDon(L, 2)
      Lab.Left = 18 + (M - 1) * 84: Lab.Width = 12: Lab.Top = 25.5 + (J - 1) * 18: Lab.Height = 12
      TBx.Left = 33 + (M - 1) * 84: TBx.Width = 36: TBx.Top = 24 + (J - 1) * 18: TBx.Height = 15
      Select Case TDon(L, 2)
         Case "M": TBx.BackColor = RGB(242, 8, 132)
         Case "S": TBx.BackColor = RGB(0, 204, 255)
         Case "N": TBx.BackColor = RGB(31, 183, 20)
         Case "J": TBx.BackColor = RGB(255, 215, 45)
         Case "REM": TBx.BackColor = RGB(240, 255, 45)
         Case "CP": TBx.BackColor = RGB(255, 153, 0) 'ou 255.102.0
         Case "CPN": TBx.BackColor = RGB(255, 153, 0) 'ou 255.102.0
         Case "EF": TBx.BackColor = RGB(255, 153, 204)
         Case "EFN": TBx.BackColor = RGB(255, 153, 204)
         Case "AM": TBx.BackColor = RGB(255, 0, 0)
            TBx.ForeColor = &HFFFFFF: TBx.Font.Bold = True
         Case "JCN": TBx.BackColor = RGB(153, 204, 0)
         Case "HAR": TBx.BackColor = RGB(204, 204, 255)
         Case "RSU": TBx.BackColor = RGB(255, 204, 153)
         Case "REC": TBx.BackColor = RGB(255, 255, 255)
         Case "GRV": TBx.BackColor = RGB(153, 102, 51)
            TBx.ForeColor = &HFFFFFF: TBx.Font.Bold = True
         Case "FOS": TBx.BackColor = RGB(164, 82, 0)
            TBx.ForeColor = &HFFFFFF: TBx.Font.Bold = True
         Case "FOSN": TBx.BackColor = RGB(164, 82, 0)
            TBx.ForeColor = &HFFFFFF: TBx.Font.Bold = True
         Case "DEL": TBx.BackColor = RGB(164, 82, 0)
            TBx.ForeColor = &HFFFFFF: TBx.Font.Bold = True
         Case "DELN": TBx.BackColor = RGB(164, 82, 0)
            TBx.ForeColor = &HFFFFFF: TBx.Font.Bold = True
         Case "ACTP": TBx.BackColor = RGB(0, 0, 0)
            TBx.ForeColor = &HFFFFFF: TBx.Font.Bold = True
         Case "AAN": TBx.BackColor = RGB(166, 166, 166)
            TBx.ForeColor = &HFFFFFF: TBx.Font.Bold = True
         End Select
      Next L
   Label366.Visible = L > 366: TextBox366.Visible = L > 366
End Sub
 
Vote positif 0 Vote négatif
thunder23

thunder23

XLDnaute Occasionnel
Dranreb à dit:
Bonjour.
Je dirais comme ça :
VB: 
Private Sub UserForm_Initialize()
   Dim L As Integer, TDon(), M As Integer, J As Integer, Lab As MSForms.Label, TBx As MSForms.TextBox, I As Integer
   TDon = Feuil1.[A2].Resize(366, 2).Value
   For L = 1 To DateSerial(Year(TDon(1, 1)) + 1, 1, 1) - TDon(1, 1)
      M = Month(TDon(L, 1)): J = Day(TDon(L, 1))
      Set Lab = Me("Label" & L)
      Set TBx = Me("TextBox" & L)
      Lab.Caption = J
      TBx.Text = TDon(L, 2)
      Lab.Left = 18 + (M - 1) * 84: Lab.Width = 12: Lab.Top = 25.5 + (J - 1) * 18: Lab.Height = 12
      TBx.Left = 33 + (M - 1) * 84: TBx.Width = 36: TBx.Top = 24 + (J - 1) * 18: TBx.Height = 15
      Select Case TDon(L, 2)
         Case "M": TBx.BackColor = RGB(242, 8, 132)
         Case "S": TBx.BackColor = RGB(0, 204, 255)
         Case "N": TBx.BackColor = RGB(31, 183, 20)
         Case "J": TBx.BackColor = RGB(255, 215, 45)
         Case "REM": TBx.BackColor = RGB(240, 255, 45)
         Case "CP": TBx.BackColor = RGB(255, 153, 0) 'ou 255.102.0
         Case "CPN": TBx.BackColor = RGB(255, 153, 0) 'ou 255.102.0
         Case "EF": TBx.BackColor = RGB(255, 153, 204)
         Case "EFN": TBx.BackColor = RGB(255, 153, 204)
         Case "AM": TBx.BackColor = RGB(255, 0, 0)
            TBx.ForeColor = &HFFFFFF: TBx.Font.Bold = True
         Case "JCN": TBx.BackColor = RGB(153, 204, 0)
         Case "HAR": TBx.BackColor = RGB(204, 204, 255)
         Case "RSU": TBx.BackColor = RGB(255, 204, 153)
         Case "REC": TBx.BackColor = RGB(255, 255, 255)
         Case "GRV": TBx.BackColor = RGB(153, 102, 51)
            TBx.ForeColor = &HFFFFFF: TBx.Font.Bold = True
         Case "FOS": TBx.BackColor = RGB(164, 82, 0)
            TBx.ForeColor = &HFFFFFF: TBx.Font.Bold = True
         Case "FOSN": TBx.BackColor = RGB(164, 82, 0)
            TBx.ForeColor = &HFFFFFF: TBx.Font.Bold = True
         Case "DEL": TBx.BackColor = RGB(164, 82, 0)
            TBx.ForeColor = &HFFFFFF: TBx.Font.Bold = True
         Case "DELN": TBx.BackColor = RGB(164, 82, 0)
            TBx.ForeColor = &HFFFFFF: TBx.Font.Bold = True
         Case "ACTP": TBx.BackColor = RGB(0, 0, 0)
            TBx.ForeColor = &HFFFFFF: TBx.Font.Bold = True
         Case "AAN": TBx.BackColor = RGB(166, 166, 166)
            TBx.ForeColor = &HFFFFFF: TBx.Font.Bold = True
         End Select
      Next L
   Label366.Visible = L > 366: TextBox366.Visible = L > 366
End Sub
Cliquez pour agrandir...
Excuse-moi de t'embêter encore une fois, j'essaye de modifier le format dans le label pour mettre "dim 01" par exemple et pouvoir également mettre une couleur si c'est un dimanche ou jours fériés.
Si tu as l'idée voici la plage de cellule oùsont noté les jours fériés sur mon fichier final (BDD27:BDD39) car j'essaye de percer ton code mais trop avancer pour moi pour le coup 😳
 
Vote positif 0 Vote négatif
ChTi160

ChTi160

XLDnaute Barbatruc
Bonjour thunder23
Bonjour Bernard
Ce que j'ai mis pour colorer les Sam et Dim
VB: 
Lab.Caption = Application.Proper(Format(TDon(L, 1), "ddd d")) 'j
Lab.BackColor = IIf(Weekday(TDon(L, 1), vbMonday) = 6, vbYellow, IIf(Weekday(TDon(L, 1), vbMonday) = 7, vbRed, vbWhite))
j'ai aussi une question pour Bernard si je peux me permettre
pourquoi déclares tu "TDon()" et non "TDon"
merci par avance
Jean marie
 
Vote positif 0 Vote négatif
Dranreb

Dranreb

XLDnaute Barbatruc
ChTi160 à dit:
pourquoi déclares tu "TDon()" et non "TDon"
Cliquez pour agrandir...
Je ne vois pas l'intérêt de travailler avec un Variant contenant un tableau quand il est possible de travailler directement avec un tableau. Ce n'est pas toujours possible, quand par exemple ce sont plusieurs tableaux rangés dans une Collection ou un autre tableau, qu'on veut pouvoir parcourir avec un For Each, car seuls les objets et les Variant sont acceptés dans une telle boucle.
 
Dernière édition:
Vote positif 0 Vote négatif
thunder23

thunder23

XLDnaute Occasionnel
Bonjour le forum,

J'ai trouvé ce code sur un autre forum, ça à l'air d'être se que je souhaite mais je n'arrive pas à l'adapter à mon UserForm, ça me met error 424 ! 😭

VB: 
Private Sub TestLBL()
Dim i%
  For i = 1 To 366 'boucle pour la création des objets textbox
    If frmCalendrier.Controls("Label" & i).Caption = "" Then frmCalendrier.Controls("Label" & i).BackColor = &H80000005: GoTo suite
      If WorksheetFunction.CountIf(Feuil3.Range("AJ27:AJ39"), DateSerial(Feuil3.Range("AG12").Value, Feuil3.Range("AI4").Value, frmCalendrier.Controls("Label" & i).Caption * 1)) > 0 Then  'Si le text de ce label est fériés alors
          frmCalendrier.Controls("Label" & i).BackColor = RGB(255, 0, 0)  'On colorie le fond du label en rouge
      Else 'sinon
          frmCalendrier.Controls("Label" & i).BackColor = &H80000005 ' on colorie le texte du label en blanc
      End If
suite:
  Next i
End Sub
 
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)
3 4 5
Réponses
66
Affichages
2 K
Dudu2
Dudu2
T
  • Résolu(e)
XL 2019 Contrôle de saisie dans un USF
Réponses
4
Affichages
255
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
444
seby93
S
J
  • Résolu(e)
XL 2021 Coloriser une cellule avec un click d'une colonne
Réponses
10
Affichages
201
TooFatBoy
TooFatBoy
JTE
  • Résolu(e)
XL 2010 Excel : Zone impression et Zone texte...
Réponses
5
Affichages
437
JTE
JTE
chris6999
  • Question
Microsoft 365 Copier une plage vers une autre feuille depuis un USF
Réponses
4
Affichages
189
chris6999
chris6999
S
  • Question
XL 2021 Actualiser un label dans un USF en permanence depuis une feuille excel
Réponses
7
Affichages
185
TooFatBoy
TooFatBoy
R
  • Question
Microsoft 365 VBA Excel PowerPoint
Réponses
5
Affichages
271
Rem6610
R
Z
  • Résolu(e)
Microsoft 365 Mise en forme de QRCodes dans un model
Réponses
6
Affichages
230
Zaadox
Z

Membres actuellement en ligne

15 membres et 96 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
315 085
Messages
2 116 074
Membres
112 650
dernier inscrit
badi44