[Jam]

Laurent,

Dans module CRTpage, j'ai 'optimisé' la sub suivante:

Sub AnnulerCRT()
Dim z As Byte
        With Accueil_Form
                .CRTBox.Clear
                .SaisieCRTBox.Clear ' Vide les TextBox et les ComboBox
                .QuantiteCRTBox.Value = ''
                .TotalCRTBox.Value = '0,00'
                For z = 0 ToUBound(CRTTab, 1)
                        With .CRTBox
                                .AddItem
                                .Column(0, z) = CRTTab(z, 0) ' Remise en place des données les saisies
                                .Column(1, z) = CRTTab(z, 1)
                        End With
                        .SaisieCRTBox.AddItem CRTTab(z, 0), z
                Next z
        End With
End Sub

Hop gratos :lol:

Une question aussi:

Peux-tu me dire la différence entre :

PublicFunction MAJForm(T As String) As String
        MAJForm = Format(CDbl(T), '0.00')
End Function

PublicFunction MAJForm1(T As String) As String
        MAJForm1 = Format(CDbl(T), '0.00')
End Function

Dans le module ModuleGénéral ?

Bon courage, A+