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

natorp · 1 Octobre 2024

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 · 6 Novembre 2024

re

VB:

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) =...

patricktoulon · 2 Octobre 2024

ben oui c'est déjà en place ça je l'ai tout refait entièrement

patricktoulon · 2 Octobre 2024

ha bien vu j'ai fait une erreur de majuscule
il faut remplacer cette ligne

VB:

 If ActiveControl.Name <> "Cbx_Client" Then Exit Sub

patricktoulon · 2 Octobre 2024

le userform client:
si tu selectionne un client dans la combo les textboxs se mettent à jour
tu peux modifier les textbox et cliquer sur valider pour mettre a jour la ligne du client dans la liste

si tu clique sur nouveau et que tu a la raison/nom et prénom inscrit le bouton valider ajoutera une ligne automatiquement

autrement dis tu a un userform ajout et modif des données d'un client en un seul userform

on pourrait éventuellement ajouter un bouton supprimer pour supprimer un client du listing

natorp · 2 Octobre 2024

patricktoulon à dit:
le userform client:
si tu selectionne un client dans la combo les textboxs se mettent à jour
tu peux modifier les textbox et cliquer sur valider pour mettre a jour la ligne du client dans la liste

si tu clique sur nouveau et que tu a la raison/nom et prénom inscrit le bouton valider ajoutera une ligne automatiquement

autrement dis tu a un userform ajout et modif des données d'un client en un seul userform

on pourrait éventuellement ajouter un bouton supprimer pour supprimer un client du listing

Impecc' ça marche, pas besoin de supprimer merci

natorp · 2 Octobre 2024

patricktoulon à dit:
le userform client:
si tu selectionne un client dans la combo les textboxs se mettent à jour
tu peux modifier les textbox et cliquer sur valider pour mettre a jour la ligne du client dans la liste

si tu clique sur nouveau et que tu a la raison/nom et prénom inscrit le bouton valider ajoutera une ligne automatiquement

autrement dis tu a un userform ajout et modif des données d'un client en un seul userform

on pourrait éventuellement ajouter un bouton supprimer pour supprimer un client du listing

J'ai mis les formats de téléphone dans le userform "clients" :

VB:

Private Sub Tbx_TelMob_Change()
Me.Tbx_TelMob.Value = Format(Tbx_TelMob.Value, "0#"" ""##"" ""##"" ""##"" ""##")
End Sub

Private Sub Tbx_TelPro_Change()
Me.Tbx_TelPro.Value = Format(Tbx_TelPro.Value, "0#"" ""##"" ""##"" ""##"" ""##")
End Sub

natorp · 2 Octobre 2024

patricktoulon à dit:
sachant q'un devis peut avoir jusqu'a 10 lignes ca me parrait un peu compliqué
autant enregistrer chaque ligne d'un devis dans une ligne avec en premiere colonne le N° de devis
la combo listerait les lignes sans doublons
ca oui on peut le faire mais pas un devis sur une seule ligne

Je n'ai pas vu cette proposition qui me va bien, merci
J'ai testé le fichier en ayant supprimer les lignes "clients" pour repartir sur une base vide mais quand je clique sur "Nouveau client", j'ai une erreur : "L'indice n'appartient pas à la sélection" à ce niveau :

Merci pour ton aide, Gérard

ChTi160 · 2 Octobre 2024

Bonjour le Fil
j'ai constaté une petite anomalie qui pourrait poser problème ! Lol
il y a dans la procédure "reliste"

VB:

tbl = ThisWorkbook.Sheets("Base clients").Range("t_Clients").Value
    Cbx_Client.ColumnCount = UBound(tbl)
    Cbx_Client.List = tbl

UBound(tbl) : renvoie le Nombre de lignes , pas de Colonnes !
Cbx_Client.List = tb ' dans le fichier, il y aura 5 colonnes au lieu de 10 !
Bonne fin de Journée
Jean marie

ChTi160 · 2 Octobre 2024

Re
pas sûr d'avoir Compris Lol
Mais , Si tu as supprimé les données du tableau ,il n'a plus de Ligne de données , donc il te faut ajouter une Ligne exemple :

VB:

Set Ligne=.LisRows.add.........

ou alors faire référence à la première Ligne (qui est vide)

Code:

ThisWorkbook.Sheets("Base clients").Range("t_Clients").Cells(1)

voir fichier joint
j'ai vidé le tableau !
voir ce que j'ai fait (à toi de voir !)
Jean marie

patricktoulon · 2 Octobre 2024

re

VB:

Private Sub Cbn_NouveauClient_Click()
    With ThisWorkbook.Sheets("Base clients").ListObjects("t_Clients")
        ID = .ListRows.Add.Range.Cells(1)
        v = Replace(ID, "C", "") + 1
        Cbx_Client = Format(v, """C""0000")
    End With
End Sub

patricktoulon · 2 Octobre 2024

j'ai pas mal avancé sur le userform devis
j'ai tout repris a zero
voila une demo du comment il va marcher

natorp · 2 Octobre 2024

patricktoulon à dit:
j'ai pas mal avancé sur le userform devis
j'ai tout repris a zero
voila une demo du comment il va marcher

Regarde la pièce jointe 1204408

Houlala, génial, c'est super !!
J'imagine qu'une fois les 2 lignes créées, on clique sur "Valider" et cela s'ajoutera dans l'onglet concerné ?
Merci beaucoup Gérard

patricktoulon · 2 Octobre 2024

re
oui c'est ça
c'est l'onglet "memo"
le bouton imprimer envera les données dans les modèles devis ou facture pour impression
voila comment je voyais les choses

natorp · 2 Octobre 2024

patricktoulon à dit:
re
oui c'est ça
c'est l'onglet "memo"
le bouton imprimer envera les données dans les modèles devis ou facture pour impression
voila comment je voyais les choses

Merci, c'est super
Cordialement, Gérard

natorp · 3 Octobre 2024

patricktoulon à dit:

re

VB:

Private Sub Cbn_NouveauClient_Click()
    With ThisWorkbook.Sheets("Base clients").ListObjects("t_Clients")
        ID = .ListRows.Add.Range.Cells(1)
        v = Replace(ID, "C", "") + 1
        Cbx_Client = Format(v, """C""0000")
    End With
End Sub

Bonsoir Patrick
en mettant ce code, j'ai maintenant une "incompatibilité de type" à ce niveau là :

Merci, Gérard

patricktoulon · 4 Octobre 2024

re
Bonjour @natorp

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

natorp

XLDnaute Barbatruc

Pièces jointes

patricktoulon

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

natorp

XLDnaute Barbatruc

natorp

XLDnaute Barbatruc

natorp

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Pièces jointes

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

natorp

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

natorp

XLDnaute Barbatruc

natorp

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Pièces jointes

Discussions similaires