Discussion :

[DomBourti]

J'essai de déclarer un tableau qui va représenter ma feuille excel, soit avec 2 dimensions: lignes et colonnes. Le tableau n'a pas de chiffre fixe pcq mon nombre de ligne va sans cèsse varier. Je défini ensuite une 2e dimension pour chacune des lignes du tableau. Lorsque je tente de remplir mon tableau avec la ligne "tableau[i][x] = Worksheet("candidature").cell(i, x)" j'ai une erreur de compilation: Attendu: fin d'instruction.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim tableau As Variant
tableau = Array()
Do While Not Worksheet("candidature").cell(i, 3) = Empty
  i = i + 1
  tableau [i] = Array(20)
  For x = 0 To 19
##############################################
   tableau[i][x] = Worksheet("candidature").cell(i, x)
##############################################
  Next x 
Loop

Ma syntaxe est p-e très loin de ce à quoi elle devrait ressembler, c'est la première fois que jme sert d'un array en VB

[SfJ5Rpw8]

Essai de t'inspirer du code suivant :

Code :

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

1
2
3
4
5
6
7
8
 
Sub test()
Dim tableau() As Variant
ReDim Preserve tableau(2, 1)
tableau(1, 1) = "1"
ReDim Preserve tableau(2, 5)
tableau(2, 5) = "5"
End Sub

[DomBourti]

donc, je pourait faire comme cela:

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
 
Dim tableau() As Variant
tableau = Array()
 
Do While Not Worksheet("candidature").cell(i, 3) = Empty
  i = i + 1
  tableau [i] = Array(20)
 
  For x = 0 To 19
   ReDim tableau(i, x)
   tableau(i, x) = Worksheet("candidature").cell(i, x)
 
  Next x
 
Loop

mais je ne suis aps sur davoir compris le Preserve....

[SfJ5Rpw8]

Preserve c'est pour conserver les données déjà présente lors du redimensionnement d'un tableau...


que ve tu faire avec :

Code :

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

1
2
 
tableau [i] = Array(20)

rajoute un s à WorksheetS

[DomBourti]

et bien...je croyais que c'était la façon de donné une 2e dimension au tableau, pour représenté les lignes avec la première dimension

Code :

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

tableau = Array()

et les colonnes avec la deuxième dimension

Code :

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

tableau [i] = Array(20)

je croyais qu'il fallais ajouter cette ligne dans la boucle pour créer une 2e dimension de 20 cases à chaque ligne de la première dimension. Quel serait la bonne syntaxe à utiliser pour effectuer ce que j'explique ci-dessus!? Merci

[DomBourti]

J'ai vraiment besoin de savoir la facon de déclarer une variable de type array (ca porte aussi le nom de vecteur) avec 2 dimensions au plus vite....si qq1 connait un tutoriel ou une référence qui pourrait m'aider, sa serait vraiment apprécié.

Je vais tenter de vous expliquer du mieux que je peux ce que je veux faire, p-e que ca vous aidera à comprendre mon intérrogation:
J'ai une feuille qui comprend des clients, un par ligne, et les colonnes représentent différentes informations des clients. J'ai besoin de mettre ces clients et leurs informations dans un vecteur à 2 dimensions (une dimension pour les lignes et l'autre pour les colonnes) pour pouvoir les trier pour ensuite les tranférer dans une autre feuille de mon classeur. Les trier dans un vecteur à 2 dimensions va probablement être plus rapide que d'insérer des nouvelles lignes, qui prend bcp de temps de recalcul pour Excel.

Merci pour votre aide à l'avance

[SilkyRoad]

bonjour

j'espere que cet exemple pourra t'aider

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Option Explicit
Option Base 0
 
Sub triMulticolonnes()
Dim Tableau()
Dim i As Integer, j As Integer, y As Integer, x As Integer
Dim indexColTri As Byte
Dim t As Variant
 
 x = 50 'définit le nombre de lignes dans le tableau
 
 'redimensionne le tableau (4 colonnes et x lignes)
 ReDim Preserve Tableau(4, x)
 
'-----chargement d'un tableau à partir de valeurs aleatoires ------
For i = 0 To x - 1
    Randomize
    Tableau(0, i) = Chr(Int((26 * Rnd) + 1) + 64)
    Randomize
    Tableau(1, i) = Chr(Int((26 * Rnd) + 1) + 64)
    Randomize
    Tableau(2, i) = Chr(Int((26 * Rnd) + 1) + 64)
    Randomize
    Tableau(3, i) = Chr(Int((26 * Rnd) + 1) + 64)
Next i
'--------------------------------------------
 
 
'---- Appliquer un tri sur une des colonnes du tableau -----
'choisir la colonne à trier: 0=1ere colonne ,  1=2eme colonne...etc ...
indexColTri = 0
 
 
For i = 0 To x - 1
     For j = 0 To x - 2
 
          '---------
          'synthaxe pour tri données date
          'If CDate(Tableau(indexColTri, j)) > _
                CDate(Tableau(indexColTri, j + 1)) Then
 
          'synthaxe pour tri données numériques
          'If CDec(Tableau(indexColTri, j)) > _
                CDec(Tableau(indexColTri, j + 1)) Then
 
          'synthaxe pour tri données texte
          If Tableau(indexColTri, j) > Tableau(indexColTri, j + 1) Then
          '---------
 
            For y = 0 To 3
                t = Tableau(y, j)
                Tableau(y, j) = Tableau(y, j + 1)
                Tableau(y, j + 1) = t
            Next y
 
          End If
    Next j
Next i
'------------------------------------------------------------
 
 
'---- afficher le resultat -----------------------------------
For i = 0 To x - 1
Debug.Print Tableau(0, i) & vbTab & Tableau(1, i) & vbTab & Tableau(2, i) & _
vbTab & Tableau(3, i)
Next i
'-------------------------------------------------------------
 
End Sub

bonne journée
michel

[DomBourti]

Merci bcp Silkyroad, ton code m'a bcp aidé. Merci a Bbil aussi pour ton aide.