Journal de caisse
chostra55
Messages postés
36
Date d'inscription
Statut
Membre
Dernière intervention
-
Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention -
Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Voici mon problème, je créer un petit fichier Excel pour ma caisse, mais je rencontre des difficultés.
Tout d'abord, je souhaiterais faire apparaitre un bouton (je sais mettre un bouton) qui me ferai équilibrer le dernier montant de mon tableau (Si je clic sur ce bouton, alors la dernière valeurs de colonne [MONTANT RÉEL] = dernière valeur de colonne [MONTANT DE LA FACTURE])
Ensuite, un autre bouton pour :
Si dernière valeur de colonne [MONTANT DE LA FACTURE] > dernière valeur de colonne [MONTANT RÉEL] alors mettre sur cette ligne (dans les observation) "FAIRE AVOIR DE XX€" (X étant la différence des montant).
Et enfin, un dernier, qui me remplirait le tableau de cette façon (ce qui est en gras sera à remplir dans un formulaire qui apparaitra en cliquant sur ce bouton) :
[DATE] = date du jour
[REFERENCE FACTURE] = ""
[NOM (de facturation)] = entretien divers
[MONTANT DE LA FACTURE] = [MONTANT RÉEL]
[MONTANT RÉEL] = à compléter
[OBSERVATION] = "Mettre dans le 4551"
Désolé ça fait beaucoup de travail.
La photo est jointe.
Si vous pouviez au maximum commenter et écrire en Français les VBA.
Merci d'avance, et merci pour se super forum.
A voir également:
- Journal de caisse excel
- Journal de naissance gratuit a imprimer - Télécharger - Histoire & Religion
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
1 réponse
Eh bien en ce qui concerne le bouton pour équilibrer les derniers montants sur le tableau, j'écrirais :
Et là je m'arrête sur un problème dans votre demande.
Si votre premier bouton fait correspondre vos 2 derniers montants du tableau, comment voulez-vous que le dernier montant de la facture soit supérieur au dernier montant réel étant donné qu'on les a rendu égaux?
Je n'ai pas compris le dernier bouton non plus, si j'ai un bouton qui met des observations par exemple faire un avoir, alors cette donnée sera écrasée?
Sub EQUILIBRER() Dim DL As Long DL = Cells(Application.Rows.Count, 4).End(xlUp).Row 'ne marchera pas si des données sont présentes plus bas dans le tableau dans la colonne D, merci de me le dire Cells(DL, 5).Value = Cells(DL, 4).Value End Sub
Et là je m'arrête sur un problème dans votre demande.
Si votre premier bouton fait correspondre vos 2 derniers montants du tableau, comment voulez-vous que le dernier montant de la facture soit supérieur au dernier montant réel étant donné qu'on les a rendu égaux?
Je n'ai pas compris le dernier bouton non plus, si j'ai un bouton qui met des observations par exemple faire un avoir, alors cette donnée sera écrasée?
Pour faire simple : 1 pour "Monnaie rendue", 1 pour "écart de règlement", et un autre pour "sortie de caisse sans justificatif"
Je vais essayer le premier bouton.