Discussion :

[Denis_67]

Bonjour,

J'ai besoin d'une petite aide.

Dans un userform, je souhaite initialiser un tableau pour charger les valeurs saisies.
Cependant dans la déclaration de tableau, le système n'accepte pas ma variable NB_Coques , il dit "Erreur de compilation constante requise".
ma variable est déclarée en public dans le module d'appel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
' dans le module d'appel
Public Nb_Coques As Integer
....
 
Private Sub CommandButton1_Click()
Nb_Coques = ThisWorkbook.Sheets("Data").Range("B2")
Dim Tab_Source(1 To Nb_Coques, 1 To 2)
 
For i = 1 To Nb_Coques
Tab_Source(i, 1) = Me.Controls("Coque_" & i).Value
Tab_Source(i, 2) = Me.Boite.Value
Next i

Merci pour vos conseils.
Denis

[Menhir]

On ne peut pas mettre une variable dans un Dim.
C'est pour ça que TOUS les Dim doivent se mettre en premier dans un Sub, avant toute autre instruction.

Il faut mettre une valeur "au pif" dans le Dim et le faire suivre d'un Redim.

Code :

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

1
2
Dim Tab_Source(1, 1 To 2)
ReDim Tab_Source(1 To Nb_Coques, 1 To 2)

[mfoxy]

Bonjour Denis,

Je ne comprend pas trop le besoin d'utiliser une variable pour Nb_Coques.
Vous pourriez très bien boucler sur chaque textbox de votre userform p, si nom correspond à coquesX mettre la value dans un Array pour ensuite la passée dans un tableau structuré par Exemple.

Pourriez-vous nom donner le but de votre userform ? Une solution autre pourrait vous être proposée ici ?

Je vous conseil notament de consulter le tuto ci-dessous.

https://fauconnier.developpez.com/tu...eau-structure/

[Denis_67]

Merci à vous deux.

Bon à savoir que dim n'accepte pas de variable.

Et oui, je vais boucler peux boucler sur mes controls du USF pour déterminer la taille du tableau.

en tous cas re MERCI
Denis