XL 2019 Faire comuniquer un tabeau Excel avec un Userform

[thunder23]

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

 

[thunder23]

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

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]

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]

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]

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

 

[thunder23]

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

Ouah il est génial, merci beaucoup !

 

[thunder23]

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]

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]

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]

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

 

[Dranreb]

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]

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

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]

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 ?

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

 

[Dranreb]

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

 

[thunder23]

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 ?

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]

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