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

natorp

XLDnaute Barbatruc
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
 

Pièces jointes

  • Test devis.xlsm
    324.6 KB · Affichages: 14

patricktoulon

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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 :
1727871971676.png

Merci pour ton aide, Gérard
 

ChTi160

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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
 

Pièces jointes

  • Test devis(1) Chti160-1.xlsm
    280.1 KB · Affichages: 1

Discussions similaires

Statistiques des forums

Discussions
314 121
Messages
2 106 129
Membres
109 495
dernier inscrit
jerome bonneau