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 Nouveau
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: 3

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
 

Statistiques des forums

Discussions
305 113
Messages
2 024 701
Membres
223 738
dernier inscrit
Roger099