Bonjour,

J'ai crée un tableau dans lequel j'intègre mes données calculées afin de les transposer ensuite dans une feuille Excel.

Le format que j'ai défini n'est pas pris en compte.
Par ailleurs, le format numérique appliqué s'affiche correctement dans ma feuille mais j'ai un message m'indiquant que la donnée est stockée au format texte et m'invite à convertir en numérique.

Pouvez-vous m'aider?

Merci

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
29
30
31
32
33
 
 
Sub MacroTest
Dim ID as String
Dim Name as String
Dim Montant as Double
 
 
Dim tableau()
ReDim tableau(24, 2)
 
i = 0
 
For j = 1 to 25
 
ID = worksheets("TEST").cells(j,1)
Name = worksheets("TEST").cells(j,2)
Montant = worksheets("TEST").cells(j,3)
 
tableau(i, 0) = Format(ID, "General")
tableau(i, 1) = Format(Name, "@")
tableau(i, 2) = Format(Val(Montant), "0.00")
 
 
i = i+1
 
Next j
 
 
Worksheets(Resultat).Select
Range(Cells(3, 1), Cells(28, 3)) = tableau
 
End Sub