1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
Dim Nouveau_Tab_Teste As Variant
Dim Vieux_Tab_Teste As Variant
Var_teste = 0
Vieux_Tab_Teste = Sheets("feuil2").Range("A36 : I2012")
cpt1 = 0
For cpt3 = LBound(Vieux_Tab_Teste, 1) To UBound(Vieux_Tab_Teste, 1)
For cpt2 = LBound(Vieux_Tab_Teste, 2) To UBound(Vieux_Tab_Teste, 2)
If Vieux_Tab_Teste(cpt3, 2) = Vieux_Tab_Teste(cpt3 + 1, 2) Then
Nouveau_Tab_Teste(cpt1)(cpt3, cpt2) = Vieux_Tab_Teste(cpt3, cpt2)
Else
Nouveau_Tab_Teste(cpt1)(cpt3, cpt2) = Vieux_Tab_Teste(cpt3, cpt2)
cpt1 = cpt1 + 1
End If
Next
Next |
