Discussion :

[Jah73]

Bonjour à tous,

J'espère poster au bon endroit

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

[Jah73]

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

Code :

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

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

[chrismonoye]

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 :

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

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 :

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

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

[Jah73]

Merci à vous chrismonoye et Pascal Lob

Je retiens ta solution chris