Tableau / UBound

[pythagore3_14]

Bonjour tout le monde !
Voilà, mon programme bloque sur la fonction UBound appliquée à un tableau "FichChoisis" rempli de la manière suivante :

Private Sub CommandButton1_Click()
    Dim i As Integer, n As Integer
    Dim FichChoisis() As String 
    'Rentrée des éléments sélectionnés dans la ListBox (des noms de fichiers) dans le tableau FichChoisis
    ReDim FichChoisis(0)
    n = 0
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
        ReDim Preserve FichChoisis(n)
        FichChoisis(n) = ListBox1.List(i)
        MsgBox FichChoisis(n)  'vérifie que le tableau enregistre les bonnes données
        n = n + 1
        End If
    Next i
    MsgBox UBound(FichChoisis)  
    UserForm3.Hide   
End Sub

Dans ce code la ligne "MsgBox UBound(FichChoisis)" fonctionne et renvoie le bon chiffre; mais lorsque j'utilise UBound(FichChoisis) là où j'en ai besoin ça génère une erreur ("L'indice n'appartient pas à la selection"...).

Public FichChoisis() As String
Sub Super_Min_Max()
    Dim i As Integer
    For i = 0 To UBound(FichChoisis)
    'instructions....
    Next i
End Sub

Je ne comprend pas pourquoi... Si quelqu'un pouvait m'éclairer...

PS: J'ai également essayer UBound(FichChoisis, 1); ça donne la même chose.

[Godzestla]

Salut,

c'est parce que tu utilise FichChoisis pour un tableau mais aussi pour ta routine.

Pas bon cela. Change le nom de ta routine par exemple.

Ensuite il faudra voir sir ton code "routine" se trouve bien dans un module ou dans la même feuille que CommandButton1_Click.

Attention que la porté de FichChoisis() est limitée à la procédure CommandButton1_Click() qui est private.

[pythagore3_14]

Je ne comprend pas ce que tu appelle "routine" ... !?
J'ai supprimé "Dim FichChoisis() As String" dans mon premier code, je veux que ce soit une variable public("Private Sub CommandButton1_Click()" est dans une feuille et "Sub Super_Min_Max()
" dans un module). C'est sans doute ça qui posait problème; maintenant ça a l'air de marcher... Merci !