Bonjour,
Excel me résiste !
Dans un formulaire, je dispose de plusieurs boîtes à texte qui me permettent de saisir des critères de recherche. Cette recherche porte sur les données d'une requête.
En gros, sur les 5000 lignes de la table, par les critères (activés avec des cases à cocher), je peux parvenir à n'en sortir qu'une seule ou bien 4000 (par exemple). Ces lignes apparaissent dans ce même formulaire, dans un tableau listant les résultats. Voici le code propre menant à cette liste :
Puis
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 Private Sub Form_Load() Dim ctl As Control For Each ctl In Me.Controls Select Case Left(ctl.Name, 3) Case "chk" ctl.Value = -1 Case "lbl" ctl.Caption = "- * - * -" Case "txt" ctl.Visible = False Case "cmb" ctl.Visible = False End Select Next ctl Me.lstResults.RowSource = "SELECT CP, SN, Ti, Au, Pa, Concat, Pp, Pe, Th FROM ConcatCo;" Me.lstResults.Requery End Sub
Comment exporter, s'il vous plaît, cette liste temporaire vers Excel ?
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 Private Sub RefreshQuery() Dim SQL As String Dim SQLWhere As String SQL = "SELECT CP, SNT, Au, Pa, Concat, Pp, Pe, Th FROM ConcatCo Where ConcatCo!CP <> 0 And not ConcatCo!Concat like ' -' " If Not Me.chkTp Then SQL = SQL & "And ConcatCo!Th = '" & Me.cmbRechTp & "' " End If If Not Me.chkFa Then SQL = SQL & "And ConcatCo!Pe = '" & Me.cmbRechFa & "' " End If If Not Me.chkAn Then SQL = SQL & "And ConcatCo!Pa like '*" & Me.txtRechAn & "*' " End If If Not Me.chkAu Then SQL = SQL & "And ConcatCo!Au like '*" & Me.txtRechAu & "*' " End If If Not Me.chkTi Then SQL = SQL & "And ConcatCo!SNT like '*" & Me.txtRechTi & "*' " End If If Not Me.chkRe Then SQL = SQL & "And ConcatCo!Pp like '*" & Me.txtRechRe & "*' " End If If Not Me.chkCo Then SQL = SQL & "And ConcatCo!Concat like '*" & Me.txtRechCo & "*' " End If SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1)) SQL = SQL & "ORDER BY SNT, Au, Pa, Concat, Pp;" Me.lblStats.Caption = DCount("*", "ConcatCo", SQLWhere) & " occurences" Me.lstResults.RowSource = SQL Me.lstResults.Requery
Merci par avance,
Bk
End Sub
Partager