Discussion :

[Swiper]

Bonjour à tous,

Aujourd'hui j'ai une petite question qui ne prendra pas beaucoup de temps à expliquer.
Dans un userform, je voudrais que lorsque l'on remplis 2 combobox, alors une 3 eme apparait avec comme sélection à l'intérieur des données trouvées grace à la selection des 2 autres combobox.

En fait, faire : Si combobox1 et Combobox2 sont modifié alors Combobox3 apparait et combobox3 pointe vers la selection trouvée grace aux 2 combobox.
Je voudrais trouver un evenement qui check les modifications dans l'userform.

Si je suis pas clair demandez moi.

[jfontaine]

Tu peux créer une sub qui test si tes 2 premieres combo sont vide.
Si elles sont rempli tu affiches la troisieme

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 ComboBox1_Change()
test
End Sub
 
Private Sub ComboBox2_Change()
test
End Sub
 
Sub test()
 
If ComboBox1.Text <> "" And ComboBox2.Text <> "" Then
    ComboBox3.Visible = True
End If
 
End Sub

[Swiper]

Si, si tu es sur la bonne voie, c'est par la que j'ai commencé. J'ai mis dans l'userform :

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
17
18
19
20
21
22
23
24
25
sub ComboboxG_after_update()
 
variableG = True
 
action
 
end sub
 
sub ComboboxB_after_update()
 
variableB = True
 
action
 
end sub
 
function action()
 
if variableG = true and variableB = true then
 
ComboBox3.visible = true
 
end if
 
end function

Ca marche !

Mais bizarrement mon 3eme combo box me permet de bien choisir les dates que je cible mais quand je selectionne une date elle se transforme en chiffre à virgule...

Peut être parce que dans la selection il y a des lettres et pas que des dates.

[jfontaine]

Mais bizarrement mon 3eme combo box me permet de bien choisir les dates que je cible mais quand je selectionne une date elle se transforme en chiffre à virgule...

Peut être parce que dans la selection il y a des lettres et pas que des dates.

peux tu donner un exemple, parceque la je ne comprend pas

[Swiper]

En fait, lorsque l'userform est lancé, dans la selection de la combobox3 je vois les dates dans ce format : xx/xx/xxxx xx:yy
Seulement j'ai pris en référence à cette combobox une colonne entière, qui inclue donc le titre de la colonne "Date_mesure". Si je choisis une date elle se transforme une fois que j'ai cliqué dessus sous la forme de 3399,8883483, alors je comprend pas.

Je me dis que si ca se trouve c'est à cause du fait que j'ai ciblé la colonne entière avec le titre, VB me prend alors les dates mais les transforme ensuite en chiffre... enfin c'est ce que je pense, ca n'a rien de sur. Dis moi si tu me comprends.

[jfontaine]

En effet je reproduit ca aussi.
J'ai utilisé le rowsource de D2 a D6 sans le titre et j'ai le meme problème.

Pour charger ta combo utilise ce code. Ca affiche bien les dates

Code :

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

1
2
3
4
5
6
7
8
 
Dim i As Long
i = 2
Do While Not Feuil1.Range("D" & i).Text = ""
 
    ComboBox3.AddItem Feuil1.Range("D" & i).Text
    i = i + 1
Loop