Requête croisée dynamique dans un état

**skeut** · 02/12/2008, 20h58

Bonjour,

j'ai récupérer ce code qui correspond exactement à mes besoins:

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
Sub TransfertRequete()
Dim rst As DAO.Recordset
Dim avarValeurs As Variant
Dim intLignes As Integer, intColonnes As Integer
Dim intLig As Integer, intCol As Integer
 
' Ouvrir la requête
Set rst = CurrentDb.OpenRecordset( _
    "RAP_Hotesses4_ELIS", _
    dbOpenSnapshot)
 
' Lire le contenu de la requête
' et le transférer dans un tableau VBA
avarValeurs = rst.GetRows(20)
 
' Les indices minimum démarrent à 0
' Lire les indices maximum
intColonnes = UBound(avarValeurs) + 1
intLignes = UBound(avarValeurs, 2) + 1
 
' Afficher quelques infos
'Debug.Print "Nombre de colonnes/champs : " & intColonnes
'Debug.Print "Nombre de lignes/enregistrements : " & intLignes
'Debug.Print "-----"
 
' Afficher les titres des colonnes
For intCol = 0 To intColonnes - 1
    Debug.Print rst.Fields(intCol).Name & " | ";
Next
Debug.Print
 
' Afficher le contenu du tableau VBA
For intLig = 0 To intLignes - 1
    For intCol = 0 To intColonnes - 1
        Debug.Print avarValeurs(intCol, intLig) & " | ";
    Next
    Debug.Print
Next
 
' On ferme !
rst.Close
Set rst = Nothing
End Sub

Il affiche ma requête croisé dynamique dans la fenêtre exécution:

IDPresentation | NomHotesse | DatePresentation | Action | Cosmétique | Divers | Maquillage | OFFRE | Oriflame |
600014 | Hotesse1 | 15.01.2008 | 146 | 1003.9 | 5.4 | | | 59.6 |
600016 | Hotesse2 | 18.01.2008 | 136 | 686.5 | 10.5 | | | |

Je souhaiterais afficher ce résultat dans un état, sachant que le nombre de colonnes (Action, Cosmétique...) est variable.

J'ai essayé d'afficher cela dans un état mais je n'y arrive pas. Est-ce que l'un d'entre aurait un conseil à me donner?

merci d'avance.
skeut