Bonjour,
je fais l'appel dans mon code d'un tableau crée dans une autre partie du code..
l'appel ne fonctionne pas. quelqu'un serait il m'aider?
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
55
56
Sub testdetail()
 
 
Dim oDb As DAO.Database
Dim  i, DerCelC, DerCelL As Variant
Dim StrSQL As String
Dim oRst As DAO.Recordset
.
.   
.
 
     DerCelL = DerCelL()
     DerCelC = DerCelC()
    For i = 1 To DerCelL
MsgBox MonPremierTableau(i)
 
Next
...
End With
 
'Libération des objets
oRst.Close
oDb.Close
 
Set oRst = Nothing
Set oDb = Nothing
 
 
End Sub
Sub MonPremierTableau()
    'Définit la taille du tableau et le type de données.
    Dim i As Integer
    Dim MonPremierTableau() As Variant
    ReDim MonPremierTableau(DerCelL())
 
    For i = 1 To DerCelL()
 
    MonPremierTableau(i) = ThisWorkbook.Worksheets(3).Cells(i + 1, 2)
    MsgBox MonPremierTableau(i)
 
    Next i
 
End Sub
 
 
Function DerCelL() As Long
 
    DerCelL = Worksheets(3).Range("B65536").End(xlUp).Row - 1
 
End Function
 
Function DerCelC() As Long
 
    DerCelC = Worksheets(3).Range("A400").End(xlLeft).Column + 1
 
End Function

merci par avance ,


Will