Discussion :

[bzh.floriane]

Bonjour, est-il possible qu'une fonction renvoie une valeur de type Range.
Dans ma fonction Macro1(), je veux lancer la fonction sans argument FindTable() et retourner le tableau trouvé dans la variable FindTable

Puis rentrer ce paramètre dans une autre fonction en argument : Call CleanTable(FindTable)

Cependant, je ne dois pas avoir la bonne syntaxe pour retourner un paramètre, l'erreur est surement à la ligne : Set FindTable = Call FindTable. Mais je ne vois pas comment écrire

Voici mon code :

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
25
26
27
28
29
30
31
32
Sub Macro1()
    Dim Sh As Worksheet
    Dim FindTable As Range
 
    Chemin = ThisWorkbook.path
    Set Sh = ThisWorkbook.Sheets("Sheet1")
 
    Cells.Clear
 
    Set FindTable = Call FindTable
 
    Call CleanTable(FindTable)
 
End Sub
 
Function FindTable() As Range
    Dim Sh As Worksheet
    Dim CellFind As Range
    Dim RefCell As String
 
    RefCell = "Today date"
 
    Chemin = ThisWorkbook.path
    Set Sh = ThisWorkbook.Sheets("Sheet1")
    Workbooks.Open (Chemin & "/Classeur_travail.xlsx")
 
    Set CellFind = Workbooks("Classeur_travail.xlsx").Worksheets("Sheet2").Cells.Find(RefCell, LookIn:=xlValues, SearchOrder:=xlByRows, MatchCase:=False)
 
    FindTable = Workbooks("Classeur_travail.xlsx").Worksheets("Sheet2").Rows(CellFind.Row + 1 & ":" & CellFind.Row + 6)
 
    Workbooks("Classeur_travail.xlsx").Close
End Function

[Menhir]

Code :

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

1
2
3
4
Sub Macro1()
    Dim FindTable As Range
...
Function FindTable() As Range

Ca, c'est vraiment une très mauvaise idée.
Il y a des milliards de combinaisons possibles pour nommer une variable ou une fonction.
C'est vraiment vouloir se tirer une balle dans le pied que de donner le même à deux éléments différents.

Dans la suite des explication, je vais les renommer VFindTable et FFindTable pour les différencier.

Cependant, je ne dois pas avoir la bonne syntaxe pour retourner un paramètre, l'erreur est surement à la ligne : Set FindTable = Call FindTable.

Déjà, une Function ne s'appelle pas avec un Call. Le Call est plutôt réservé aux Sub.
De toute façon, le Call est une instruction, on ne peut pas le mettre à la suite d'un "=" pour l'assigner.
Une Function s'utilise comme une valeur ou une variable paramétrée.
La syntaxe correcte est Set VFindTable = FFindTable().

Autre détail, quand tu fais des opérations pour créer l'adresse d'un Range, ne soit pas avare de parenthèses pour lever les ambigüités.
Mais la principale erreur, c'est que tu as oublié le Set devant ton FindTable.

Code :

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

    Set FFindTable = Workbooks("Classeur_travail.xlsx").Worksheets("Sheet2").Rows((CellFind.Row + 1) & ":" & (CellFind.Row + 6))

Personnellement, j'aurai plutôt écrit (question de goût) :

Code :

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

    Set FFindTable = Workbooks("Classeur_travail.xlsx").Worksheets("Sheet2").Cells(CellFind.Row + 1, 1).Resize(6, 1).EntireRow

Il serait bon aussi, après ton Find, de contrôler si la recherche a été fructueuse avant d'utiliser CellFind, histoire de gérer proprement un bug éventuel.

[bzh.floriane]

Merci pour toutes tes remarques, je les ai bien prises en compte.

Cependant, cela ne fonctionne pas. Je n'arrive toujours pas à retourner un paramètre via ma fonction. Dans ma fonction Macro1, la variable TableFind est vide.

