Combobox récalcitrantes

[13GIBE59]

Bonjour le forum. 🙂

Les valeurs sélectionnées dans mes combobox ne veulent pas s'afficher dans celles-ci.
J'aimerais bien comprendre le phénomène. 😕
Tout est expliqué dans le fichier joint.

Merci d'avance. 😀

 

[Guest]

Re : Combobox récalcitrantes

Bonjour,

Une version avec nommage dynamiques des cellules de Date (nom=LesDates) et liste de validation (E2; F2) et affichage message en E3 si mauvaise dates choisies.

Et une version avec combobox et macros (V2) et sans ListFillRange (qui complique les choses)

A+

 

[13GIBE59]

Re : Combobox récalcitrantes

Bonjour Hasco. 🙂

Merci pour cette solution rapide et efficace. Je vais essayer de m'en inspirer dans mon fichier, où l'affaire est un peu plus compliquée...
A plus.

 

[Guest]

Re : Combobox récalcitrantes

Re,

Je viens de te remettre une version avec combobox et macros dans mon post précédent.

A+

 

[13GIBE59]

Re : Combobox récalcitrantes

Merci Hasco.

Mais soit je n'ai pas compris, soit ta version V2 est inopérante...😕
A plus.

 

[Guest]

Re : Combobox récalcitrantes

RE,

Les codes qu'on donne ici ne sont qu'exemplaires, à toi de réfléchir dessus et de voir comment tu peux adapter, tu n'es plus un néophyte.

Regarde le code:

Les combobox sont chargées par la macro ChargerCombobox, appelée sur WorkSheet_Activate (lors de l'activation de la feuille) ou sur changement d'une cellule de dates:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("LesDates")) Is Nothing Then ChargerCombobox
End Sub

Ce qui permet de gérer les modifications, ajouts, suppression de dates.

Donc à l'ouverture du classeur tu peux soit activer manuellement la feuille en sélectionnant une autre puis la resélectionnant, soit par macro

Mets dans un module de code en remplacement de la macro privée du module de la feuille:

Sub ChargerCombobox()
 With Sheets("Feuil1")
    .ComboBox1.List = Application.Transpose(Range("LesDates").Value)
    .ComboBox2.List = Application.Transpose(Range("LesDates").Value)
 End With
End Sub

Puis dans le module ThisWorkBook:

Private Sub Workbook_Open()
    ChargerCombobox
End Sub

Qui se chargera du remplissage des combobox à l'ouverture du classeur.

A+

 

[13GIBE59]

Re : Combobox récalcitrantes

Grand grand merci Hasco. 😀

Même si tu penses que je ne suis plus un néophyte, jamais je n'aurais trouvé sans ton aide.

Grande classe...

Au plaisir. 😉