Discussion :

[arnaud.j92]

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

[Zekraoui_Jakani]

Vous pouvez mettre votre tableau sous forme structurée, puis exploiter PowerQuey (à activer via les options XL) pour obtenir un résultat plus rapidement (sans VBA et sans erreurs)

[arnaud.j92]

Merci Zekraoui,

En fait, je souhaite passer par VBA, car là j'ai mis un exemple simplifié mais l'alimentation de mon tableau est faite via plusieurs dictionnaires...

[BENNASR]

bonjour
je sais pas si ça va aider .... une tentative
si tu ajoute CdBl

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Montant = cdbl(worksheets("TEST").cells(j,3))

[Qwazerty]

Salut

Quelques propositions

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
34
35
36
Sub MacroTest()
Dim ID As String
Dim Name As String
Dim Montant As Double
 
Dim tableau()
ReDim tableau(24, 2)
 
    'i = 0 : i = j-1
 
    'On désactive le rafraichissement de la session
    Application.ScreenUpdating = False
 
    'Il vaut mieux préciser toute les informations, Fichier-Feuille-Range
    With ThisWorkbook.Worksheets("TEST")
        For j = 1 To 25
 
            ID = .Cells(j, "A") 'plus facile à relir (à mon avis)
            Name = .Cells(j, "B")
            Montant = .Cells(j, "C")
 
            tableau(j - 1, 0) = Format(ID, "General")
            tableau(j - 1, 1) = Format(Name, "@")
            tableau(j - 1, 2) = Format(Val(Montant), "0,00") 'ici essaie la virgule au lieu du point
 
            'i = i + 1
 
        Next j
    End With
 
    With ThisWorkbook.Worksheets(Resultat)
        .Select
        .Range(Cells(3, 1), Cells(28, 3)).Value = tableau
    End With
 
End Sub

La non reconnaissance du format numérique me donne à penser que ton problème est lié aux préférences linguistiques de ton ordi. Si tu fais quelques recherches sur le sujet tu trouveras sans doute ton bonheur. Tu peux essayer, comme je l'ai modifié dans le code, d'utiliser la virgule au lieu du point. Attention tout de même si ton appli doit être diffuser sur d'autre ordinateur.
Si les préférences locales sont différentes de ton ordi, il se peut que la virgule ne soit pas reconnu car le point sera attendu...Tu trouveras des exemple sur le forum qui te permettront d'aller chercher dans les paramètres de l'ordi quel est le séparateur décimal local.

++
Qwaz