1 pièce(s) jointe(s)
[Problème] Actualisation format cellule après import
Bonjour à tous,
J'ai un fichier Excel qui me permet d'après une macro d'importer des données depuis d'autres fichiers.
Ce sont principalement des prix.
Dans un premier temps, je stock ces données dans un tableau déclaré dans le code.
Ensuite une fonction insert les données de ce tableau dans mon fichier Excel.
Mais j'ai un soucis que voici :
30,00 €
1250,00 €
21,51
25.12
20 €
25.14
25.00 €
Pour les chiffres décimal mais rond (20.00) : Pas de soucis
Pour les chiffres décimale non exact (25.14) : Il y a la petite flèche verte au coin de la cellule qui me dit que la cellule est au format texte.
Je ne comprend pas pourquoi toutes les cellules ne contiennent pas le symbole € ...
Voici ma fonction :
Le tableau est au format string, car il contient plusieurs données (Texte et valeur numérique).
C'est un tableau de plusieurs colonne
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| '---------------------------------------------------------------------------------------------------------
'Cette fonction permet d'exporter le tableau Tableau_Contenu_RB() dans le tableau Excel de l'onglet "Import_RB_General"
'---------------------------------------------------------------------------------------------------------
Function Complete_Table_RB_General(Lig_Dep As Integer, Nom_RB As String, Nbr_Colomne As Integer, Nbr_Ligne As Integer)
Dim Temp As String
For i = Lig_Dep To (Nbr_Ligne + Lig_Dep - 1)
For j = 0 To Nbr_Colomne
If j = 0 Then
Cells(i, (j + 1)) = Nom_RB
Else
Cells(i, (j + 1)) = Tableau_Contenu_RB((i - Lig_Dep), j - 1)
End If
Next
Next
Columns("B:B").NumberFormat = "mm/dd/yy;@"
Columns("D:E").NumberFormat = "#,##0.00 €"
Worksheets("Import_RB_General").Columns("A:I").AutoFit
End Function |
Et voici le résultat ... Je ne comprends pas pourquoi le problème est uniquement sur les nombres avec des chiffres après la virgules ?
Je ne vois pas comment y remédier ...
A la mano dans Excel si je clic sur le cellule et que je fais "Entrer" bah le signe € apparait ... bisar
.Pièce jointe 259238