Me conseilles-tu pour tester si CellFind n'est pas vide de faire une boucle If. Je t'avoue que je débute, et je ne sais pas trop quelle est la méthode conseillée.

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Sub Macro1()
    Dim Sh As Worksheet
    Dim TableFind As Range
 
    Chemin = ThisWorkbook.path
    Set Sh = ThisWorkbook.Sheets("Sheet1")
 
    Cells.Clear
    'ERREUR ICI : TableFind vide'
    Set TableFind = FindTable()
    TableFind.Copy Sh.Cells(1, 1)
    Call CleanTable(TableFind)
 
End Sub
 
Function FindTable() As Range
    Dim Sh As Worksheet
    Dim CellFind As Range
    Dim RefCell As String
    Dim TableFind As Range
    Dim Ln As Integer
 
    RefCell = "Today date"
    Dim NombreVal As Integer
 
    Chemin = ThisWorkbook.path
    Set Sh = ThisWorkbook.Sheets("Sheet1")
    Workbooks.Open (Chemin & "/Classeur_travail.xlsx")
    NombreVal = 1
    Ln = 0
    Set CellFind = Workbooks("Classeur_travail.xlsx").Worksheets("Sheet2").Cells.Find(RefCell, LookIn:=xlValues, SearchOrder:=xlByRows, MatchCase:=False)
    'Faire une boucle If CellFind != 0 Then ? '
    Do While NombreVal > 0
        Ln = Ln + 1
        NombreVal = Workbooks("Classeur_travail.xlsx").Worksheets("Sheet2").Application.WorksheetFunction.CountA(Rows(CellFind.Row + Ln))
    Loop
 
    Set TableFind = Workbooks("Classeur_travail.xlsx").Worksheets("Sheet2").Cells(CellFind.Row + 1, 1).Resize(Ln, 1).EntireRow
    'End If ? '
    Workbooks("Classeur_travail.xlsx").Close
End Function
 
 
Function CleanTable(TableFind As Range)
    Dim Sh As Worksheet
    Dim Ln As Integer, Col As Integer
 
    Chemin = ThisWorkbook.path
    Set Sh = ThisWorkbook.Sheets("Sheet1")
    Workbooks.Open (Chemin & "/Classeur_travail.xlsx")
 
    TableFind.Copy Sh.Cells(20, 1)
 
End Function

[Menhir]

Je n'arrive toujours pas à retourner un paramètre via ma fonction. Dans ma fonction Macro1, la variable TableFind est vide.

C'est peut-être, comme je le disais, parce que ta recherche Find est infructueuse.
Mets un point d'arrêt sur ton code en ligne 33 et regarde ce que contient CellFind.

[bzh.floriane]

Non, ma recherche est fructeuse. lorsque j'affiche TableFind dans la fonction FindTable, il s'affiche bien. mais lorsque je veux appeler cette fonction FindTable dans ma macro pincipale, elle ne retourne rien

J'avais lu que si on voulait que la fonction retourne qqe chose, il fallait que la variable a retourné soit du même nom que le nom de la fonction. C'est pour ça qu'au début je les avais appelé pareil

[Menhir]

Je t'avais bien dit que tes noms sont mal choisis et qu'ils entrainent des confusions.

Code :

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

    Dim TableFind As Range

Ceci n'a rien à faire dans la fonction FindTable

Code :

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

    Set TableFind = Workbooks("Classeur_travail.xlsx").Worksheets("Sheet2").Cells(CellFind.Row + 1, 1).Resize(Ln, 1).EntireRow

C'est le nom de la fonction qui doit être assignée.

Les variables déclarées dans la fonction, même si elles ont le même nom qu'une autre dans la macro appelante, disparaissent dès que la fonction est achevée.

[Patrice740]

Bonjour,,

Merci pour toutes tes remarques, je les ai bien prises en compte.

Pourtant ça fait deux fois que Menhir () le répète : tes noms entrainent une confusion.

Microsoft aussi le dit (au 5ème point) : https://docs.microsoft.com/fr-fr/off...c-naming-rules
« Vous ne devez pas répéter de noms dans le même niveau de portée »

Traduction : dans une même procédure, on ne peut pas écrire que, la variable de type Range nommée FindTable est égale au résultat de la fonction de type Range nommée FindTable !
Il faut soit changer le nom de la variable, soit celui de la fonction, par exemple :

Code :

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

1
2
3
Dim rngFindTable As Range
'...
Set rngFindTable =  FindTable()