Discussion :

[comme de bien entendu]

Bonjour,
Je voulais recreer une sorte de RerchercheV, j'ai une fonction qui marche, mais je ne parviens pas à traiter la fonction en utilisant que le parametre matrice.
Il a fallu que j'utilise le nom de la feuille d'ou provient ma matrice
pour effectuer mes recherches.

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
Function Fct_RechercheV(chaine As String, matrice As Range, colonne As Integer) As String
Dim i As Integer
Dim j As Integer
Dim t As Boolean
On Error GoTo gestErr
t = False
 
For i = matrice.Row To matrice.End(xlDown).Row
    For j = matrice.Column To matrice.End(xlToRight).Column
        If Worksheets("Maintenance").Cells(i, j).Text = chaine Then
            Fct_RechercheV = Worksheets("Maintenance").Cells(i, 3)            
      t = True
        End If
    Next j
Next i
If t = False Then Fct_RechercheV = ""
finFunction:
Exit Function
gestErr:
MsgBox Error$
Resume finFunction
End Function

En utilisant le parametre Matrice j'allais pointer je ne sais pas trop ou d'ailleurs.
Merci d'avance de vos idées pour rendre ce code un peu plus standard.

[trollinou]

Quand tu utilises la propriété row de l'objet Range tu te réfères à la feuille contenant le Range (plage de cellules), cela te donne le numéro de ligne de la feuille où commence la plage

La boucle devrait ressembler à ça

Code :

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

1
2
3
4
5
6
7
8
9
 
For i = 1 To matrice.Rows.count - 1
    For j = 1 To matrice.Columns.count - 1
        If Worksheets("Maintenance").Cells(i, j).Text = chaine Then
            Fct_RechercheV = Worksheets("Maintenance").Cells(i, 3)            
      t = True
        End If
    Next j
Next i

[pgz]

Bonjour.

Si tu a un argument de type Range, quand tu appelles la procédure tu dois lui fournir un argument de type Range.

Code :

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

1
2
3
4
5
Dim oRng as Excel.Range
 
Set oRng = ...
 
monResultat = fct(...,oRng,..)

Ici tu pourrais préciser ByVal pour matrice dans la déclaration de fonction. Les autres arguments aussi, je crois.

Cordialement,

PGZ

[mercatog]

Bonsoir
matrice.parent te donne la feuille mère de la plage matrice

[trollinou]

Maintenant si tu veux faire une sorte de recherchev, il serait intéressant de voir cet exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Function GetRangeGoal(pRange As Range, pValue As String) As Range
 
    Set GetRangeGoal = pRange.Find(What:=pValue, LookAt:=xlWhole, MatchCase:=True)
 
    ' Si la valeur est trouvée, renvoi de la ligne complète pour avoir l'ensemble des données
    If Not GetRangeGoal Is Nothing Then
        Set GetRangeGoal = GetRangeGoal
    End If
 
End Function

Ce serait plus rapide que des boucles imbriquées
Adaptable en fonction de tes besoins

[comme de bien entendu]

Merci bien à trollinou pour ta dernière intervention.
Je suis quand même surpris qu'il faille demander à un range sa feuille mère pour pouvoir ensuite tester sa valeur.

Cela veut il dire que le range passé en parametre n'est plus interrogeable ?...

Normalement par défaut il est passé byref ?

Merci de vos idées sur le sujet, ca serait bien de clore le sujet sur une certitude.

[trollinou]

En fait le problème n'est pas de demander la feuille mère pour interroger le range mais de demander la mère pour avoir une information qui soit en relation avec la mère.

Par exemple si tu souhaites connaitre la ligne à laquelle débute la plage (Range) sur la feuille il te faut bien évidemment la mère.
Mais pour avoir la mère pas besoin du paramètre Worksheet puisque Range.Parent te donne la feuille sur laquelle se trouve la plage.

Si tu veux connaitre le nombre de ligne de la plage, pas besoin.

J'espère avoir été clair .....