Discussion :

[valery.petit]

Bonjour,

pour accélérer l'éxécution de mes programmes, j'utilise des tableau sous VBA dans un programme qui appel ensuite mes sous programmes.

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
Option Explicit
 
Public TableauTag()
Public TableauUDT()
Public TableauCSV()
Public TableauProcess()
Public DBi
Public itab As Integer
Public Num_iD As Long
Public iTabUDT As Long
 
Sub Main_Récup_SymbolicTagcsv()
 
Call Ouverture_CSV
Call Récupération_Adresse_Tags
Call Liste_Process
Call Structure_UDT_Siemens
Call Structure_CSV_KEP
Call Generer_vers_KEP

dans chaques sous programme j'utilise la ligne

Code :

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

1
2
 'Définit la taille du tableau
                         ReDim Preserve TableauTag(1 To 6, 1 To itab)

pour dimensionner mon tableau à la bonne taille.

ça fonctionne jusque ici, je structure mes données dans un tableau pour ensuite les transférer dans le tableau suivant et passer l'étape.

Code :

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

1
2
3
4
5
6
7
 ...TableauCSV(9, itabComplet_CSV) = "null"                     'Index (Lecture)
            TableauCSV(16, itabComplet_CSV) = "'False'"                                                             'Tag Stilisateur(Notification)
            'TableauCSV(17, itabComplet_CSV) = temporaire                                                        'Adresse (Notification)
            TableauCSV(18, itabComplet_CSV) = "null"                                                             'Index (Notification)
            TableauCSV(19, itabComplet_CSV) = TableauUDT(9, iBoucle_UDT + iDecompte)                             'Condition
            TableauCSV(20, itabComplet_CSV) = TableauUDT(10, iBoucle_UDT + iDecompte)                             'Valeur de déclenchement
...

Voilà globalement ce que contient le programme actuel, il peut probablement être amélioré, mais il est fonctionnel et me donne le résultat voulu.

J'ai besoin aujourd'hui d'ajouter une étape intermédiaire et pour cela un nouveau sous programme.
j'ai donc écrit le programme ci-contre qui n'est pas fini mais qui étapes par étapes me permet de tester l'intégration.

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
Option Explicit
 
Sub Liste_Process()
 
Dim iboucleListe
 
'On boucle sur le tableauTag
For iboucleListe = 1 To 1001
 
'On vérifie de ne pas être au bout de la liste
If TableauTag(1, iboucleListe - 1) = "Vide" Then
 
Exit For
 
Else
'Sinon, on compléte les colonnes
 
        'Définit la taille du tableau
            ReDim Preserve TableauProcess(1)
 
                         TableauProcess(iboucleListe) = TableauTag(5, iboucleListe)
 
End If
Next
End Sub

Seulement lorsque ce code s'éxécute, je suis incapable de lire le contenue du tableau précédent "TableauTag ()"....
le tableau est bien lisible dans la "Fenêtre Variable local" avant d'entrer dans ce sous programme mais plus du tout une fois que je suis dedans.
je pense procéder de la même façon que pour mes codes précédents du coup je sèche un peux.....

n'hésitez pas à m'apporter vos lumières!
Merci d'avance!

Valery

[valery.petit]

quelqu'un aurait-il une piste de réflexion pour moi?
- coup de pied au cul pour faute grave
- conseille de vie sage
- ....

je peux envoyer mon code si vous voulez en voir plus.

merci d'avance pour vos retour

Edit : Erreur de débutant,
- je récupére les données sur la feuille sélectionnée
- Il est normal que les tableau ne soit pas lisibles pendant certaine périodes de la scrutation du programme.

[deedolith]

Mon dieu, que de variables globales qui n'ont pas lieux d'être ....

- coup de pied au cul pour faute grave

Ce serait trop gentil.

Erreur de débutant,

Non, erreur de paresseux !!!!
Et c'est une habitude qu'il va te falloir perdre, le plus tôt sera le mieux.

Par pitié, utilises des paramètres, tu auras un meilleur contrôle sur ce qui se passe.
Exemple:

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
Option Explicit
 
Public Sub Test()
    Dim Tableau(10) As Integer
    Remplir Tableau
    Affiche Tableau
End Sub
 
Private Sub Remplir(ByRef Tableau() As Integer)
    Dim i As Integer
    For i = LBound(Tableau) To UBound(Tableau)
        Tableau(i) = i
    Next
End Sub
 
Private Sub Affiche(ByRef Tableau() As Integer)
    Dim i As Integer
    For i = LBound(Tableau) To UBound(Tableau)
        Debug.Print Tableau(i)
    Next
End Sub

Les variables globales posent d'énormes problèmes, risques de collisions, de masquage, absence de contrôle d'accès, source d'erreurs particulièrement difficile à corriger ect ....
Fuie les comme la peste.

Et si tu as peur de voir les paramètres se multiplier, fait des structures.
Exemple:

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
Option Explicit
 
Type MaStructure
    Tableau(10) As Integer
    Nom As String
End Type
 
Public Sub test()
    Dim Data As MaStructure
    Remplir Data
    Affiche Data
End Sub
 
Private Sub Remplir(ByRef Data As MaStructure)
    Dim i As Integer
    For i = LBound(Data.Tableau) To UBound(Data.Tableau)
        Data.Tableau(i) = i
    Next
    Data.Nom = "pifometre"
End Sub
 
Private Sub Affiche(ByRef Data As MaStructure)
    Dim i As Integer
    For i = LBound(Data.Tableau) To UBound(Data.Tableau)
        Debug.Print Data.Tableau(i)
    Next
    Debug.Print Data.Nom
End Sub

Autre points:
Tes tableaux ne sont pas typés.