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

 

[patricktoulon]

Bonjour @natorp

 

[natorp]

Merciiiiiiiiiiiii Patrick
C'est super chouette !! et je suis d'accord avec le calendar
Tu viens quand tu veux à Annonay
Bonne journée, Gérard

 

[patricktoulon]

 

[natorp]

Merciiiiiiiiiiiii Patrick
C'est super chouette !! et je suis d'accord avec le calendar
Tu viens quand tu veux à Annonay
Bonne journée, Gérard

Désolé Patrick
Mais il y a encore un bug
Si je prends le fichier que tu as joint, je corrige le total du devis1

Et je le charge dans le userform, j'y ajoute une ligne test :

Le total n'est pas correct :

Et quand je supprime cette ligne le total n'est plus bon :

Merci pour ton aide, cordialement, Gérard

 

[patricktoulon]

re
tu m'etonne regarde un peu

allez

 

[natorp]

re
tu m'etonne regarde un peu
Regarde la pièce jointe 1206590
allez

Merci Patrick
C'est bien cette ligne qu'il fallait corriger ?

Il manque encore quelque chose, si je charge un devis, j'y ajoute ou supprime une ligne car le client change d'avis, quand j'enregistre, cela ajoute des lignes dans l'onglet "mémo" et du coup si je charge plus tard, j'ai la totalité des lignes, il faudrait supprimer toutes les lignes d'un devis que l'on vient de charger si l'on souhaite de nouveau le valider, non ?

Merci pour ta patience et ton aide, cordialement, Gérard

 

[patricktoulon]

re

Private Sub Cbn_Valider_Click()
  Dim I&
    With Range("archivedevis").ListObject
        For I = .ListRows.Count To 1 Step -1
            If .ListRows(I).Range.Cells(1) = Cbx_Devis.Text Then .ListRows(I).Delete
        Next
    End With
    For I = 0 To ListBX.ListCount - 1
        With Range("archivedevis").ListObject.ListRows.Add.Range
            'N°devis, N°client,nomclient ,Date ,description,prix unitaire,quantité,soutotal,Total
            .Cells(1) = Cbx_Devis
            .Cells(2) = Cbx_Client
            .Cells(3) = Tbx_Raison
            .Cells(4) = Tbx_DateDevis
            .Cells(5) = ListBX.List(I, 0)
            .Cells(6) = ListBX.List(I, 1)
            .Cells(7) = ListBX.List(I, 2)
            .Cells(8) = ListBX.List(I, 3)
            .Cells(9) = Format(Tbx_MontantHTDevis.Value, "#'##0.00 €")
            .Cells(10) = TextBox1.Value
        End With
    Next

End Sub

 

[natorp]

Merci Patrick
Réparation à vie dans notre garage associatif d'Annonay
Bonne soirée, Gérard

 

[patricktoulon]