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

natorp · Mardi à 17:01

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 · Aujourd'hui à 10:05

patricktoulon à dit:
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 · Aujourd'hui à 10:58

re
j'ai un peu modifier et mis les purge

VB:

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 · Aujourd'hui à 10:58

patricktoulon à dit:
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 · Aujourd'hui à 11:00

patricktoulon à dit:

re
j'ai un peu modifier et mis les purge

VB:

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

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

natorp

XLDnaute Accro

Pièces jointes

natorp

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

natorp

XLDnaute Accro

natorp

XLDnaute Accro

Discussions similaires