recherche en VBA dans une base de donnée excel

Version imprimable

23/06/2008, 20h52
INCO13

recherche en VBA dans une base de donnée excel

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.
24/06/2008, 08h36
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 +
24/06/2008, 10h02
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.
24/06/2008, 11h49
casefayere

enfin,

ci-joint un exemple, j'espère que ça ira
24/06/2008, 12h00
mayekeul

et qu'est-ce qui ne va pas?
24/06/2008, 12h35
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.

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:

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

24/06/2008, 13h18
INCO13

encore moi

je suis d'accord avec cette facon de faire mais sa ne veut pas marcher j'ai decider de t'envoyer tout mon ptograme tu le trouvera sous le userform client
24/06/2008, 13h25
INCO13

1 pièce(s) jointe(s)

exuse

voisi ma version
en esperant que sa t'aide a me comprendre
24/06/2008, 13h37
casefayere

Je viens de regarder 2 secondes ton fichier et je ne vois pas l'intérêt d'un combobox, as-tu l'intention de changer les données à l'intérieur de celui-ci ? sinon une listbox suffit

au fait, d'après tes feuilles la plage commence à a3, a2 représentant les entetes
24/06/2008, 13h41
INCO13

donc tu me propose quoi une liste déroulante pour les destination et une liste box pour les dates? si c sa le code sa serait koi?
je te remerci du temps que tu consacre a m'aider.
24/06/2008, 13h43
casefayere

une listbox pour les deux mais il faudrait que je regarde mmieux car apparemment tu n'as qu'une date par pays donc la solution devrait etre plus simple

voici les corrections

tu faisait référence à listbox1 -> je l'ai supprimé

Code:

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
Dim voyage As String, quand As String
Dim y As Integer
 
Sheets("bd").Activate
y = Sheets("bd").Range("a3").End(xlDown).Offset(0, 0).Row
destination.RowSource = "a3:a" & y
 
End Sub

tu essayais d'ajouter sur destination et non sur datecmd

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub destination_Change()
Dim str As String, cel As Range
datecmd.Clear
    str = destination.Value
    With Worksheets("voyage")
    For Each cel In .Range("a2:b" & .Range("a" & Rows.Count).End(xlUp).Row)
        If cel = str Then
            With datecmd
              .AddItem cel(1, 2)
            End With
        End If
    Next cel
    End With
End Sub

24/06/2008, 13h58
INCO13

je vous remerci encore pour votre aide sa marche corectement.
merci