Discussion :

[MonSavon]

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

[Philippe Tulliez]

Bonjour,
Tu déclares Valr comme un tableau sans dimension et tu lui passes la valeur du premier élément du tableau de ton argument Possibilites or Valr n'a aucune dimension
Que cherches-tu à faire exactement avec cette fonction, parce-que pour moi ton explication n'est pas claire ?

A lire Les fonctions personnelles dans Excel

[MonSavon]

Hello,

Vlr est un tableau de n éléments en réalité.
C'est Possibilites() qui est un tableau de taille 1, et je vois qu'il stocke toutes mes valeurs sont en Possibilites(0).Value2(n) avec n de 0 à N.

Je veux donc parcourir tout le tableau Value2(), et dès que je trouve une valeur numérique, la fonction s'arrête et me renvoie cette valeur.
J'ai stocké le tableau dans Vlr car j'ai cru que c'était le fait de parcourir Possibilites() qui faisait bugger.

(je viens de voir que le code transmis avait une petite coquille dans le test IF, créée lors de la transmission du msg, i commence à 0 et le tableau à 1.)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
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 + 1))) Then
            ChoixSpot = Valr(i + 1)
            Exit Function
        End If
    Next i
End Function

[Philippe Tulliez]

Bonjour,
Pour profiter des avantages qu'offre la boîte de dialogue "Insertion de fonction" avec ParamArray, il est préférable de nommer l'argument avec le chiffre 1 à la fin comme Possibilite1

Vlr est un tableau de n éléments en réalité.

A aucun moment tu ne précises n

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Valr = Possibilites(0).Value2

Comme je l'ai écrit Valr est un tableau sans dimension et le fait de lui passer une valeur provoque une erreur et la procédure s'arrête.
Comme ceci cela ira mieux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Function ChoixSpot(ParamArray Possibilite1()) As double
 Dim i As Integer
 For i = 0 To UBound(Possibilite1)
  If IsNumeric(Possibilite1(i)) Then ChoixSpot = Possibilite1(i): Exit Function
 Next
End Function

[Invité]

Bonsoir,
J'ai analysé le code de façon générale mais il n'y a rien qui me choque !

Pourrais tu nous donner un exemple de l'appel de cette fonction avec si possible le contenue des valeurs transposent!

[MonSavon]

@ Philippe Tulliez : J'ai toujours eu du mal à me faire comprendre
La fonction que tu m'as donnée était celle que j'avais créée initialement.

Je vais reprendre point par point mon raisonnement :

J'ai en cellule : B6 : =+ChoixSpot(B$7:B$99)
avec un break point dans la fonction sur la ligne : For i = 0 To UBound(Possibilite1)
J'actualise ma cellule B6 (F2 + Enter)
La fonction se lance, stoppée par le break point.
J'analyse la variable locale Possibilite1(); la fenêtre me dit :
Possibilite1 > Possibilite1 (0) > Value2 > Value2(1 à 93)

Donc Possibilite1() est de taille 1 (ou 0 selon la base considérée), et les variables du range (B$7:B$99) sont stockées dans un attribut tableau de données de Possibilite1(0).Value2(1 à 93)
Donc selon moi, il s'agit du tableau Possibilite1(0).Value2(1 à 93) que je devrais analyser.

Pour le moment j'ai en valeur récupérée avec la fonction actuelle 0.


@dysorthographie : La fonction que j'essaye de faire est la suivante :
Elle sera utilisée dans une cellule excel au dessus d'une liste de nombre générés par différentes macros.
La fonction 'scannera' et retournera le premier nombre valide qu'elle rencontre.
(Les macro qui génèrent la liste, peuvent renvoyer des valeurs #N/A #VALEUR et autre, je veux donc récupérer la première valeur valide rencontrée).


Exemple de listes :

Liste 1 :
#NA
13
44
22
#VALEUR
=> La fonction retourne 13.


Liste 2 :
33
#NA
22
50
=> La fonction retourne 33.

Liste 3 :
22
50
55
66
=> La fonction retourne 22.

Voilà voilà,

merci bien !

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Function ChoixSpot(ParamArray Possibilite1()) As Double
Dim Valr As Variant, i As Integer
    Valr = Possibilite1(0)
 For i = 1 To UBound(Valr)
  If IsNumeric("" & Valr(i, 1)) Then ChoixSpot = Valr(i, 1): Exit Function
 Next
End Function

[Philippe Tulliez]

Bonjour,
La fonction renvoie la première valeur numérique trouvée dans une plage de cellules contiguë ou des plages non contiguës. Dans cet exemple les cellules vides ne sont pas prises en compte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function ChoixSpot(ParamArray Possibilite1() As Variant)
 Dim rng As Variant, c As Variant
  For Each rng In Possibilite1
   If IsObject(rng) Or IsArray(rng) Then
    For Each c In rng
     If Len(c) And IsNumeric(c) Then ChoixSpot = c.Value: Exit Function
    Next c
   End If
  Next rng
End Function

Exemple d'utilisation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ChoixSpot(B6:B14)

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ChoixSpot(A2:A4;B6:B14)

[MonSavon]

Si j'ai bien compris, Value2 avait 2 dimensions ! Je suis miro

Merci à vous 2 !

Bonne journée & Bon We

MS.

[eriiic]

Bonjour,

ou bien sans boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
    Debug.Print ChoixSpot([A4:A8])
End Sub
 
Function ChoixSpot(plage As Range)
    Dim pl As Range
    On Error Resume Next
    Set pl = plage.SpecialCells(xlCellTypeConstants, xlNumbers)
    Set pl = Union(pl, plage.SpecialCells(xlCellTypeFormulas, xlNumbers)) 'supprimer si inutile
    On Error GoTo 0
    If pl Is Nothing Then ChoixSpot = CVErr(xlErrNA) Else ChoixSpot = pl(1)
End Function

eric