Discussion :

[INCO13]

bonjour,
je voudrait savoir si quelqu'un connait le moyen de faire une recherche en vba dans une userform afin que celle ci recherche des données que j'aurais sélectionnées précédemment.
je m'explique , je suis entrain de faire un formulaire (userform) dans lequel je choisis une destination (contexte réservation de voyage ) dans une liste déroulante.et je voudrais réaliser une autre liste déroulante avec le résultat de la recherche : cette recherche doit aller dans la base de donnée et sélectionner toute les dates qui correspondent a la destination.
en espérant que vous ayez compris.
Merci.

[casefayere]

Bonjour,
il faudrait savoir comment ta base de donnée est organisée

Je ferai un essai et avec mes petits moyens, te proposerai

a +

[INCO13]

merci d'avoir bien voulut repondre
ce que je peut vous dire c'est que ma base de donne s'appelle "voyage" elle se compose de 2 colonne
ma feuille sur laquelle se trouve ma base de donne s'appelle aussi "voyage"
ma barre de defilement ou se trouve les destination s'appelle "destination"
et enfint la barre de defilement ou je souhaiterai que mes reponse s'affiche pour pouvoir les choisir s'appel "datecmd"
en esperant que vous aiyai compris.
Merci.

[casefayere]

enfin,

ci-joint un exemple, j'espère que ça ira

[mayekeul]

et qu'est-ce qui ne va pas?

[INCO13]

encore merci pour ton aide
coment je fait quand la listebox 1 est une liste deroulante et que je veut que liste box est un eliste deroulante aussi.

[mayekeul]

ton soucis, c'est des menus déroulant à la place des list box alors?

ben c'est pareil excepté que tu ira dans l'événement change

louque

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Option Explicit
 
Private Sub ComboBox1_Change()
Dim str As String, cel As Range
ComboBox2.Clear
    str = ComboBox1.Value
    With Worksheets("feuil2")
    For Each cel In .Range("a2:b" & .Range("a" & Rows.Count).End(xlUp).Row)
        If cel = str Then
            With ComboBox2
              .AddItem cel(1, 2)
            End With
        End If
    Next cel
    End With
End Sub
 
Private Sub ListBox1_Click()
Dim str As String, cel As Range
ListBox2.Clear
    str = ListBox1.Value
    With Worksheets("feuil2")
    For Each cel In .Range("a2:b" & .Range("a" & Rows.Count).End(xlUp).Row)
        If cel = str Then
            With ListBox2
              .AddItem cel(1, 2)
            End With
        End If
    Next cel
    End With
 
End Sub
 
Private Sub ListBox2_Click()
 
End Sub
 
Private Sub UserForm_Initialize()
Dim voyage As String, quand As String
Dim y As Integer
 
Sheets("feuil1").Activate
y = Sheets("feuil1").Range("a2").End(xlDown).Offset(0, 0).Row
ListBox1.RowSource = "a2: a" & y
ComboBox1.RowSource = "a2:a" & y
 
End Sub