|Resolu ChTi160]Gestion Commandes avec TACTILE

Bearn 64

XLDnaute Occasionnel
Bonjour le Forum,

Je progresse dans la création d'une application de Gestion de Commande sur écran TACTILE.

Je rempli des boutons, dans des frames elles même dans Multipage.
Mais ma création est vraiment artisanale :)

Est-il possible de modifier le code de mon Usf_tactile pour être plus simple.

Dans la feuille Parametres en B11: C22 j'ai mes données, en colonne B le nom des categories et en colonne C le nombre de produits dans la categories. Qui devraient me permettre de creer les boutons !!!!!.

Helas je tourne en rond.

Un peu d'aide serait la bienvenue.


Merci de votre regard
 

Pièces jointes

  • remplir_tacile_bis.xlsm
    68.2 KB · Affichages: 85

Bearn 64

XLDnaute Occasionnel
Bonjour ChT160

Tu dis : » Le programme gère les clients s'ils sont inexistants »

Dans Combobox Clients du UsfCommande saisie du nom du client :
-1) il existe et donc présent dans la feuille
Clients.
-2) il n'existe pas et donc prise de contrôle par
UsfClients pour création.

« certaines CATEGORIES étaient saisies a l'aide de liste ».
Les listes permettent de faire une saisie pour les CATEGORIES colonne A feuille Parametres. BUCHE, COCKTAIL etc….


Puis
« La liste principale permet la saisie de 24 lignes de commandes max permettant d'imprimer une page des commandes par client. »
Dans
UsfCommande la liste des lignes correspond à une ligne un article de la commande.
Donc 24 articles différents max par clients. A la validation de la commande j'imprime une récapitulation par publipostage avec word ou bon de commande.


Peux-tu me dire :
Quel est l’activité que tu gères ?
Patisserie en magasin.
Prise de commande sur tous les Produits de la feuille
Produit
Derrière ces Commandes je gère les préparations labo et étiquettes pour les produits a la vente et les préparations commandes.
Gestions stock pour certains produits.

Tu prends des commandes ( téléphones ???? , sur place ????) Oui les 2.

Comment récupères tu, les renseignements sur les Clients lors de la commandes ( téléphones ????) ou sur place ???? Oui les 2


Pourquoi « 24 lignes de Commandes max » , cela veut-il dire qu’un client peux commander 24 références ?? Oui.


Le programme peut être utilisé soit sur micro pc soit sur tablette tactile (enfin quand tout sera accessible avec mes gros doigts) :)

tablette_hier.xlsm
prg_origine.xlsm
Clic sur Commande avec tactile, choisir un client dans la liste, puis clic sur Combobox a droite de C1.

tablette.xlsm
version en cours pour tablette uniquement.

Merci de l'attention que tu porte a mon projet.
 

Pièces jointes

  • tablette.xlsm
    586.1 KB · Affichages: 68
  • tablette_hier.xlsm
    566.9 KB · Affichages: 59
  • prg_origine.xlsm
    583.3 KB · Affichages: 71
Dernière édition:

ChTi160

XLDnaute Barbatruc
Ok
Merci de ces infos
Je vais te mettre ce que j ai fait .
Ensuite je verrai si je peux adapter tout cela a tes besoins lol
Tu regardes et tu me dis.
Je te reponds de mon telephone, donc ce sera desque je rentre .
Bonne fin de journee
Amicalement
Jean marie
 

ChTi160

XLDnaute Barbatruc
Bonsoir Bearn64
Bonsoir le fil,Le Forum

