Utiliser inputbox pour définir la dimension d'une array

[cafejohn1967]

Bonjour,

Je ne comprends pas pourquoi mon code ne fonctionne pas? Excel me dit que je dois insérer une constante dans marray(z), mais je veux que l'utilisateur puisse définir cette constante.




Sub test15()

Dim z As Integer



z = InputBox("how many lines you want", "gotitle")




Dim marray(z)



End Sub



Merci beaucoup.

 

[Theze]

Re : Utiliser inputbox pour définir la dimension d'une array

Bonjour,

De cette façon :

Sub test15()

    Dim z As Integer
    Dim marray() 'quel type ?
    
    
    z = InputBox("how many lines you want", "gotitle")
    
    ReDim marray(1 To z) 'ou 0 to z selon la base que tu veux utiliser
    
    MsgBox UBound(marray) 'pour voir qu'il à bien été dimensionné comme souhaité
    
End Sub

Hervé.

 

[job75]

Re : Utiliser inputbox pour définir la dimension d'une array

Bonjour,

Sub test15()
Dim z As Integer, marray()
z = Val(InputBox("how many lines you want", "gotitle"))
If z < 1 Then Exit Sub
ReDim marray(1 To z) 'base 1
'---
End Sub

A+

 

[cafejohn1967]

Re : Utiliser inputbox pour définir la dimension d'une array

Merci à vous deux ça fonctionne.