|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
 

Fichiers joints

Paf

XLDnaute Barbatruc
bonjour Bearn 64,

un essai:

VB:
Private Sub UserForm_Initialize()
Dim bouton As Control
Dim i As Integer, k As Integer, H As Integer, G As Integer
Sheets("Produitnouvelleliste").Select
'creation des boutons
For k = 0 To MultiPage1.Pages.Count - 1 'pour chaque page du multipage
    H = 4: G = -140 ' Positions Haut et Gauche
    For i = 2 To 476 ' lignes de la feuille Produitnouvelleliste
        If Cells(i, 1) = MultiPage1.Pages(k).Caption Then
            G = G + 145
            If G > 730 Then
                H = H + 75
                G = 5
            End If
            Set bouton = Me.MultiPage1.Pages(k).Controls("Frame" & k + 2).Controls.Add("Forms.CommandButton.1", , True)
            With bouton
                .Caption = Cells(i, 2)
                .Top = H
                .Left = G
                .Tag = i
                .Width = 140
                .Height = 70
            End With
        End If
    Next
Next
End Sub
Pour pouvoir fonctionner, ce code nécessite les modifications suivantes:
- renommer le Frame1 de la page 0 du multipage en Frame2, pour avoir une suite incrémentée des frames de page
- renommer le Frame2 de l'USF en Frame1
- modifier le nom de la page 4 de EPIHPHANIE à EPIPHANIE
- dans la feuille Produitnouvelleliste, transformer CŒUR en COEUR

A+

Edit:
il faudrait optimiser pour éviter de balayer entièrement la feuille Produitnouvelleliste pour chaque page du multipage (filtrer et lignes visibles...)
 
Dernière édition:

Bearn 64

XLDnaute Occasionnel
Bonsoir Paf, le Forum,

Merci de cette merveille de Code :

Dans la feuille Produitnouvelleliste, transformer CŒUR en COEUR
Je tape dans la cellule COEUR et il se transforme en CŒUR !!!!

---------------------------------------------------------------------------

Dans le code
Rajouté
Dans la feuille Parametres de B11:C22 et C30 total des PRODUITS

Sheets("Parametres").Select
fin = Range("C30").Value

For i = 2 To fin + 1 ' lignes de la feuille Produitnouvelleliste
-----------------------------------------------------------------------------

Il me manque GLACE je vais rajouter


A++ de mettre le fichier modifie
 

Paf

XLDnaute Barbatruc
re,

Pour COEUR, il n'est pas possible (a priori) de modifier le caption de la page 2 en CŒUR.
Voir alors (sur XL 2003, adapter la procédure à la version) dans Outils,Options,Orthographe, Options de correction automatique...
rechercher coeur puis supprimer la ligne qui propose la substitution.


Pour les lignes à traiter, il vaudrait mieux utiliser:
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
qui ne nécessite pas de sauvegarder le N° de la dernière ligne quelque part.

Pour GLACE, il ne manque que le CommandButton, les pages sont bonnes (a priori).

Bon courage et bon appétit.


A+
 

Bearn 64

XLDnaute Occasionnel
Bonjour Paf, le Forum,

Voila l'avancement du projet !!!!

Cette partie fonctionne avec ton aide Paf. Merci.

Autre question comment connaitre le CommandButton que l'on clique et mettre son caption dans CAT1 PRO1 en haut ?

Merci pour tout
 

Fichiers joints

laetitia90

XLDnaute Barbatruc
bonjour tous:):):)
attention a l'usine a gaz Bearn!!!
vu que tu es parti sur creation dynamique de controls j'ai rajoute collection & classe pas trop le choix dans ce cas la??

par contre tu renvoi dans combo il faut ajouter ou telquel pas savoir ????
 

Fichiers joints

Bearn 64

XLDnaute Occasionnel
Laetita90

Merci de te pencher une fois de plus sur mon projet qui date.

J'ai un projet qui fonctionne et que je voudrai passer en tactile.

Bouton Commande envoi sur programme actuel.
Bouton Commande avec TACTILE envoi vers nouvelle interface.


Je continu et je reste preneur de toutes les simplifications.

Merci Encore et Encore
 

Fichiers joints

Si...

XLDnaute Barbatruc
salut,


Tu as encore une éruption de boutons donc, en exemple, voici une autre façon de les soigner en utilsant ce que tu as déjà.

Nota :La liste de produits doit être à jour.


Comme dans ton fichier précédent, il faudra ajouter les gestion des « commandes » à partir de ce formulaire.
 

Fichiers joints

Bearn 64

XLDnaute Occasionnel
Si..., Laetita90, Paf, Le Forum

Coucou me revoilou,

J'ai avancé grâce a vous.