Comme promis le fichier sur lequel je travaille (Sans les éléments qui ne me servent pas encore Lol)
je ne sais pas si tu peux utiliser les ListView ????(Donc j'ai supprimé la ListView des Commandes)
Testes "EPIPHANIE",Puis "ROI"
Bonne fin de Journée
Amicalement
Jean Marie
 

Pièces jointes

  • tablette(USF)-1-Chti160-Forum.xlsm
    451.1 KB · Affichages: 86

Bearn 64

XLDnaute Occasionnel
Bonjour ChT160, le Forum

Merci, mais complètement perdu, largué le PAPI, n'as plus pieds. :(

Je ne suis pas très doué en VBA mais j'adapte le projet de départ est de mettre une couche de tactile sur le programme du début certes des lignes sont a supprimer à tout refondre je suis perdu.

J'ai trouvé a agrandir le calendrier OK
J'ai des problèmes de compréhension de l'utilisation de SpinButton pour gérer ma liste Clients. ( SpinButton utilisé pour palier a la taille des ascenseurs de liste)


Je continu quand même à étudier tes codes mais reste très touffu pour moi.


A+++
 

ChTi160

XLDnaute Barbatruc
Bonjour Bearn64
Bonjour le Fil,Le Forum
moi aussi largue Lol
je ne comprends pas ceux ci :
"J'ai des problèmes de compréhension de l'utilisation de SpinButton pour gérer ma liste Clients. ( SpinButton utilisé pour palier a la taille des ascenseurs de liste)" ???? (moi je n'en suis pas la !!!!)
Bonne fin de Journée
Amicalement
 

Bearn 64

XLDnaute Occasionnel
Re,

"J'ai des problèmes de compréhension de l'utilisation de SpinButton pour gérer ma liste Clients. ( SpinButton utilisé pour palier a la taille des ascenseurs de liste)" ???? (moi je n'en suis pas la !!!!)

Dans Tablette.xlsm en haut j'ai 2 spinButton a droite de listbox que je voudrais gérer


merci
 

Bearn 64

XLDnaute Occasionnel
Re

Post #16 premier fichier joint

Pour le premier SpinButton solution apportée par Papou-net

Private Sub SpinButton1_Change()
If SpinButton1 > Clients.ListCount - 1 Then
SpinButton1 = SpinButton1 - 1
Exit Sub
End If
Clients.ListIndex = SpinButton1
End Sub



Amicalement Bearn 64
 
Dernière édition:

ChTi160

XLDnaute Barbatruc
Bonjour Bearn64
Bonjour Le Fil ,Le Forum
j'avais pense a ceux ci
on initialise le SpinButton dans la procédure "zChargeClients"
VB:
 Private Sub zChargeClients()
Dim ListeNoms As Range, Lg&, Tabl$(), i&

With Sh_Cli
    Lg = .Columns("A:A").Find("*", , , , , xlPrevious).Row
    Set ListeNoms = .Range("A2:B" & Lg)
End With
ReDim Tabl(Lg - 2, 1)
For i = 1 To ListeNoms.Count - 1
    If ListeNoms.Cells(i, 1).Value <> "" Then Tabl(i - 1, 0) = ListeNoms.Cells(i, 1).Value: Tabl(i - 1, 1) = ListeNoms.Cells(i, 2).Value
Next
With Me
 With .Clients
    .Clear   
    .List() = Tabl
 End With
'ICI *************************************
 With .SpinButton1
      .Min = -1
      .Max = UBound(Tabl)
      .SmallChange = 1
      .Value = -1
 End With
End With
End Sub[/VB] 
puis 
[CODE=VB] Private Sub SpinButton1_Change()
With UsfCommande
   With .Clients
       .ListIndex = SpinButton1.Value
  End With
End With
End Sub[/VB] 
Enfin il te reste a adapter le Code Papou-Net à ton deuxième "SpinButton"
Bonne journée
Amicalement
Jean Marie
 

Bearn 64

XLDnaute Occasionnel
Bonjour ChTi160, le Forum,

Merci de cette réponse que j'ai mise en pratique et j'ai réussi a inverser le sens du bouton flèche vers le bas je descend dans la liste flèche vers le haut je remonte.

Pour continuer l'avancement de mon projet.

comment faire pour que le prix soit OK, au moment de la saisie Pri= Qte*prix de base, alors que Pri reste sur Pri unitaire.

Merci a tous les contributeur et a Toi ChTi160
 

Pièces jointes

  • tablette.xlsm
    603.9 KB · Affichages: 76

Bearn 64

XLDnaute Occasionnel
Re

Quelques modifications pour répondre a la demande de Calcul de Prix ????

Le prix qui ne se modifie pas est dans Usf_tactile voir image.

Je sélectionne un Client puis bouton C1 puis BUCHE puis ARDECHOIS - 2 le Prix s'affiche à droite 35 puis Qte à 2 le prix ne se met pas a jour il devrai afficher 70.
voir piece jointe


Je n'est vu ce que tu as modifier entre tablette et tablette(1)-Modifier

a part
For j = 1 To 24
For i = 1 To 2
With Me.FraCommande
Select Case i
Case Is = 1
.Controls("Cat" & j).List = Dico.keys
Case Is = 2
With .Controls("Pro" & j)
.ColumnCount = 3
.ColumnWidths = "140;0;0"
End With
End Select
End With
Next i
Next j


A++
 

Pièces jointes

  • prix.jpg
    prix.jpg
    10.6 KB · Affichages: 52