Discussion :

[Nono Sto]

Chères amies, chers amis du forum

J'ai deux tableaux qui me semble t il sont tous deux des vecteurs colonnes:




En effet ici nous avons une colonne et 252 ligne.

Et j'ai ceci:



Avec 252 lignes et une 1 colonne aussi.

Alors ou est la différence?

Merci

[Marc-L]

Bonjour,

erreur sur le premier car il s'agit d'une ligne de 252 colonnes et le second est bien un tableau de 252 lignes sur une colonne …

[Nono Sto]

Merci

Je me disais biens que cela ressembler à un vecteur ligne, cepandant a quoi tu vois sa, car normalement la premiere coordonnée sont les lignes.

[Docmarti]

Bonjour

3 Exemples:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Tableaux()
 
Dim t1
Dim t2
Dim t3
 
 ReDim t1(10) 'Tableau à une dimension
 
 t2 = Range("A1:X1") 'Tableau à 2 dimensions
 
 t3 = Range("B1:B10") 'Tableau à 2 dimensions
 
Stop
End Sub

Pour plus d'infos :
http://silkyroad.developpez.com/vba/tableaux/

[Marc-L]

cepandant a quoi tu vois sa, car normalement la premiere coordonnée sont les lignes.

Pour VBA, une seule dimension équivaut aux colonnes (cellules) d'une unique ligne …

[AlainTech]

Bonjour,

Le premier est un Array de String, le second un Variant contenant des Variant/String.

[Nono Sto]

Merci

Quel est la differrence entre un tableau Array et un tableau Variant. De plus je souhaitent préciser a chaque tableau un type unique de variable (String, Long, date..) et non des variant comment fais t on SVP?

[AlainTech]

Bonjour,

Un élément de réponse à ta portée:
Comment déclares-tu les 2 tableaux?
La différence est là.

[Nono Sto]

Merci


pour le premier j'ai fais ceci:

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
 
Dim Testab() As String
Dim Testab2() As String
Dim i intRow As Long
 
Worksheets("Feuil2").Select
 
intRow = Range(Cells(1, 2), Cells(1, 2).End(xlDown)).Count - 1
intRow2 = Range(Cells(1, 3), Cells(1, 3).End(xlDown)).Count - 1
 
ReDim Testab(intRow) 
 
'Initialisation du tableau 
For i = 0 To intRow
    Testab(i) = Cells(i + 1, 2).Value
Next i

et pour le second:

Code :

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

1
2
3
4
 
Dim Testab() As variant
 
 Testab = Range(Cells(1, 3), Cells(1, 3).End(xlDown))

La différence serais du a ma declaration de variable?

Est ce que je peux affecté un range directement a un tableau de string? ou suis je obligé de passé par un redim et une boucle?

Quel est le plus efficace? et le plus propre sachant que je souhaite affecté des tableau de type unique (long, double, string...) et non de type variant.

[eriiic]

Bonjour,

Code :

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

ReDim Testab(intRow)

défini un tableau à 1 dimension.

Code :

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

Testab = Range(Cells(1, 3), Cells(1, 3).End(xlDown))

Un tableau issu d'une plage à toujours 2 dimensions (lignes,colonnes) même si tu n'as qu'une seule colonne (auquel cas dimension 2 = 1 to 1)

eric

[Nono Sto]

Merci

Cependant quel est le plus efficace, l'affectation en boucle, ou l’affectation direct par une plage?

- la boucle prend plus de temps pour l'affectation mais ensuite on gere des tableaux de type "simple": long, string,... donc des tableaux moins lourd en mémoire

- affectation par plage plus rapide mais tableaux variant lourd?

Merci

[eriiic]

Avis personnel :
Si c'est un petit tableau peu importe.
Si c'est un grand mieux vaut privilégier la vitesse.
Conclusion : lecture de la totalité plage en une fois, plus simple et plus rapide.
A moins d'avoir un énorme tableau mais là excel n'est pas forcément le plus adapté...
eric

[Invité]

cet formulation ne prend pas de place en mémoire car elle fait référence à une plage de cellule Excel!

Code :

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

1
2
3
4
5
6
7
8
Sub test()
Dim L As Integer
Dim tb As Range
Set tb = ActiveSheet.UsedRange
For L = 1 To tb.Rows.Count
    Debug.Print tb(L, 1).Value
Next
End Sub

[Marc-L]

J'ai déjà utilisé des tableaux de type Variant comportant peu de colonnes mais dépassant les 70 000 lignes …

[eriiic]

Bonjour,

cet formulation ne prend pas de place en mémoire car elle fait référence à une plage de cellule Excel!

Mais c'est aussi lent que de faire directement Debug.Print Cells(L, 1).Value non ?
eric

[Docmarti]

Merci

Cependant quel est le plus efficace, l'affectation en boucle, ou l’affectation direct par une plage?

- la boucle prend plus de temps pour l'affectation mais ensuite on gere des tableaux de type "simple": long, string,... donc des tableaux moins lourd en mémoire

- affectation par plage plus rapide mais tableaux variant lourd?

Merci

Le mieux c'est de faire des tests et de voir ce qui convient le mieux.
Moi je ne vois pas de différence de rapidité entre le type DOUBLE et le type VARIANT.
Par contre la lecture cellule par cellule est lente.

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
44
45
46
47
48
49
50
51
52
53
Sub TableauLuEnBloc()
 m = Timer
 
 Dim t1
 
 maxi = 100000
 
'lire en bloc le contenu d'une plage de plusieurs cellules dans un tableau variant
 t1 = Cells(1, 1).Resize(maxi, 10).Value
 
 Cells(1, 5).Resize(UBound(t1, 1), UBound(t1, 2)).Value = t1
 dur = Timer - m
 Debug.Print "Lecture en bloc "; dur
 
End Sub
 
Sub TableauDeDouble()
 m = Timer
 
 maxi = 100000
 ReDim t1(1 To maxi, 1 To 10) As Double
 
  'Lecture cellule par cellule vers un tableau Double
 For r = 1 To UBound(t1, 1)
  For L = 1 To UBound(t1, 2)
   t1(r, L) = Cells(r, L)
  Next
 Next
 
 Cells(1, 5).Resize(UBound(t1, 1), UBound(t1, 2)).Value = t1
 dur = Timer - m
 Debug.Print "Double "; dur
 
End Sub
 
Sub TableauDeVariant()
 m = Timer
 
 maxi = 100000
 ReDim t1(1 To maxi, 1 To 10) As Double
 
 'Lecture cellule par cellule vers un tableau Variant
 For r = 1 To UBound(t1, 1)
  For L = 1 To UBound(t1, 2)
   t1(r, L) = Cells(r, L)
  Next
 Next
 
 Cells(1, 5).Resize(UBound(t1, 1), UBound(t1, 2)).Value = t1
 dur = Timer - m
 Debug.Print "Variant "; dur
 
End Sub

[Nono Sto]

Merci à tous