Probleme VBA: constante requise

[invited84210a7]

Voici un résumé de mon code:

dim nombre as long
nombre= Cells(2,2)
Dim liste(0 To nombre) As Double


Ce qui donne : erreur sur la troisieme ligne: "Constante requise".
Comment faire?

Merci d'avence,
Pierre
-----

[invitec94d2bbe]

Bj

dim nombre as long

nombre= Cells(2,2) ' nombre = ActiveSheet.Cells(2, 2).Value


Dim liste(0 To nombre) As Double


si nombre n'a pas de valeur ou la cellule 2,2
çà peut planter le dim liste

[invited84210a7]

OK Merci
Pierre

[invite5a128c40]

Salut !

Je profite de la discussion pour vous présenter mon problème similaire.

Je veux créer sous VBA une liste de 3 colonnes et d'un certain nombre de ligne. Le nombre de ligne est donnée par la variable "DerniereLigne".
elle correspond au numéro de la dernière ligne du tableau excel à partir duquel je veux faire ma liste.

voici le code :


Private Sub UserForm_Initialize()
Dim i As Integer
Dim DerniereLigne As Integer
Dim DerniereLigne_ As Integer


DerniereLigne =Sheets("Data_base").Range("B1 1").End(xlDown).Row


Dim List_conveyor(1 To DerniereLigne, 3) As String
For i = 1 To DerniereLigne

List_conveyor(i, 1) = Sheets("Data_base").Range("A" & i + 13)
List_conveyor(i, 2) = Sheets("Data_base").Range("B" & i + 13)
List_conveyor(i, 3) = Sheets("Data_base").Range("F" & i + 13)
Next i

conveyor.List_conveyor_availab le.List = List_conveyor

End Sub

L'erreur me dit " erreur de compilation, constante requise." et ellle pointe la variable "DerniereLigne" dans la définition de la taille de la liste.

Quelqu'un peut m'expliquer comment faire pour éviter ce problème ?
Je tourne en rond depuis des heures sur ce truc !

Merci d'avance ! !

Thomas

[A voir en vidéo sur Futura]

[mécano41]

Voici un résumé de mon code:

dim nombre as long
nombre= Cells(2,2)
Dim liste(0 To nombre) As Double


Ce qui donne : erreur sur la troisieme ligne: "Constante requise".
Comment faire?

Merci d'avence,
Pierre

Bonjour,

Peut-être ainsi :

Option Explicit

Sub essai()
Dim Liste() As Double
Dim nombre As Long
nombre = Cells(2, 2).Value
ReDim Liste(nombre)

'suite ..............

End Sub

Cordialement