XL 2019 Faire comuniquer un tabeau Excel avec un Userform

thunder23 · 21 Juillet 2021

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

Dranreb · 21 Juillet 2021

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 · 28 Juillet 2021

Dranreb à dit:
Bonjour.
N'ayant pas vu dans votre classeur joint au #5 de Feuil3 avec des dates fériées en AJ27:AJ39 pour pouvoir tester, je vous propose cette solution

Bonjour,

ah oups sincèrement désolé de ne pas avoir cette démarche, toutefois l'autre approche est top.
Par contre la fonction weekday devient muette avec la fonction EstFérié est-ce normal?
Voilà comment le code sur mon fichier final

VB:

Lab.Caption = Format(TDon(L, 1), "ddd d")
Lab.ForeColor = IIf(Weekday(TDon(L, 1), vbMonday) = 7, vbRed, vbBlack)
Lab.BackColor = IIf(EstFérié(TDon(L, 1)), &H66FF66, &HCCFFCC)
Lab.ForeColor = IIf(EstFérié(TDon(L, 1)), &HC0, vbBlack)
Lab.Font.Bold = IIf(EstFérié(TDon(L, 1)), True, False)

Dranreb · 28 Juillet 2021

Mettez l'instruction à la fin si elle doit primer sur les autres
et Lab.Font.Bold = EstFérié(TDon(L, 1)) devrait suffire !
Je trouve aussi que ce serait mieux d'avoir dans une feuille un tableau des couleurs en fonction des codes. Ça vous intéresserait ?

thunder23 · 28 Juillet 2021

Dranreb à dit:
Mettez l'instruction à la fin si elle doit primer sur les autres
et Lab.Font.Bold = EstFérié(TDon(L, 1)) devrait suffire !
Je trouve aussi que ce serait mieux d'avoir dans une feuille un tableau des couleurs en fonction des codes. Ça vous intéresserait ?

Ok d'accord, en fait je pense que les deux Forecolor doivent fait doublon et une prend le dessus sur l’autre car je viens de déplacer celle pour le dimanche et ça m'a enlevé la couleur sur le jour férié.

Ahhh oui si c'est possible je suis preneur !

Dranreb · 28 Juillet 2021

La version avec une table des couleurs, que vous pouvez reparamétrer aisément.

thunder23 · 28 Juillet 2021

Dranreb à dit:
La version avec une table des couleurs, que vous pouvez reparamétrer aisément.

Ouah il est génial, merci beaucoup !

thunder23 · 28 Juillet 2021

Re bonjour Danreb,

J'essaye de prendre ta manière pour emplir cette fois des Combobox mais ça me met une erreur 13.
Est-ce que tu aurais une piste sur ce sujet?

Dranreb · 28 Juillet 2021

Il n'y a pas de feuille "BDD" dans votre nouveau classeur
Et par ailleurs la méthode Cells ne supporte pas un objet Range comme 1er argument, il faut un numéro de ligne. Vous devriez mettre Option Explicit au début de vos modules et typer explicitement vos variables.

thunder23 · 28 Juillet 2021

Dranreb à dit:
Il n'y a pas de feuille "BDD" dans votre nouveau classeur
Et par ailleurs la méthode Cells ne supporte pas un objet Range comme 1er argument, il faut un numéro de ligne. Vous devriez mettre Option Explicit au début de vos modules et typer explicitement vos variables.

Effectivement dans la précipitation pour faire un classeur test j'ai oublié de nommer la feuille BDD.
Ah d'accord par contre je ne vois pas quoi mettre à la place pour le coup.
L'option explicit est identique que dans la première phrase.
Pour Range , Set Li = Sheets("BDD").Range("B2:C13") ne suffit pas?

thunder23 · 28 Juillet 2021

Le voilà avec les modifications que j'ai oublié de mettre

Dranreb · 28 Juillet 2021

Disons que si au lieu de le laisser assumer Li As Variant vous le déclarierz soit As Range soit As Long, vous verriez mieux dans laquelle des deux intructions il n'est pas applicable.

Dranreb · 28 Juillet 2021

En fait c'est probablement ça que vous vouliez faire :

VB:

Private Sub Userform_Initialize()
   Dim Li As Range, h As Integer
   Set Li = Sheets("BDD").Range("B2:C13")
   For h = 1 To 12
      Me("ComboBox" & h).Value = Li(h, 1).Value
      Me("ComboBox" & h + 12).Value = Li(h, 2).Value
      Next h
   End Sub

thunder23 · 28 Juillet 2021

Oui tout à fait !

En fait je notais deux fois le sheets alors que j'ai fais une variable au-dessus

Par contre si je veux modifier se qui est noté dans le tableau par la Combobox, j'ai juste à inverser le code ?

VB:

Li(h, 1).Value = Me("ComboBox" & h).Value
Li(h, 2).Value = Me("ComboBox" & h + 12).Value

Dranreb · 28 Juillet 2021

Oui, à peu près, pour des textes en tout cas c'est ça.

thunder23 · 28 Juillet 2021

Voilà se que ça donne, le seul problème est que ça ne modifie pas le contenu de la cellule.

Est-ce que je suis obliger de faire autrement ?

VB:

Private Sub ComboBox_Change()
        Dim Li As Range, h As Integer
        Set Li = Sheets("BDD").Range("L470:M481")
        For h = 1 To 12
        Li(h, 1).Value = Me("ComboBox" & h).Value
        Li(h, 2).Value = Me("ComboBox" & h + 12).Value
        Next h
End Sub

Dranreb · 28 Juillet 2021

Ce n'est pas la même plage qu'en entrée ?
Et par ailleurs il y a aussi un contrôle ComboBox ?
Vous n'allez pas écrire 24 ComboBoxn_Change quand même ?
Prévoyez plutôt un CommandButton

XL 2019 Faire comuniquer un tabeau Excel avec un Userform

thunder23

XLDnaute Occasionnel

Pièces jointes

Dranreb

thunder23

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

thunder23

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Pièces jointes

thunder23

XLDnaute Occasionnel

thunder23

XLDnaute Occasionnel

Pièces jointes

Dranreb

XLDnaute Barbatruc

thunder23

XLDnaute Occasionnel

thunder23

XLDnaute Occasionnel

Pièces jointes

Dranreb

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

thunder23

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

thunder23

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Discussions similaires