Type One x As Integer y As Integer End Type Global Vecteur() As One ...... Dim Nb_Vecteur as integer Nb_Vecteur = Ubound(Vecteur,1)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionType One x As Integer y As Integer End Type Global Array() As One
If Ubound(nodearray,1) = node_number then
Global nodearray as one Global node_number as integer
Global nodearray() as one Global node_number as integer redim preserve nodearray(1 to 50) as one
Global nodearray() as one 'était bien écrit redim nodearray(1) ' j'avais oublié de le mettre donc pour commencer il avait zéro ligne d'où la fonction ubound ne fonctionnait pas...