Discussion :

[justind1989]

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 :

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
'---------------------------------------------------------------------------------------------------------
'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
.

[Marc-L]

Bonjour, bonjour !

Le format de la ligne de code n°15 transforme les valeurs négatives en texte ‼

Voilà, voilà !

___________________________________________________________________________________________________________

Je suis Paris, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Docmarti]

Bonjour.

Lors de l'ecriture, il faut bien definir le type de la valeur ainsi que la propriete Numberformat.

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
For i = 1 To 5
 For j = 1 To 2
 
  Cells(i, j).NumberFormat = "General"
 
 If IsNumeric(t(i, j)) Then
  Cells(i, j).Value = CDbl(t(i, j))
 
 ElseIf IsDate(t(i, j)) Then
  Cells(i, j).Value = CDate(t(i, j))
 
 Else
  Cells(i, j).Value = t(i, j)
 
  End If
 Next
Next

[justind1989]

Bonjour,

Marc-L :
Ligne 15 : Cette ligne agit uniquement sur la colonne "B".
Il n'y aucun rapport avec mes prix. Cela met en forme mes dates rien de plus ...

Docmarti : Je ne comprend pas du tout ton code ... Pourrais-tu me fournir des explications et ou tu veux en venir dans mon code ?

Cordialement,

Justin

[Marc-L]

Ligne 15 : Cette ligne agit uniquement sur la colonne "B".

Exact !     Autant pour moi …    

Bien formater les cellules avant de réaliser l'importation des données …

[justind1989]

Bonjour
J'ai pris le temps de comprendre le code de Docmarti !
J'ai compris ! J'ai appliqué ! Et ca fonctionne parfaitement bien

Grand merci

[Invité]

bonjour,
https://www.developpez.net/forums/d1...u/#post8394195