XL pour MAC Caisse enregistreuse

[catwoman69]

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]

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]

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]

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]

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.

 

[sylvanu]

Bonjour,
L'ordre n'a aucune importance. Ci joint l'inversion des deux.

 

[catwoman69]

Merci! Cependant, les intitulés n'ont pas été modifiés dans "Bilan de la journée"...
Et petite question bête, comment puis je faire pour enlever le ruban menu en haut et n'avoir que la caisse en plein écran sans rien d'autre? Svp

 

[sylvanu]

comment puis je faire pour enlever le ruban menu en haut et n'avoir que la caisse en plein écran sans rien d'autre?

Je ne sais pas tout masquer, il restera toujours le bandeau Microsoft Excel.

 

[catwoman69]

C'est super déjà, merci bcp pour votre précieuse aide. Je continue mes essais...

 

[Usine à gaz]

Bjr Sylvanu 🙂 Bjr catwoman69 🙂
Une piste :

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

🙂

 

[sylvanu]

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 :

 

[TooFatBoy]

Peut-être <F11> ?

[edit]
ou <Ctrl>+<Maj>+<F1>
[/edit]

 

[Usine à gaz]

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 :
Regarde la pièce jointe 1167132

LOL, j'avais mal compris.
je ne sais pas faire non plus mais ce serait intéressant 🙂

 

[catwoman69]

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]

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

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]

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.

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

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 :

Avec votre code en plus j'obtiens ça :

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.