Journal de caisse Fermé

Question

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.

Kuartz · Answer

Eh bien en ce qui concerne le bouton pour équilibrer les derniers montants sur le tableau, j'écrirais :

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?