Bonjour,

j'essaye desesperemment à récupéré une liste envoyé par une fonction
mais ca m'affiche tjrs l'erreur suivante:
"wrong number of arguments or invalid property assignement"

voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Sub main()
'-------------------------------------------------------declaration-----------------
Dim liste As Object: Set liste = CreateObject("scripting.dictionary")
   liste = get_coordonne 
End Sub
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
Function get_coordonne() As Object
 
'-------------------------------------------------------declaration-----------------
    Dim i As Integer
    Dim row As Integer
    Dim cols As Integer
    Dim liste As Object: Set liste = CreateObject("scripting.dictionary")
 
'-------------------------------------------------------initialisation
    i = 0
    row = 1
    cols = 1
 
'-------------------------------------------------------------------------------------
    Sheets("Change").Select
 
        While (Cells(row, cols).Value <> "")
            liste.Add Cells(row, cols).Value, cols
            i = i + 1
            MsgBox ("le nom est" & Cells(row, cols).Value & "l'indice est " & cols)
            cols = cols + 1
 
        Wend
 
    Set get_coordonne = liste
 
 
End Function
Merci pour votre aide