Explication pour une déclaration de variable

treza88

XLDnaute Occasionnel
Bonjour a tous,

Quelqu'un pourrait il m'expliquer a quoi correspondent les variables suivantes "Tab_Feuil()" et "Liste()" dans la déclaration de variable ci dessous:

VB:
Dim i As Integer, j As Integer, l As Integer, Tab_Feuil(), Liste()

Merci d'avance

PS: désolé pour le titre une erreur de frappe et pas réussi a modifier!
 
Dernière édition:

treza88

XLDnaute Occasionnel
Bonjour et merci a vous tous,
Désolé de mon absence, mais me revoila.
Et merci Staple1600 Titre modifié avec succès.

Le soucis avec les outils de debug c'est que je sais pas les utiliser(espions et variables locales), le seul outils que j'utilise c'est des stop que je place dans mas procedure pour faire des arrets ou je suppose qu'il y a un probleme, pour pouvoir analyser palier par palier et egalement l'execution pas a pas de temps en temps.

Le code de la procedure est celui ci:

VB:
Sub ExtractionCodeSurPlusieursOnglets()

    Dim ShCible As Worksheet
    Dim ListeDesOngletsATraiter As Variant
    Dim k As Integer
    Dim i As Integer, j As Integer, l As Integer, Tab_Feuil(), Liste()

l = ThisWorkbook.Worksheets.Count - 7

    For i = 7 To ThisWorkbook.Worksheets.Count
        If Sheets(i).Visible Then
            ReDim Preserve Tab_Feuil(j)
            Set Tab_Feuil(j) = Sheets(Sheets(i).Name)      '<----- ligne complétée
            j = j + 1
        End If
    Next

    Set ShCible = Sheets("Total Chant")
    With ShCible
        .Range(.Cells(1, 1), .Cells(.Rows.Count, 2)).ClearContents
    End With
    ListeDesOngletsATraiter = Tab_Feuil
  
    For k = 0 To l
        Extraction_Code ListeDesOngletsATraiter(k)
        RestituerLaMatrice ShCible
    Next k
    ' Tri de l'onglet cible....
    Set ShCible = Nothing

End Sub
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, le forum

Comme ta macro appelle d'autres macros (dont on ignore ce qu'elles font)
ListeDesOngletsATraiter
Extraction_Code ListeDesOngletsATraiter(k)
RestituerLaMatrice ShCible

on ne peut pas vraiment faire de tests, non?

Par contre si tu joignais une copie anonymisée de ton classeur, on pourrait faire des tests.
 

treza88

XLDnaute Occasionnel
Bonjour Staple1600,

Je viens de faire une version edulcoré de mon fichier, ou il ne reste que la partie qui nous interresse.
Il faut se positionner sur l'onglet "Total chant" et cliquer sur le bouton "Calcul cumul chants".

Normalement si c'est comme chez moi il y a une erreur d'execution car dans le dernier onglet les colonnes "N;O;P;Q" sont vides et je n'ai pas encore trouvé comment gerrer cette erreur.
Si tu met une reference quelconque dans une de ces colonnes ça ne devrai plus bugger.

Le but de la macro est de recuperer toutes les longueurs de chants des dernier onglets (ici 3 onglets)et dans faire le cumul par reference de chant dans l'oglet "Total chant".

Par la suite je recherche a faire le cumul des references de chants par onglet (une colonne par onglet)et non pas comme ici le total de tous les onglets.

J'espere que je suis resté a peu pres clair et que je ne me suis pas perdu dans des détails.
 

Pièces jointes

  • Matiere essai.xls
    398.5 KB · Affichages: 25

Discussions similaires

Statistiques des forums

Discussions
312 094
Messages
2 085 242
Membres
102 833
dernier inscrit
Hassna