Discussion :

[basto]

Bonjour

J'ai un fichier Excel depuis lequel je peux lancer plusieurs formulaires.

Dans un des formulaires j'ai une liste (13 colonnes) que je souhaite mettre à jour depuis une requête SQL dans une base Access.

J'ai effectué la requête, l'ai exécuté puis récupéré l'ensemble des enregistrements.

Mon souci est que pour avoir la liste de tous les enregistrements, j'utilise GetRows qui me retourne un tableau à 2 dimensions (13, nombre d'enregistrement)

et que la liste ne comprend pas cette dimension mais attend plutôt un tableau (Nombre d'enregistrement, 13).

Existe t'il un moyen de forcer la liste à bien prendre en compte mon tableau ?
Faut il que je recopie tous les enregistrements dans un tableau ayant les bonnes dimensions ? Si oui, existe t'il une méthode simple et rapide ?

D'avance merci pour votre retour
Bonne journée

[joe.levrai]

Bonjour,

transpose ton tableau, pour inverser les lignes et les colonnes

Code :

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

MonTableauBis = Application.Transpose(MonTableauDeDepart)

MonTableauDeDepart (Nombre d'enregistrement, 13) devient MonTableauBis (13,Nombre d'enregistrement) (ou inversement !)

attention, il ne faut pas que l'indice maximal d'une dimension dépasse 65534 (2* Integer) sinon la tranposition directe n'est pas possible et il faudra découper en blocs de 65534 Max

[Invité]

Bonsoir,
Le problème n'est pas a proprement parler du transpose qui fonctionne comme joe la précisé, mais le fait qu'une liste ne peut contenir plus de 10 colonnes!

[Theze]

Bonjour,

Une ListBox peut contenir même plus de 20 colonnes mais la seule condition pour ça, c'est d'utiliser la propriété RowSource pour la remplir donc, il te faudrait passer par une feuille intermédiaire et définir la propriété RowSource dans ton code sur cette feuille !

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
 
Private Sub UserForm_Initialize()
 
    Dim Plg As Range
 
    'par exemple sur feuille Feuil4
    Set Plg = DefPlage(Worksheets("Feuil4"), 1, 1)
 
    If Plg Is Nothing Then Exit Sub 'éventuellement un message !
 
    ListBox1.ColumnCount = Plg.Columns.Count
    ListBox1.RowSource = Plg.Address
 
End Sub
 
Function DefPlage(Fe As Worksheet, L As Long, C As Long) As Range
 
    On Error GoTo Fin
 
    With Fe
 
        Set DefPlage = .Range(.Cells(L, C), _
                       .Cells(.Cells.Find("*", .[A1], -4123, , _
                       1, 2).Row, .Cells.Find("*", .[A1], -4123, , _
                       2, 2).Column))
 
    End With
 
    Exit Function
 
Fin:
 
    Set DefPlage = Nothing
 
End Function