Toujours des boutons mais stop je crois que cela suffit.
1) comment ne pas afficher -1, -2, etc .... après le nom dans le bouton.
2) comment faire pour que le prix soit ok Qte*prix de base
3) comment passer d'une ligne C1 à C2 etc....
4) est-il possible d'agrandie les flèches de la liste Client ou Cmd

Et si une proposition moins bricoleur à la retraite est plus fun je prends.

En tout cas merci pour votre aide qui me fait connaitre des commandes inconnues pour mon petit niveau de VBA. Mais je m'accroche.


A+++
 

Fichiers joints

Si...

XLDnaute Barbatruc
Re

Toujours dans mon style, j’ai supprimé quelques points noirs mais il y a encore plein de choses à revoir.
Je n’ai pas compris pourquoi tu avais plusieurs listes de produits.
J'ai gardé les dimensions et m'en trouve embêté avec mon petit écran pour tester tout cela

Dis-moi si tu es preneur de ces modifications et si tu veux des explications pour continuer dans cette voie.
 

Fichiers joints

Bearn 64

XLDnaute Occasionnel
Re Si....

Merci de ton intérêt.

Le programme de base fonctionne bien, je veux juste le passer sur tablette tactile comme caisse tactile mais uniquement pour les commandes.
Le programme gère les clients s'ils sont inexistants, certaines CATEGORIES étaient saisies a l'aide de liste.
La liste principale permet la saisie de 24 lignes de commandes max permettant d'imprimer une page des commandes par client.

Les listes peuvent être supprimées puisque remplacées par multipage de boutons.


A+++
 

Bearn 64

XLDnaute Occasionnel
Si..., Laetita90, Paf, Le Forum

1) Comment afficher le prix après avoir choisi la Qte.

2) Les Produits sont nommes

ARDECHOIS T1 pour ARDECHOIX de Taille 1
ARDECHOIS T2 pour ARDECHOIX de Taille 2
etc....
Est-il possible de supprimer les -1 , -2 a l'affichage dans les boutons?
ARDECHOIS T1-1, .....


Mer Si...
 

Fichiers joints

Dernière édition:

Bearn 64

XLDnaute Occasionnel
Re Si....

Merci de ton intérêt.
Le programme de base fonctionne bien, je veux juste le passer sur tablette tactile comme caisse tactile mais uniquement pour les commandes.
Le programme gère les clients s'ils sont inexistants, certaines CATEGORIES étaient saisies a l'aide de liste.
La liste principale permet la saisie de 24 lignes de commandes max permettant d'imprimer une page des commandes par client.
OK j'ai testé
Toujours dans mon style, j’ai supprimé quelques points noirs mais il y a encore plein de choses à revoir.
Je n’ai pas compris pourquoi tu avais plusieurs listes de produits.
J'ai gardé les dimensions et m'en trouve embêté avec mon petit écran pour tester tout cela

Dis-moi si tu es preneur de ces modifications et si tu veux des explications pour continuer dans cette voie.
Oui bien sur.

1) Comment afficher le prix après avoir choisi la Qte.

A++
 

ChTi160

XLDnaute Barbatruc
Bonjour Bearn 64

Bonjour le Fil , Le Forum
Je m’intéresse à ta demande ,mais je ne comprends pas tout lol

Tu dis : »Le programme gère les clients s'ils sont inexistants »
« certaines CATEGORIES étaient saisies a l'aide de liste ».
Puis
« La liste principale permet la saisie de 24 lignes de commandes max permettant d'imprimer une page des commandes par client. »
Peux-tu me dire :
Quel est l’activité que tu gères ?
Tu prends des commandes ( téléphones ???? , sur place ????)
Comment récupères tu , les renseignements sur les Clients lors de la commandes ( téléphones ????) ou sur place ????
Pourquoi « 24 lignes de Commandes max » , cela veut-il dire qu’un client peux commander 24 références ??
Comment gères tu les Numéros de Commandes journellement, à la Semaine , au Mois …
Tu vois plein de Question Lol
Si tu as finalisé ton Projet
Laisse tomber Lol

Je te joins des Images de ce que je suis en train de faire .
1 ° Image à L’ouverture de Tactile :
2° Image sélection d’une Catégorie.
3° Image Sélection d’un Produit.
4° Image Sélection d’une référence.
5° Image Sélection de La Quantité .
6° devrait représenter le résultat de L’action du Bouton « OK »
Enfin je m’amuse, mais sans trop comprendre Lol
Tout ceci est perfectible, adaptable…. Lol
Enfin , j’attends des réponses .
Bonne Fin de Journée
Amicalement
Jean Marie
 

Fichiers joints

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.
 

Fichiers joints

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
 

Fichiers joints

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
 
Démarré par Discussions similaires Forum Réponses Date
Bearn 64 Forum Excel 7
A Forum Excel 8

Discussions similaires


Haut Bas