Discussion :

[amel95140]

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

[bidou]

Code :

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

Set liste = get_coordonne

[amel95140]

merci beaucoup