Discussion :

[DylanKiller]

Bonjour!

Je suis en train de travailler sur VBA et je rencontre une difficulté au niveau de mes listes déroulantes.

J'en ai 3 , une pour le jour, une pour le mois et une pour l'année.

Je les ai paramétrées de telle sorte a ce qu'elle ne puisse pas donner de dates fausse par exemple c'est impossible de sélectionner 31 juin 2021 ou 29 février 2021.

Cela fonctionne bien mais par contre , si j'ai sélectionner par erreur le 31 dans ma liste Jour , ma liste Mois est paramétrée pour me donner seulement les mois où cela est possible et donc si je sélectionne 30 elle ne se met pas a jour.

Comment je pourrais faire pour mettre a jour mes listes a chaque changement de celle qui les paramètre et non pas seulement au premier changement de ces dernières.

J'espère que j'ai été clair, n'hésitez pas a me questionner !

Merci d'avance

Ewen

[ChristianBosch]

Salut, si j'ai bien compris tu veux mettre à jour tes listes a chaque fois qu'il y en a une qui change ?

Il faut utiliser l’événement change de ta listbox.

Tu fait 3 fonctions de mise à jour (1 par listbox) et a chaque fois que tu change une des listbox tu appelle les fonction de mise à jour des deux autres.

Ca me parait être le plus simple.

[DylanKiller]

En fait c'est déjà ce que j'ai fait le problème c'est la mise à jour.
Dans Jour_Change() je paramètre la liste Mois et ca marche bien. Par exemple je rentre 31 en Jour et la liste Mois affiche Janvier,Mars,Mai,Juillet,Aout,Octobre,Décembre donc très bien. Mais si je change le Jour et que je met par exemple 5 , la liste Mois ne se met pas a jour !

[ChristianBosch]

Je pense qu'il serait plus simple de nous mettre le morceau de code qui fait la mise a jour

[DylanKiller]

Bonjour,

j'ai réussi a filouter et a éviter le problème.


Cependant, je suis à présent confronté à un autre problème , que je trouve très incohérent:

J'ai 2 UserForm. Dans l'un je peux ajouter une valeur dans une feuille sur la ligne 2. Cette valeur se vient remplacer la 1ere cellule vide de la ligne en partant de la gauche. Jusque la pas de problème.
Dans mon autre USF se trouve une liste déroulante qui doit contenir toutes les valeurs de la ligne 2. Pour cela , dans le UserForm_Initialize() je remplis cette ComboBox. Le problème c'est que malgré la paramétrisation dans l'initialisation de l'USF, cette ComboBox ne prend pas en compte les changements récents , c'est a dire les ajout depuis l'ouverture du premier USF.

Pour que la mise a jour se fasse , il faut que je ferme tout et que je relance mon programme VBA. J'ai mis un bouton pour actualiser la liste déroulante avec EXACTEMENT le même code que dans l'initialisation , avec un .Clear avant tout de même, et cela fonctionne parfaitement.

Je ne sais pas si j'ai été bien clair je vais mettre un exemple en dessous, j'aimerai bien comprendre ce qui cloche , je pense que je ne saisit pas forcément toute la subtilité de la fonction UserForm_Initialize.


Exemple:
Je lance mon programme. Dans ma feuille , la cellule A2= Blanc , et B2= Noir . Dans mon premier USF je rentre dans une TextBox : "Jaune". je clique sur mon bouton Valider et la cellule C2 prend la valeur "Jaune".

A l'aide d'un bouton j'ouvre mon 2eme USF où ce trouve la fameuse ComboBox récalcitrante. En effet quand je clique dessus , elle m'affiche uniquement "Blanc" et "Noir".
Pour que le "Jaune" apparaisse je doit quitter le programme VBA et le relancer , ou appuyer sur mon super bouton actuliser.

Voila j'espere que j'ai été clair , n'hésitez pas à me faire savoir dans le cas contraire

A vous lire,
Ewen