Discussion :

[Celes_Vongola]

Bonjour,

J'ai un problème depuis un moment que je n'arrive pas à résoudre (je l'ai contourné mais cette fois ce n'est plus possible)

Pour résumer, j'ai une classe A donc j'ai déclaré un tableau à l'intérieur d'une classe B qui a une instance global au projet.
La classe A possède certainement méthode, pour faire un test j'ai fait une procédure test avec un simple MsgBox.
Malheureusement quand j'appel l'objet à travers mon tableau (objets(i).test) il me dit alors que mon ma variable d’exécution ou bloc with n'est pas défini (erreur d’exécution 91)

Si quelqu'un pouvait m'aider un peu je lui en serais reconnaissant

Merci d'avance
Bonne Journée

[illight]

Pour t'aider, je pense qu'il nous serait fort utile de voir ton code

[Celes_Vongola]

Je peut mais c'est vraiment pas joli à voir ^^
Même en postant que les parties utiles:

Les types et variables:

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
Public Type Ref
 
 name As String
 refList() As String
End Type
 
Public Type Specifications
 
 states() As String
 occupations() As String
 category() As Ref
 programs() As Ref
End Type
 
Public Type ActivitySpecifications
 
 state As String
 occupation As String
 category As String
 module As String
 program As String
 nbProgram As String
End Type
 
Public Type ScheduleDate
 
 year_ As Integer
 week_ As Integer
End Type
 
Public Type Remarks
 
 scheduleRemarks As String
 globalRemarks As String
End Type
 
Public BDD As New data
Public Schedule As New Schedule
Public Control As New Control

La classe B

Code :

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

1
2
3
4
5
6
7
8
    Private activities() As activity
    Private startYear As Integer
    Private startWeek As Integer
    Private view As Integer
 
    Public Sub affff()
    activities(1).aff
End Sub

La classe A

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Private Specifications As ActivitySpecifications
    Private startDate As ScheduleDate
    Private endDate As ScheduleDate
    Private period As Integer
    Private Remarks As Remarks
 
Sub class_initilize()
End Sub
 
Public Sub aff()
    MsgBox (Specifications.state)
End Sub

La fonction de test

Code :

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

1
2
3
Sub TEST()
   globalModul.Schedule.affff
End Sub

J'espère que ça peux aider

[Celes_Vongola]

Désolé pour le double post, mais c'est pour aérer un peu.
Je viens d'avoir la même erreur sur une fonction toute simple.
Peut être que si je comprend celle la, je pourrais comprendre la première.

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
Function activityRange(name As String) As range
 
    Dim i As Integer
    Dim cell As Variant
    Dim activities As ListObject
    cell = range("SCHEDULE").value
 
    Set activities = range("SCHEDULE").ListObject
 
    Dim header() As String
    ReDim header(range("Sval").value)
 
    For i = 1 To UBound(header, 1)
 
        If cell <> "" Then
            header(i) = cell
 
        Else
            i = i - 1
 
        End If
 
        cell = range("SCHEDULE").Offset(0, i).value
 
    Next i
 
 
    For i = 1 To UBound(header)
 
        If header(i) = name Then
             activityRange = activities.ListColumns(i).range  'Erreur ici
     End If
   Next i
 
 
End Function

Merci d'avance

[AlainTech]

Bonjour,

Il manque le Set.