VBA - Déclaration d'une variable tableau avec constante

[ldetienne100]

Bonjour,

Il me faut une constante pour déterminer la dimension d'une variable tableau. La valeur de la constante dont j'ai besoin est égale à la valeur de Log(base1 ^ gr1) / Log(base2) arrondi à la hausse, soit Round(Log(base1 ^ gr1) / Log(base2) + 0.5).

Voici mon code:

Sub Macro1()

Const base1 = 12
Const base2 = 34
Const gr1 = 8
Const gr2 = Round(Log(base1 ^ gr1) / Log(base2) + 0.5)

Dim nb2(gr2) As Byte

Le débogueur bute toujours sur le mot «Round». Je me demandais alors comment contourner ce petit problème.

Merci!

 

[Dranreb]

Re : VBA - Déclaration d'une variable tableau avec constante

Bonsoir.

Je ne vois que ce moyen :

Sub Macro1()
Const base1 = 12
Const base2 = 34
Const gr1 = 8
Dim nb2() As Byte
ReDim nb2(Int(Log(base1 ^ gr1) / Log(base2) + 1))

 

[Staple1600]

Re : VBA - Déclaration d'une variable tableau avec constante

Bonsoir à tous

Et comme ceci, cela ne t'irait pas ?

Sub Macro1()
Dim gr2, nb2() As Byte
Const base1 = 12
Const base2 = 34
Const gr1 = 8
gr2 = Round(Log(base1 ^ gr1) / Log(base2) + 0.5)
ReDim nb2(gr2)
MsgBox UBound(nb2)
End Sub

EDITION: Bonsoir Dranreb, désolé pour la collision, je n'avais pas vu ton message 😱

 

[ldetienne100]

Re : VBA - Déclaration d'une variable tableau avec constante

Merci à vous! Les codes fonctionnent très bien!