Discussion :

[mlww]

Bonjour,

j'ai un tableau à partir d'une requête SQL

Comment pourrais-je savoir le nombre de ligne et colonne contient le tableau

merci d'avance

[Menhir]

S'il s'agit de cellules contenant des valeurs, tu peux utiliser la propriété End pour connaitre la dernière cellule (en ligne ou en colonne) contenant une donnée.
En y accolant la propriété Row ou Column, on peut respectivement en avoir le numéro de ligne ou de colonne.
Si tes données commencent en A1, ça te donnera la taille du tableau.
https://msdn.microsoft.com/fr-fr/lib.../ff839539.aspx

Tu peux aussi utiliser UsedRange avec Rows.Count et Columns.Count.
https://msdn.microsoft.com/fr-fr/lib.../ff840732.aspx

Il y a certainement plusieurs autres méthodes.

[mlww]

Bonjour Menhir

Non non ce n'est pas des cellules,
c'est un tableau de variable en mémoire du genre
soucis je connais pas le nombre de ligne, ni de colonne

Code :

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

1
2
3
 
Tab(1,0)= var1
Tab(1,1)= var2

[Philippe Tulliez]

Bonjour,

c'est un tableau de variable en mémoire du genre
soucis je connais pas le nombre de ligne, ni de colonne

La lecture de ce tutoriel t'apportera la réponse Utiliser les variables tableaux en VBA Excel

[joe.levrai]

Bonjour,

intéresse toi plus particulièrement à UBound() et LBound() afin d'interroger les bornes supérieurs et inférieure d'un tableau interne

[Theze]

Bonjour,

On pourrait représenté ça de façon imagée ou la première dimension représente les lignes, la seconde dimension, les colonnes et la troisième dimension les feuilles empilées les unes sur les autres, après trois dimensions, ça devient ingérable (c'est déjà pas simple en ajoutant la troisième) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Test()
 
    Dim Tbl(1 To 12, 1 To 45, 1 To 3)
 
    MsgBox "Nombre de lignes : " & UBound(Tbl, 1) & _
           vbCrLf & _
           "Nombre de colonnes : " & UBound(Tbl, 2) & _
           vbCrLf & _
           "Nombre de feuilles : " & UBound(Tbl, 3)
 
End Sub

Qu'il est possible de vérifier avec ce petit test mais seulement sur les lignes et colonnes (pour la dimension z c'est plus compliqué, il faut passer par une boucle) :

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
 
Sub Test2()
 
    Dim Tbl(1 To 12, 1 To 45)
    Dim I As Integer
    Dim J As Integer
    Dim K As Integer
 
    For I = 1 To 12: For J = 1 To 45
 
            Tbl(I, J) = "I : " & I & " J : " & J
 
    Next J, I
 
   Range(Cells(1, 1), Cells(UBound(Tbl, 1), UBound(Tbl, 2))).Value = Tbl
 
End Sub

[mlww]

Salut joe.levrai

Excuse moi
mais sauf erreur de ma part UBound() et LBound() renvois la valeur la plus grande et la valeur la plus petit dans un colonne
ce que je cherche c'est comptabiliser le nbr de ligne et de colonne

[Philippe Tulliez]

Bonjour,

mais sauf erreur de ma part UBound() et LBound() renvois la valeur la plus grande et la valeur la plus petit dans un colonne
ce que je cherche c'est comptabiliser le nbr de ligne et de colonne

La réponse de Joe que je salue au passage est exacte. Prends la peine de lire le tutoriel que je t'ai conseillé et tu pourras le constater par toi même.

[Theze]

Un exemple avec Ubound() et Lbound() pour que tu saisisses mieux :

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
 
Sub Test2()
 
    Dim Tbl(3 To 12, 10 To 45)
    Dim I As Integer
    Dim J As Integer
 
    For I = LBound(Tbl, 1) To UBound(Tbl, 1): For J = LBound(Tbl, 2) To UBound(Tbl, 2)
 
            Tbl(I, J) = "I : " & I & " J : " & J
 
    Next J, I
 
   Range(Cells(1, 1), Cells(UBound(Tbl, 1) - LBound(Tbl, 1) + 1, UBound(Tbl, 2) - LBound(Tbl, 2) + 1)).Value = Tbl
 
End Sub

[Menhir]

mais sauf erreur de ma part...

Bin... sans doute as-tu omis que ces deux fonctions ont DEUX paramètres :
https://msdn.microsoft.com/fr-fr/VBA...bound-function
https://msdn.microsoft.com/fr-fr/VBA...bound-function

[mlww]

Bonjour Messiers,

Autant pour moi
j'ai beugué et mal lut en plus, désolé
merci a vous tous, et aussi pour le bout code
bonne journée