Problème NumberFormat avec un nombre entier Excel

Version imprimable

17/01/2014, 11h29
Jah73

Problème NumberFormat avec un nombre entier Excel

Bonjour à tous,

J'espère poster au bon endroit :ccool:

Mon programme VB.NET extrait des valeurs dans un fichier excel depuis une BDD. Je souhaiterais formater ma cellule comme ceci : #.###

Ca fonctionne comme il faut sauf si j'ai un nombre entier. Exemple :

Nombre sans format : 12.3697987
Avec format : 12.370

Nombre sans format : 3
Nombre avec format : 3.

Il me rajoute un point si le nombre est entier.

Est-ce qu'il y a une solution pour eviter ca ?

Merci d'avance,

Jah

J'ai trouvé un moyen mais je trouve pas ca top. J'ai créé la méthode suivante :

Code:

1
2
3
4
5
6
7
8
9
10
11
Public Sub PatternWorksheetNumber(ByRef pWs As ExcelWorksheet)
     Dim i As Integer
     For numbRow As Integer = pWs.Dimension.Start.Row To pWs.Dimension.End.Row
          For numbCol As Integer = pWs.Dimension.Start.Column To pWs.Dimension.End.Column
               'Si la valeur de cells n'est pas un entier
               If Not Int32.TryParse(pWs.Cells(numbRow, numbCol).Text.ToString, i) Then
                    pWs.Cells(numbRow, numbCol).Style.Numberformat.Format = "#.###"
               End If
          Next
     Next
End Sub

Est-ce que quelqu’un connait une façon plus simple pour faire ca ?

Merci d'avance,

Jah

Bonjour,
vous utilisez la librairie EPPlus si je ne m'abuse, (que je ne connais pas).
Le chargement de la table visée dans la BDD, se fait ainsi, je suppose :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
        Using pck As New ExcelPackage(newFile)
            Dim ws As ExcelWorksheet = pck.Workbook.Worksheets.Add("Feuil1")
 
            ws.Cells("A1").LoadFromDataTable(table, True, OfficeOpenXml.Table.TableStyles.None)
            ws.Cells(ws.Dimension.Address).AutoFitColumns()
 
            For Each dc As DataColumn In table.Columns
                ws.Column(dc.Ordinal + 1).Style.Numberformat.Format = GetAutoNumberFormat(dc.DataType)
            Next
 
            pck.Save()
        End Using

Dans ce cas, pour ma part, je récupèrerais, comme dans le code ci-dessus, le DataType de chaque colonne de la DataTable pour formater les données correspondantes dans la feuille Excel.
Avec le traitement des formats, comme suit :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Private Function GetAutoNumberFormat(type As Type) As String
 
        Dim format As String = ""
        Select Case type
            Case GetType(Integer) : format = "0"
            Case GetType(Double) : format = "0.000"
            Case GetType(Single) : format = "0.00"
            Case GetType(Decimal) : format = "0.00 " & Globalization.NumberFormatInfo.CurrentInfo.CurrencySymbol
            Case GetType(DateTime) : format = Globalization.DateTimeFormatInfo.CurrentInfo.ShortDatePattern
            Case GetType(String) : format = "@"
            Case GetType(Boolean) : format = """" & Boolean.TrueString & """;""" & Boolean.TrueString & """;""" & Boolean.FalseString & """"
        End Select
 
        Return format
 
    End Function

Source.
A voir...

18/01/2014, 12h00
Pascal Lob

Je crois que dans ton format d'objet le # présentera un chiffre s'il existe et un 0 présentera obligatoirement un zéro s'il n'y a pas de chiffre.
20/01/2014, 11h04
Jah73

Merci à vous chrismonoye et Pascal Lob

Je retiens ta solution chris :ccool: