Hello,

Alors voilà j'ai créé cette fonction que je souhaite appeler dans ma page excel pour me prendre la première valeur qui est un nombre qu'elle rencontre.

Cependant le code ne marche pas, sans que je comprenne pourquoi.

Le pas à pas déclenché par le calcul d'une cellule contenant la formule (je suis en calcul manuel) s'arrête après le test isNumeric...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Option Explicit
 
Public Function ChoixSpot(ParamArray Possibilites()) As Variant
    Dim Valr() As Variant, i As Integer
    Valr = Possibilites(0).Value2
    For i = 0 To UBound(Valr)
        If (IsNumeric(Valr(i))) Then
            ChoixSpot = Valr(i + 1)
            Exit Function
        End If
    Next i
End Function
Si quelqu'un a une idée je suis preneur !

EDIT : Je crois que il n'arrive pas à accéder aux différents indices de Valr(i)...

Merci