Discussion :

[Pat97313]

Bonjour le forum,

J'ai chercher, mais je n'ai pas trouvé sur le forum comment résoudre mon problème. (j'ai sûrement dû mal chercher)
Voila, j'ai un tableau avec 3 colonnes et 365 lignes (1ere colonne les dates, 2eme colonne l'éphéméride et 3eme colonne les anniversaires (nom de personnes proches). les lignes en colonne 1 vont du 01/01/2024 au 31/12/2024.
Dans le même fichier, j'ai un UserForm avec un ComboBox pour les dates, un Label pour afficher l'éphéméride et un autre Label pour afficher le nom de la personne (le jour de son anniversaire) si il y a un anniversaire le jour affiché dans le ComboBox.
Au lancement de l'UserForm, la date du jour est affichée dans le ComboBox au format "dddd dd mmmm yyyy".
Je n'arrive pas à faire afficher l'éphéméride et l'anniversaire dans mes 2 Labels. Lorsque je click sur mon ComboBox, la liste déroulante est au format "dd/mm/yy" je souhaiterais l'avoir au même format que le Combo et je n'arrive toujours pas à remplir mes 2 Labels. Quelqu'un peut-il m'aider svp ? si j'ai été assez clair bien sûr. Par avance merci

[Pat97313]

Bonjour,

Personne ne peut me répondre ?

[Philippe Tulliez]

Bonjour,
Pour vous aider efficacement, il faudrait donner un peu plus d'éléments
Pouvez-vous publier la procédure qui alimente votre ComboBox ainsi que le code de la procédure événementielle qui alimente le TextBox ainsi qu'une illustration de votre table de données avec quelques lignes.

[Pat97313]

Bonjour M. TULLIEZ et merci de vous intéresser à mon problème qui est en grande partie résolu grâce à "vos réponses" aux autres utilisateurs.
Le seul problème qu'il me reste est d'avoir le ComboBox au format "dddd dd mmmm yyyy" au lieu de l'avoir au format "dd/mm/yy" (format actuel).
voici mes lignes de code (résumé):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub UserForm_initialize()
  On Error Resume Next
        Set sh = Sheets("Paramètres")
 
' Charger le ComboBox Date
        Set Rng = sh.Range("A3:C" & sh.[A369].End(xlUp).Row)
        Me.cbo_date.List = Rng.Value
        Me.cbo_date = Format(Me.cbo_date, "dddd dd mmmm yyyy")
End Sub

Le Combobox : ColumnCount=3; ColumnWiths=260pt;0pt;0pt (le problème ne viendrait-il pas de là ?)

[Philippe Tulliez]

Bonjour,
La valeur de la propriété ColumnWidths est une chaîne de caractères donc à placer entre les guillemets voir l'exemple ci-dessous et de grâce, utilisez les tableaux structurés au lieu de plage classique. C'est bien plus simple à utiliser.
Je ne comprends pas l'usage de la ligne de code On Error resume next. C'est un cache misère

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Main()
  Dim rng As Range
  Dim t As Variant
  Set rng = Range("t_Contrat") ' Tableau structuré
  With UserForm1
    With .ComboBox1
    .List = rng.Value
    .ColumnCount = rng.Columns.Count
    .ColumnWidths = "50;60;60"
    End With
  .Show
  End With
End Sub

[Pat97313]

Merci Monsieur TULLIEZ pour vos remarques, j'ai modifié mes lignes de code en tenant compte de vos commentaires, (tableau structuré et "On Error Resume Next" supprimé) mais mon problème initial de format date dans la liste déroulante n'est pas résolu, auriez vous une suggestion svp ?

[Philippe Tulliez]

Bonjour,
Sauf erreur de ma part, la propriété List de l'objet ComboBox ne permet pas de définir un format pour une colonne précise et le format de la date est par défaut soit "dd-mm-yy" ou "dd-mm-yyyy".
Pour appliquer un format à la colonne, il faut passer par la méthode AddItem
Cependant, rien n'empêche d'avoir les dates du ComboBox au format "dd-mm-yy" et appliquer un autre format pour le TextBox. C'est le choix que je ferais car la propriété List est plus simple à gérer. Une seule ligne d'instruction pour charger une table entière.

[Pat97313]

Excusez moi si je me suis mal exprimé, en fait mon ComboBox est bien au format souhaité, mais est-il possible de modifié le format uniquement de la liste déroulante lorsque je click sur ce ComboBox ?

Et, serait-il possible aussi que la liste déroulante se positionne sur la date du jour au lieu de se positionner au 01/01/2024 ?

[Philippe Tulliez]

Bonjour,
En ce qui concerne la sélection de la date du jour, il faut passer la date du jour comme valeur à la propriété Value du Combobox
En ce qui concerne, le formatage de la ligne de sélection, ne l'ayant jamais fait, je dois chercher et pour l'instant, je n'ai pas trop de temps à consacrer à cela mais j'ai une suggestion en attendant qu'un autre contributeur trouve la solution si elle existe.
Prévoir un TextBox à placer au-dessus du ComboBox et formater la date dans du TextBox

Exemple de la procédure événementielle Change du ComboBox (Le TextBox se nomme txt_DateSelected)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub ComboBox1_Change()
  Me.txt_DateSelected.Value = Format(Me.ComboBox1.Value, "dddd, d mmmm yyyy")
End Sub

Code de la procédure qui lance le UserForm (dans un module Standard)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Main()
  Dim rng As Range
  Dim t As Variant
  Set rng = Range("t_Contrat") ' Tableau structuré
  With UserForm1
    With .ComboBox1
    .List = rng.Value
    .ColumnCount = rng.Columns.Count
    .ColumnWidths = "50;60;60"
    .Value = Date
    End With
  .Show
  End With
End Sub

[Pat97313]

Merci beaucoup pour le temps que vous m'avez consacré, je vais faire comme vous me le dite, avec un TextBox en attendant que quelqu'un ai la solution.
Encore merci.