logiciel caisse

[Mojus]

Bonjour,

Je tiens un gite / auberge et pour me simplifier la comptabilité, j'ai réalisé un petit logiciel de caisse sur Macro Excel. Ce logiciel permet de comptabiliser note par note, récupérer les données et les traiter en comptabilité, il permet également d'enregistrer l'historique des commandes par jour.

Seule la touche "Effacer la dernière ligne" ne fonctionne pas. Si jamais vous avez une idée pour résoudre ce problème je suis preneur.

En espérant que ce travail puisse vous être intéressant.
Je reste à votre disposition pour tout complément d'information,

Cordialement,

Arthur Postel

 

[JBARBE]

Bonjour à tous,
J'ai dû adapter La boite de dialogue de Mojus à mon portable 15,4 ( je ne suis peut-être pas le seule à posséder ce type de portable ) !
Les personnes concernées devront adapter les différentes macros proposées à leurs portable 15,4 pour pouvoir avoir entièrement la boite de dialogue !
Il est vrai que lorsque l'on conçois une boite de dialogue l'on ne tient pas compte des dimensions des écrans ( en pousse), Mais dans le cas présent le logiciel peut intéresser beaucoup de personnes et donc différent écrans !
Bonne journée !

 

[EnzoVince]

Bonjour JBarbe,

Je te remercie pour le dernier fichier partagé. J'ai encore pas testé en détail mais l'encaissement fonctionne et les informations sont sauvées, c'est top!

Merci
Enzo

 

[JBARBE]

Bonjour JBarbe,

Je te remercie pour le dernier fichier partagé. J'ai encore pas testé en détail mais l'encaissement fonctionne et les informations sont sauvées, c'est top!

Merci
Enzo

Bonjour Enzo, tous,
Je n'ai rien changé au programme initial #1 de Mojus au point de vue macros, formules !
Je n'ai fait que d'adapter la boite de dialogue à mon ordi 15,4 pouces (si cela intéresse quelqu'un) comme je l'ai déjà dit !
Bonne journée !

 

[ChTi160]

Bonjour Mojus , EnzoVince
Bonjour le Fil ,le Forum
De Retour ,
Un nouveau fichier avec quelques avancées . (perfectible)
Bonne fin de journée
jean marie

 

[Argos88620]

Bonjour le fil,

Si je puis me permettre d'interférer dans votre discussion.

une proposition récupérée sur le net et que j'utilise déjà
depuis pas mal de temps, pour adapter la résolution de l'écran.

S’adapte au zoom de la feuille

Slts

Private Sub UserForm_Activate()
    AdapterZoomSelonResolution
End Sub

Sub AdapterZoomSelonResolution()
On Error GoTo ExempleErreur
    Select Case ResolutionEcranLargeur 'tester la résolution de la largeur
        'adapter le zoom du WorkBook selon le résultat
        Case 1920: Me.Zoom = ActiveWindow.Zoom + 20  '   Application.WindowState = xlMaximized   '
        Case 1600: Me.Zoom = Application.WindowState = xlMaximized     '90
        Case 1280: Me.Zoom = ActiveWindow.Zoom   ' ou  au choix 70 75 ..80...90
        Case 1024: Me.Zoom = 68
        Case Else
    End Select
    Exit Sub
ExempleErreur:
    MsgBox "Une erreur est survenue..."
End Sub

Dans un module standard

#If Win64 Then

Declare PtrSafe Function GetSystemMetrics32 Lib "User32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
#Else
 Declare Function GetSystemMetrics32 Lib "USER32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
#End If

Public Function ResolutionEcranLargeur()
'par: Excel-Malin.com ( https://excel-malin.com )
    On Error GoTo FunctionErreur
    Dim LargeurEcran As Long
    
        LargeurEcran = GetSystemMetrics32(0) 'largeur de l'écran en pixels
        ResolutionEcranLargeur = LargeurEcran
    
    Exit Function
FunctionErreur:
    ResolutionEcranHauteur = "" ' 1920
End Function

Public Function ResolutionEcranHauteur()
'par: Excel-Malin.com ( https://excel-malin.com )
    On Error GoTo FunctionErreur
    Dim HauteurEcran As Long
    
        HauteurEcran = GetSystemMetrics32(1) 'hauteur de l'écran en pixels
        ResolutionEcranHauteur = HauteurEcran
        
    Exit Function
FunctionErreur:
    ResolutionEcranHauteur = "" '1080
End Function

Sub ResolutionEcran()
'par: Excel-Malin.com ( https://excel-malin.com )
    On Error GoTo ResolutionEcranErreur
    
    MsgBox "La résolution de l'écran (largeur x hauteur): " & (Chr(13) & Chr(10)) & Format(ResolutionEcranLargeur, "#,##0") & " x " & Format(ResolutionEcranHauteur, "#,##0"), vbInformation
    
    Exit Sub
ResolutionEcranErreur:
    MsgBox "La résolution de l'écran n'a pas pu être obtenue..."
End Sub

 

[ChTi160]

Bonjour Argos88620
merci de ta contribution
je teste desque possible.
jean marie