XL 2019 Accepter une virgule (ou un point) dans un textbox

[natorp]

Bonjour à toutes et tous

J'ai récupéré ce fichier que j'essaye d'adapter à nos besoins de garage participatif
Je bloque sur la possibilité de rentrer une valeur avec une virgule (ou un point) dans la colonne "quantité" du userform "devis"
Et que cela calcul comme il faut le total de ce même userform
Il y a un module de classe dans le code que je ne comprends pas et je ne vois pas comment faire
Par exemple, depuis l'onglet "paramètres" on clique sur "lancer l'interface", on choisit "Gestion devis + facturation"
un userform "devis" apparaît, que l'on choisisse un devis, ou que l'on veuille faire un nouveau devis, j'aimerais pouvoir saisir la quantité avec une virgule (ou un point) et que le total se mette à jour comme il faut, et que cela alimente l'onglet "Base devis" avec les bonnes valeurs

Merci pour votre attention et votre aide, cordialement, Gérard

 

[natorp]

re
Bonjour @natorp

Houlala, c'est vraiment super, merci beaucoup
par contre lorsque que je clique sur "Nouveau devis", il affiche par défaut le devis du client "C0007"
Je ne vois pas comment "purger" ça

Merci beaucoup pour ton aide très précieuse, cordialement, Gérard

 

[patricktoulon]

re
j'ai un peu modifier et mis les purge

Private Sub Cbn_NouveauDevis_Click()
    Dim X&, Z&
    TbL = Range("archivedevis").Value
    For I = 1 To UBound(TbL)
        X = Val(Replace(TbL(I, 1), "D", ""))
        If Z <= X Then Z = X
    Next

    Cbx_Devis.Value = Format(Z + 1, """D""0000")
    Cbx_Client = ""
    Tbx_Raison = ""
    Tbx_DateDevis = ""
ListBX.Clear
End Sub

 

[natorp]

re
Bonjour @natorp

Aïe aïe, en fait, le bouton "nouveau devis" ne fonctionne pas, il affiche systématiquement le dernier devis (D0003) et on ne peut pas créer de nouveau devis
Merci pour ton aide, cordialement, Gérard

 

[natorp]

re
j'ai un peu modifier et mis les purge

Private Sub Cbn_NouveauDevis_Click()
    Dim X&, Z&
    TbL = Range("archivedevis").Value
    For I = 1 To UBound(TbL)
        X = Val(Replace(TbL(I, 1), "D", ""))
        If Z <= X Then Z = X
    Next

    Cbx_Devis.Value = Format(Z + 1, """D""0000")
    Cbx_Client = ""
    Tbx_Raison = ""
    Tbx_DateDevis = ""
ListBX.Clear
End Sub

Super, nos messages se sont croisés, merci beaucoup, ça marche !!
Bonne journée, Gérard