Discussion :

[Overrider]

Bonjour à tous,

Je souhaite déclarer un tableau à d'une variable. Je vous montre mon code :

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
    'On déclare no variables
    Dim n As Integer
 
    'On compte le nombre de cases remplies...
    'Const nbligne = Application.WorksheetFunction.CountA(Range("$B:$B")) --> (=vaine tentative de conversion de ma variable n en constante...)
    n = Application.WorksheetFunction.CountA(Range("$B:$B"))
    'On affiche n (pour debug)
    MsgBox n
 
    'On indique à l'utilisateur que le tri est terminé (pour debug)
    MsgBox "Tri Terminé"
 
    'On déclare notre tableau en fonction du nombre de ligne récupérée
    'Const nbligne As Integer = n --> (=vaine tentative de conversion de ma variable n en constante...)
    'MsgBox nbligne
    Dim recup(12, n)

n renvoie 60 ce qui est le bon chiffre au passage.
Bref est-ce que ce que je peux faire ce type de déclaration de tableau ?

Merci à vous.

[jerome.vaussenat]

Salut,

voici ton code modifié :

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
Sub ma()
    'On déclare no variables
    Dim n As Integer
    Dim recup() As String
    'On compte le nombre de cases remplies...
    'Const nbligne = Application.WorksheetFunction.CountA(Range("$B:$B")) --> (=vaine tentative de conversion de ma variable n en constante...)
    n = Application.WorksheetFunction.CountA(Range("$B:$B"))
    'On affiche n (pour debug)
    MsgBox n
 
    'On indique à l'utilisateur que le tri est terminé (pour debug)
    MsgBox "Tri Terminé"
 
    'On déclare notre tableau en fonction du nombre de ligne récupérée
    'Const nbligne As Integer = n --> (=vaine tentative de conversion de ma variable n en constante...)
    'MsgBox nbligne
    ReDim recup(12, n)
    For cpt = 1 To n
        recup(1, n) = "toto"
        MsgBox recup(1, n)
    Next
End Sub

Il faut, dans un premier temps déclarer la variable tableau (je l'ai mise en Interger)
et ensuite, dans le code utiliser un Redim.

Attention, l'utilisation de cette instruction vide le tableau de ses données. Ce qui dans ton cas n'est pas un problème.

Pour en savoir plus :
http://silkyroad.developpez.com/vba/tableaux/

[Overrider]

Merci Jerome.vaussenat, ça marche au top maintenant