|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

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
 

Pièces jointes

  • remplir_tacile_bis.xlsm
    83.5 KB · Affichages: 64

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

Pièces jointes

  • remplir_tacile_bis.xlsm
    66 KB · Affichages: 69

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
 

Pièces jointes

  • GC_tablette.xlsm
    606.6 KB · Affichages: 71

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.
 

Pièces jointes

  • tablette(USF).xlsm
    579.1 KB · Affichages: 81

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

Pièces jointes

  • tablette(USF)bis.xlsm
    591.9 KB · Affichages: 58

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.
 

Pièces jointes

  • tablette(USF)Ter.xlsm
    573.2 KB · Affichages: 57

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

Pièces jointes

  • prix.jpg
    prix.jpg
    10.8 KB · Affichages: 55
  • tablette(USF)bis.xlsm
    607.1 KB · Affichages: 81
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
 

Pièces jointes

  • Image 1.jpg
    Image 1.jpg
    90.4 KB · Affichages: 58
  • Image 2.jpg
    Image 2.jpg
    247 KB · Affichages: 64
  • Image 3.jpg
    Image 3.jpg
    226.4 KB · Affichages: 69
  • Image 4.jpg
    Image 4.jpg
    208.1 KB · Affichages: 58
  • Image 5.jpg
    Image 5.jpg
    210.7 KB · Affichages: 99

Statistiques des forums

Discussions
311 711
Messages
2 081 794
Membres
101 817
dernier inscrit
carvajal