Bonjour à tous,

je bloque sur une chose surement très bête mais je n'arrive pas à voir le problême. En fait, j'enregistre dans un tableau(sous VBA) des variables et je souhaiterais ensuite retranscrire ce tableau sur ma page excel mais cela ne prend que la première valeur du tableau :/

Voila mon code :

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
 
Sub General()
Dim TabFigureGM As Variant, TabTemplateGM As Variant, cmpt1 As Long, cmpt2 As Long
TabFigureGM = Feuil1.Range("G6:N" & Feuil1.Cells(60000, 7).End(xlUp).Row).Value
TabTemplateGM = Feuil2.Range("A2:C433").Value
Dim TabTemp (1 to 432)
 
 
For cmpt1 = LBound(TabTemplateGM, 1) To UBound(TabTemplateGM, 1)
Nbr = 0
    For cmpt2 = LBound(TabFigureGM, 1) To UBound(TabFigureGM, 1)
        If (Month(TabTemplateGM(cmpt1, 3)) = Month(TabFigureGM(cmpt2, 1))) And (Year(TabTemplateGM(cmpt1, 3)) = Year(TabFigureGM(cmpt2, 1))) Then
            If (TabTemplateGM(cmpt1, 1) = TabFigureGM(cmpt2, 2)) And (TabTemplateGM(cmpt1, 2) = TabFigureGM(cmpt2, 4)) Then
                   Nbr = Nbr + TabFigureGM(cmpt2, 7)
            End If
        End If
    Next cmpt2
TabTemp(cmpt1) = Nbr
Next cmpt1
    Feuil2.Range("H2:H433").Value = TabTemp
End Sub
Merci pour votre aide