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]

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

 

[patricktoulon]

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

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

 

[patricktoulon]

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]

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]

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" :

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]

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]

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

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]

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 :

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

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

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]

re

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]

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

 

[natorp]

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]

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]

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]

re

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]

re
Bonjour @natorp