Discussion :

[alex2603]

Bonjour a tous! Je suis nouveau sur ce forum et pose donc ma première question.

J'ai crée une fonction qui est essentiellement une recherchev avec plus de paramètres. C'est pour mon usage personnel, et je fais ça pour m'entrainer.

Mon code fonctionne quand j'utilise la fonction dans le même fichier et même onglet que celui ou je vais chercher l'info.
Lorque j'utilise la fonction dans un fichier différent, ça ne fonctionne pas.

Les deux fichiers sont ouverts, ainsi que celui de la fonction (.xla)

Je n'arrive donc pas à selectionner une plage dans un autre fichier...

Merci d'avance.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function RECHERCHEDECALEE(ancre As String, fichier As String, ligne As Integer, colonne As Integer) As Double
 
Dim position As Range
 
Workbooks(fichier & ".xls").Worksheets(1).Activate
 
Set position = ActiveWorkbook.ActiveSheet.Cells.Find(ancre)
 
position.Select
 
RECHERCHEDECALEE = position.Offset(ligne, colonne).value
 
End Function

[Gado2600]

Bonjour,

Et avec ceci :

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
Public Function RECHERCHEDECALEE(ancre As String, fichier As String, ligne As Integer, colonne As Integer) As Double
 
Dim position As Range
dim xlWkBook   as workbook
 
set xlWkBook = Workbooks(fichier & ".xls")
 
set position = nothing
on error resume next
Set position = xlWkBook.Worksheets(1).Cells.Find(ancre)
on error goto 0
 
if not position is nothing then
 
     RECHERCHEDECALEE = position.Offset(ligne, colonne).valuee
else
     RECHERCHEDECALEE = -1
end if
 
End Function

Tu n'as, cependant, pas pris en compte le fait que ton find ne renvoi aucun résultat (d'où le on error resume next).

Cordialement

[Invité]

Bonsoir,

Code :

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

1
2
3
 
Public Function RECHERCHEDECALEE(ancre As String, fichier as workbook
Set position = fichier.Worksheets(1).Cells.Find(ancre)

[alex2603]

la première solution marche! merci beaucoup! je vais étudier ça

[Theze]

Bonjour,

Une fonction ne peut que retourner une valeur ou un tableau de valeurs et ne peut en aucun cas effectuer des manipulations d'objets donc :

Code :

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

1
2
3
4
 
Workbooks(fichier & ".xls").Worksheets(1).Activate
'...
position.Select

tu peux oublier, ça ne fonctionnera jamais !
Il te faut faire de cette façon, ne pas utiliser d'extension (.xls ou autres) car si tu veux utiliser la fonction sur un classeur non encore enregistré, tu auras une erreur :

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
 
Public Function RECHERCHEDECALEE(Classeur As String, _
                                 IDFeuille As Integer, _
                                 Ancre As String, _
                                 Ligne As Integer, _
                                 Colonne As Integer) As Variant
 
    Dim Fe As Worksheet
    Dim position As Range
 
    Application.Volatile
 
    Set Fe = Workbooks(Classeur).Worksheets(IDFeuille)
 
    Set position = Fe.Cells.Find(Ancre)
 
    If Not position Is Nothing Then
        RECHERCHEDECALEE = position.Offset(Ligne, Colonne).Value
    Else
        RECHERCHEDECALEE = "ERREUR!"
    End If
 
End Function

Il est peut être préférable de typer la fonction Variant car tu ne peux être sûr de ce qu'elle va retourner. Tu l'utilise de la façon suivante :

Code :

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

1
2
 
=RECHERCHEDECALEE("Classeur2";3;"Test";4;4)

cherche la valeur "Test" dans les cellules du classeur non enregistré "Classeur2" dans la feuille n° 3 et si trouvée, retourne la valeur situé dans la cellule 4 lignes plus bas et 4 colonnes à droite. Attention au valeur qui peuvent sortir de la feuille !

[Invité]

Personnellement j'opterai pour passer le workbook directement a ma fonction comme dit plus haut!