Obliger format standard avec point et non virgule

JCGL à dit:

Bonjour à tous,
Salut Patrick,

Pour remettre Excel comme on l'a ouvert :

VB:

Option Explicit
Dim SepDec As String, SepMil As String


Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Application
        .DecimalSeparator = SepDec
        .ThousandsSeparator = SepMil
    End With
End Sub


Private Sub Workbook_Open()
SepDec = Application.DecimalSeparator
SepMil = Application.ThousandsSeparator
    With Application
        .DecimalSeparator = "."
        .ThousandsSeparator = ""
    End With
End Sub

A+ à tous

Cliquez pour agrandir...