Discussion :

[Bastien06]

Bonjour,

J'ai créée une fonction sous VBA Excel qui me permet d'aller chercher une valeur souhaitée, dans une certaine plage de données. Je donne aussi la possibilité à l'utilisateur de renvoyer la valeur se trouvant dans une colonne décallée à gauche ou à droite (offset)

C'est un peut une variante de la rechercheV

Voici juste le début du code:

Code :

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

Public Function FetchThisValue(strValue As Variant, strWhichRange As Range, strWhichColonne As Variant)

Donc:
- Première variable je choisis ma valeur à chercher
- Deuxieme variable je choisis dans quelle plage chercher
- Troisième variable je choisis si je veux ou pas, qu'on me renvoie un offset du resultat

Le but est que cette fonction puisse être utilisée depuis n'importe quelle feuille de mon classeur, et puisse aller chercher la valeur dans n'importe quelle autre feuille.

Mon problème est le suivant:

Dans la deuxième variable Range, la valeur renvoyée par

Code :

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

strWhichRange.address

est toujours du type $A$1 sans tenir compte du nom de la feuille.

or si j'execute ma fonction depuis la feuille 1 et que ma plage de donnée est dans la feuille 2, ce que j'aimerai avoir cest: Sheet2!$A$1

Comment est-ce que je peux faire pour récupérer cette notion de feuille, aléatoire, dans mon code?

Merci par avance!

[Philippe Tulliez]

Bonjour,
Tu veux en fait obtenir la même chose que ce que la boîte de dialogue Rechercher et remplacer donne comme informations lorsque tu cliques sur le bouton Rechercher tout des options supplémentaires ?

[Kimy_Ire]

Quoi qu'il arrive il faudra que tu demandes à l'utilisateur de choisir ou de rentrer l'onglet sur lequel il veut effectuer sa recherche. Donc je te proposerais d'ajouter une variable "Optional Sht" en fin de la fonction qui, lorsque le champ est rempli, permet d'accéder à l'onglet que tu souhaites.

[Oliv-]

strWhichRange.parent pour la feuille
strWhichRange.parent.parent pour le classeur

[Philippe Tulliez]

Bonjour,
Oliv- m'a devancé mais comme j'ai préparé un exemple le voici

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
 Dim LookUpValue As String
 Dim db As Range, Indice As Integer
 Set db = ThisWorkbook.Worksheets("db").Range("B2:B28")
 LookUpValue = "Cutler"
 Indice = 2
End Sub
Public Function FetchThisValue(strValue As Variant, strWhichRange As Range, strWhichColonne As Variant)
 With strWhichRange
 MsgBox .Parent.Name & " / " & .Address
 End With
End Function

[Bastien06]

Bonjour,

merci à tous pour vous réponses!

J'ai pu trouver la solution à mon problème en utilisant le parametre

Code :

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

strWhichRange.Worksheet.Name

Merci encore pour votre aide!