Discussion :

[jepha]

Bonjour,

J'ai réalisé une fonction de recherche d'une valeur dans un tableau à partir de 2 critères.

Code :

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

Function RECHERCHE_REF(ByRef matrice(), type_tc As String, puissance As Single) As Integer

Celle-ci fonctionnne lorsque je l'appelle d'un module mais j'ai l'erreur #valeur! si je la lance d'une cellule....

Je pense que le problème vient de la sélection de la plage de cellule pour l'argument matrice....

Quelqu'un a-t-il déjà eu ce souci?

Merci pour votre retour.

[joe.levrai]

Bonjour,

tu peux nous montrer la fonction complète ?

EDIT : tu parles d'une matrice et d'une sélection de cellule, en fait tu veux utiliser les valeurs présentes dans les cellules de ta sélection ?

si tel est le cas, tu dois travailler en deux temps :

1) utiliser un argument Range représentant la plage de cellules
2) insérer les valeurs dans un tableau

ce qui nécessite de savoir comment la plage de cellule est dimensionnée : 1 cellule / plusieurs cellules / sur une seule colonne / multicolonnes etc...


un exemple totalement farfelu pour comprendre : on veut que la fonction vérifie sur une plage (1 seule cellule ou une seule colonne) l'existence de la valeur type_tc dans une ou plusieurs cellules
pour chaque cellule contenant cette valeur, on incrémente un compteur avec la valeur puissance.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Function RECHERCHE_REF(Plage As Range, type_tc As String, puissance As Single) As Integer
Dim Tabl()
Dim i As Long
 
' si 1 seule cellule alors on met la valeur dans le tableau de recherche
If Plage.Cells.Count = 1 Then
    ReDim Tabl(1 To 1): Tabl(1) = Plage.Cells(1, 1).Value
 
' si plusieurs cellules sur une seule colonne alors on met toutes les valeurs dans le tableau
ElseIf Plage.Columns.Count = 1 Then
    Tabl = Application.Transpose(Plage.Value)
' si multicolonne : on affiche 0 et on quitte la fonction
Else
    RECHERCHE_REF = 0
    Exit Function
End If
 
' pour chaque valeur de cellule
For i = LBound(Tabl) To UBound(Tabl)
    ' si la cellule contient la chaine de caractère de type_tc alors on ajoute la valeur de puissance au résultat
    If Tabl(i) = type_tc Then RECHERCHE_REF = RECHERCHE_REF + puissance
Next i
 
End Function

[jepha]

Merci pour ta réponse joe, j'ai modifié ma fonction et ça marche.

Comme tu l'as expliqué, étant donné que je sélectionne mes cellules dans le tableau excel, il faut que j'utilise des arguments de type Range.
Je copie ensuite les valeurs dans les variables de ma fonction.

Code :

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

1
2
3
4
5
6
7
8
9
10
Function RECHERCHE_REF(matrice As Range, type_tc As Range, puissance As Range) As Integer
 
Dim cmpt1 As Integer, cmpt2 As Integer, index As Integer
Dim nbLigne As Integer, nbColonne As Integer, puis As Integer
Dim typetc As String
Dim tab_principal() As Variant, tab_secondaire() As Variant
 
tab_principal = matrice.Value
typetc = type_tc.Value
puis = puissance.Value

Je te remercie encore, j'aurais pu chercher longtemps...