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