Bonjour le monde,
Je cherche, dans une fonction, à récupérer la taille d'un tableau.
Pour l'instant, j'utilise une méthode assez moche, basée sur la récupération d'une exception quand on dépasse la taille du tableau :
Private Function recupereVariables(ByRef variables() As Paire, _
echange As String) As Boolean
Dim i As Integer
i = 0
On Error GoTo Err
While Err.Number = 0
variables(i).valeur = pressePapier.getVar(echange, variables(i).index)
setErrStr
If errStr <> "" Then
recupereVariables = False
Exit Function
End If
i = i + 1
Wend
Err:
If Err.Number <> 0 And Err.Number <> 9 Then
Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpFile, Err.HelpContext
End If
recupereVariables = True
End Function
|
Je ne peux pas utiliser de For Each, car il ne veut pas marcher sur un tableau de type défini par l'utilisateur (ici, un type Paire contenant un champ index et un champ valeur)
Si quelqu'un voit une solution plus élégante, je suis preneur
merci d'avance pour tout conseil,
.:madprog:.