XL pour MAC Caisse enregistreuse

catwoman69

XLDnaute Nouveau
Bonjour,
J’ai téléchargé un modèle de caisse enregistreuse Excel mais je ne sais comment modifier le nom des articles qui apparaissent en bouton, merci de votre aide.
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour,
Je le redis, j'ai essayé de faire le plus simple et le plus convivial possible.
Donc j me limiterais strictement aux demandes de Catwoman, le risque serait en complexifiant de complexifier son utilisation sur site. Et dans les cas de "coup de feu" chaque seconde compte.
 

Alain 79

XLDnaute Junior
Supporter XLD
Toutes mes excuses pour mon intervention qui n'avait que pour objet de répondre à la demande de Catwoman pour indiquer sur la feuille 'Caisse" la Catégorie.
Toutefois, je ne comprends pas très bien "Le risque serait en complexifiant de complexifier son utilisation sur site" !!!
Mais j'arrête là mon intervention sur ce sujet.
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Je suis Présidente d’une Apel (Association de Parents d’Eleves) et nous organisons un loto des familles avec restauration sur place.
Relisez l'hypothèses de départ.(post #5)
C'est fait pour être utilisé dans des soirées, au "bar".
Là il faut être très rapides pour répondre à plusieurs clients ... à la fois.
Et donc l'outil doit être très simple, intuitif, sans utiliser le clavier ....
 

catwoman69

XLDnaute Nouveau
Bonjour,
Notre événement est demain, je suis en plein test! Pouvez-vous m'indiquer comment je peux intervertir le nom Sandwich et Confiseries? Plus simple pour moi que la colonne 2 soient pour les sandwichs et la colonne 3 pour les desserts/confiseries. Par avance, merci.
 

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bjr Sylvanu :) Bjr catwoman69 :)
Une piste :
VB:
Private Sub Workbook_Open()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.CommandBars("Formatting").Enabled = False
'----------------------------------------------------------------------------
Application.CommandBars("Cell").Enabled = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
Application.DisplayFormulaBar = False
With Application
 .WindowState = xlMaximized 'window max
End With

    Application.DisplayFullScreen = True    ' Plein écran
    ActiveWindow.Zoom = 115
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    RétabliMenu
    
    Application.DisplayFullScreen = False
    ActiveWindow.Zoom = 100
End Sub

Sub RétabliMenu()
Application.EnableEvents = False
Application.ScreenUpdating = False
ActiveWorkbook.Protect Structure:=False, Windows:=False
For Each CmdBar In Application.CommandBars: CmdBar.Enabled = True: Next
With Application
 .DisplayFullScreen = False 'Ecran normal
 .DisplayFormulaBar = True  'Aff barre formule
 .DisplayStatusBar = True   'Aff barre état
 .DisplayScrollBars = True  'Aff barre defilement
 .WindowState = xlMaximized 'window max
 .ScreenUpdating = True
End With
With ActiveWindow
 .DisplayHeadings = True     'Aff les titres Lig/Col
 .DisplayWorkbookTabs = True 'Aff les onglets
 '.DisplayGridlines = True    'Aff quadrillage
 .WindowState = xlMaximized
End With
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
Application.CommandBars("Formatting").Enabled = True
Application.CommandBars("Cell").Enabled = True
Application.ScreenUpdating = True
Application.EnableEvents = True
ActiveWindow.DisplayHorizontalScrollBar = True
Application.ScreenUpdating = False
Application.EnableEvents = False
End Sub
:)
 

Pièces jointes

  • Essai Caisse V8.xlsm
    194.6 KB · Affichages: 8

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Lionel,
C'est ce que fait déjà ma PJ.
Le but était de supprimer le bandeau bleu supérieur, et ça je ne sais pas faire :
1680182031645.png
 

catwoman69

XLDnaute Nouveau
Bonjour Sylvanu,
Caisse testée lors de notre événement et approuvée! Top. Nous avons tous les articles vendus. Petite fonctionnalité qui nous a manqué, une touche pour ce qui est offert... Savoir ce que nous avons dépensé mais pas forcément vendu... Possible?
 

Jacky67

XLDnaute Barbatruc
Le but était de supprimer le bandeau bleu supérieur, et ça je ne sais pas faire :
Regarde la pièce jointe 1167132
Bonjour à tous
@sylvanu
Perso je fais comme ceci
VB:
Sub Worksheet_Activate()
    Application.ScreenUpdating = False
        With ActiveWindow
            .WindowState = xlNormal
            .Top = -20
         End With
'suite de ton code  à adapter
End sub
Je n'ai pas regardé tous les codes, juste une suggestion
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Catwoman, Jacky,

@catwoman69
Caisse testée lors de notre événement et approuvée! Top.
Impeccable.
Une V9 en PJ.
1- J'ai rajouté une colonne Offert à droite du ticket de caisse, un appui dessus met Offert à la place du prix.
1680788532542.png

2- Dans la page produit j'ai rajouté le cumul des "offerts" et ce qu'il doit y avoir en caisse.
1680788577381.png

A tester.

@Jacky67
Pas compris le post #45.
J'ai appliqué le code du post #44. Il ne fait pas ce que je recherche.
Actuellement j'ai ça :
1680788939957.png

Avec votre code en plus j'obtiens ça :
1680789006346.png

Ce qui revient au même.
Je pense qu'il n'y a pas de solution. Il y a toujours un petit bandeau bleu en haut, ne serait ce que pour pouvoir fermer le fichier par la petite croix à droite.
 

Pièces jointes

  • Essai Caisse V9.xlsm
    194 KB · Affichages: 11

Discussions similaires

Réponses
2
Affichages
132