Insertion colonnes - Décalage données VBA

Version imprimable

12/09/2015, 14h35
lego35

1 pièce(s) jointe(s)

Insertion colonnes - Décalage données VBA

Bonjour le forum.

Je souhaite insérer 2 colonnes supplémentaires dans mes onglets "Mois", le problème c'est que cette insertion ne me donne plus les données dans mon onglet "SYNTHESE".
je joins mon fichier... comme on le constate mes données de l'onglet "SYNTHESE" de janvier ne sont plus renseignés du fait de l'insertion des 2 colonnes "C et D" dans l'onglet de "Janvier"

Je sais que c'est pas grand chose mais je n'y connais rien en VBA et au risque tout détraquer... je m'adresse à vous.

Merci par avance
Cdlt
Lego
13/09/2015, 10h07
Theze

Bonjour,

Citation:

Je sais que c'est pas grand chose mais je n'y connais rien en VBA et au risque tout détraquer... je m'adresse à vous.

Vu le code, j'en déduis que tu as récupérer ce classeur quelque part ? Il faut un bon moment pour décortiquer ce code et savoir avec précision ce qu'il fait donc, je pense qu'il serait plus judicieux que tu te tourne vers la personne qui a conçu ce classeur afin qu'elle te renseigne plus rapidement.

Hervé.

Bon, je me suis penché sur le code et fais quelques modifications dans ce dernier afin de prendre en compte les deux colonnes insérées. Mets en commentaire le code situé dans le module de la feuille "SYNTHESE" et colle celui-ci et teste :

Code:

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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
 
Private Sub Worksheet_Activate()
 
    Dim M As Long, Plg As Range, Te(), Le&, Ts(), Ls&, _
    Données As Collection, Nom As SsGroup, Prénom As SsGroup, _
    Mois As SsGroup, TotJ As Double, Détail
 
    ReDim Ts(1 To 2000, 1 To 4)
 
    For M = 1 To 12
 
       Set Plg = ColUti(Worksheets(M).[A4:H4]) '<-- modifié ici !
 
       If Not Plg Is Nothing Then
 
            Te = Plg.Value
 
            For Le = 1 To UBound(Te)
 
                If Te(Le, 5) = 9 Or Te(Le, 5) = 10 Then
 
                    Ls = Ls + 1
 
                    Ts(Ls, 1) = Te(Le, 1)
                    Ts(Ls, 2) = Te(Le, 2)
                    Ts(Ls, 3) = Te(Le, 8) '<-- midifié ici !
 
                    Ts(Ls, 4) = M
 
                End If
 
            Next Le
 
        End If
 
    Next M
 
    If Ls = 0 Then Exit Sub
 
    MClassement.DernièreLigneIdx = Ls
 
    Set Données = GroupOrg(Ts, 1, 2, 4)
 
    Ls = 0
 
    For Each Nom In Données: Ls = Ls + Nom.Count: Next Nom
 
    ReDim Ts(1 To Ls, 1 To 18)
 
    Ls = 0
    For Each Nom In Données
 
        For Each Prénom In Nom.Contenu
 
            Ls = Ls + 1
 
            Ts(Ls, 1) = Nom.Id
            Ts(Ls, 2) = Prénom.Id
 
            For Each Mois In Prénom.Contenu
 
                TotJ = 0
 
                For Each Détail In Mois.Contenu
 
                    TotJ = TotJ + Détail(3)
 
                If TotJ > 0 Then Ts(Ls, Mois.Id + 2) = TotJ
 
    Next Détail, Mois, Prénom, Nom
 
    ValPlgAju(Me.[Résultat]) = Ts
 
    Me.[Résultat].RowHeight = 24
 
End Sub

13/09/2015, 13h02
lego35

Merci Theze,

Effectivement 4 petites modifs et le tour est joué... mais il fallait le faire.

Merci encore.

Cdlt
Lego