Discussion :

[Tontorise]

Bonjour,
J'aurais voulu savoir comment créer des liens entre 2 zones de liste. Je m'explique. Je possède une liste de date allant du 1er janvier au 30 avril. Je voudrais que lorsque l'utilisateur saisi, par exemple, le 3 février dans la première liste, il n'ai plus le choix qu'entre les dates allant du 4 février au 30 avril sur la seconde.
Je sais pas si c'est faisable mais j'imagine que oui.
Par avance, merci !

[SfJ5Rpw8]

elles sont "remplies" comment tes liste ..?

[La Praline]

Bonjour,

En effet cela n'a pas l'air de défier les lois de la programmation.

Cependant en lisant ton post je me pose une seule question: As-tu ne serait-ce qu'essayé de le faire ???


Non je demande ça parce que ca ressemble à une idée que tu as eu et que tu voudrais bien ajouter à ton programme sans qu'il n'y est un gros travail de développement (au moins pour toi...).

En gros j'ai l'impression que tu demandes le code tout fait qui va bien...


Si je me trompe, il serait profitable de voir ton code afin de t'aiguiller dans ton developpement...


Cordialement

[Tontorise]

Je vais décrire mon problème. Je n'ai pas de grosses connaissances en Visual Basic. Pour remplir mes listes, j'utilise le menu Données / Validation... et je créé une zone de liste.
Dans un premier temps, je disposais d'une liste de date sur une autre feuille excel pour créer la première zone de liste. Par la suite, à l'aide de tests, je n'ai copié dans une deuxième colonne que les dates qui étaient postérieures à la date saisie dans ma première zone de liste. J'ai ainsi pu créer la deuxième zone de liste. Le problème étant que même en cochant la case "ignorer si vide", les cases vide s'affichent quand même dans ma zone de liste et j'ai ainsi une zone de liste de 65536 lignes avec mes 120 dates et 65416 blancs. C'est pas très propre. Je me suis donc dit qu'avec un programme Visual Basic, ce serait plus lisible. Le problème, c'est que je ne sais pas encore comment remplir une zone de liste.

[SilkyRoad]

bonsoir

Tu n'as pas besoin de macro pour faire ça:

Si par exemple les dates sont dans la Feuil2, à partir de la cellule A1:


Menu Insertion/Nom/Définir
Tu spécifies un nom (NomPlage)
Dans le champ "Fait référence à:", tu indiques:
=DECALER(Feuil2!$A$1;EQUIV(Feuil2!$D$4;Feuil2!$A:$A);0;NB(Feuil2!$A:$A))
Tu cliques sur le bouton Ajouter, puis sur OK pour valider

Feuil2!$D$4 correspond à la cellule qui contient la premiere liste de validation (la liste totale des dates de la colonne A).



Sélectionne la cellule qui va contenir la deuxieme liste de validation (dans la même feuille pour cet exemple)
Menu données/Validation
dans le champ Autoriser:, tu sélectionnnes "Liste".
dans le champ "Source", tu saisies =NomPlage
Clique sur le bouton OK pour valider


michel

[ouskel'n'or]

Tu peux aussi faire ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub ListBox1_Click()
ListBox2.Clear
UneDate = CDbl(CDate(ListBox1.List(ListBox1.ListIndex + 1) & "/" & Year(Now)))
For LaDate = UneDate To For LaDate = UneDate To CDbl(CDate("30/04/" & Year(Now)))
 
    ListBox2.AddItem Format(LaDate, "dd mmmm")
Next
 
End Sub
 
Private Sub UserForm_Initialize()
 
For LaDate = CDbl(CDate("01/01/" & CStr(Year(Now)))) To CDbl(CDate("30/04/" & CStr(Year(Now))))
    ListBox1.AddItem Format(LaDate, "dd mmmm")
Next
End Sub

Listes placés dans un userform