Visites

   visiteurs

   visiteurs en ligne

Sujet n°207 Matrice en VBA aie ! aie ! aie
    par marsouin le 07/11/2008 : 05:34

Bonjour Pierre,

J'aimerais utiliser une matrice sous access. J'ai trouvé un code qui est prévu pour Excel et cela ne devrais pas être compliqué à adapter mais une fois de plus, je coince.eek

Le code est en fin de message.

1° : Comment déclarer la variable "matrice" ? A priori, c'est sous forme de tableau mais là encore, je n'en ai pas compris le principe.frown

2° Comment faire référence à une colonne ou une ligne précise (de ma requête par exmple) pour qu'elle soit déclarée dans le tableau ?

Function Transpose(Matrice As Variant) As Variant
Dim Mat_Temp() As Variant

Dim i, j As Long
ReDim Mat_Temp(LBound(Matrice, 2) To UBound(Matrice, 2), _
                LBound(Matrice, 1) To UBound(Matrice, 1))
              
For i = LBound(Matrice(), 2) To UBound(Matrice(), 2)
    For j = LBound(Matrice(), 1) To UBound(Matrice(), 1)
        Mat_Temp(i, j) = Matrice(j, i)
    Next j
Next i
Transpose = Mat_Temp

End Function

Merci de tes précieux conseils car cela fait 3 jours que je galère cry mad 

Marsouin


Réponse n° 1 par 3Stone le 08/11/2008 : 21:01
Salut,

Une variable tableau(ou array) se déclare fixe: Dim Toto(3, 10) ou dynamique: Dim Toto().
Il faut alors le démentionner par ReDim Toto(...)
Voir l'aide.

Ensuite:

For j = 1 to 10
      Toto(j) = ...
       'avec un champ source
        Toto(j)= Field(2)
    Next j

Avant cela, ouvrir un recordset sur la requête et le cloturer pour finir.

Cordialement,
Pierre(3stone)

Réponse n° 2 par marsouin le 09/11/2008 : 01:21

Pierre,

Merci de tes conseils. J'arrive enfin à un semblant de résultat, même si je suis encore loin d'arriver à mettre en application mes différentes matrices.

Bon WE

Marsouin

[ Retour à la liste des sujets ]

Recherche



Préférences

Se reconnecter
---

Votre nom (ou pseudo) :

Votre code secret


 Nombre de membres 1 membre


Connectés :

( personne )

Haut