Sujet Précédent Sujet Suivant

Journal de caisse

Fermé
chostra55 Messages postés 36 Date d'inscription vendredi 25 septembre 2015 Statut Membre Dernière intervention 26 mai 2016 - Modifié par chostra55 le 12/10/2015 à 11:04
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 12 oct. 2015 à 17:29

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:

1 réponse

Réponse 1 / 1
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
12 oct. 2015 à 12:04
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?
0
chostra55 Messages postés 36 Date d'inscription vendredi 25 septembre 2015 Statut Membre Dernière intervention 26 mai 2016
12 oct. 2015 à 14:13
En fait, il faut envisager que c'est 3 chose qui ne se feront pas ensemble, c'est 3 choses bien distincte.

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.
0
chostra55 Messages postés 36 Date d'inscription vendredi 25 septembre 2015 Statut Membre Dernière intervention 26 mai 2016
12 oct. 2015 à 14:28
Ça ne fonctionne pas. J'ai aucune erreur, mais rien ne ce passe.
0
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
12 oct. 2015 à 14:29
Bon dans ce cas, essayez le premier bouton, les autres ne me poserons pas de problème. Mais je ne vois pas la fin du tableau donc j'ai du mal à définir la "dernière ligne".
0
chostra55 Messages postés 36 Date d'inscription vendredi 25 septembre 2015 Statut Membre Dernière intervention 26 mai 2016
12 oct. 2015 à 14:39
Vous voulez que je vous transmette le lien pour télécharger mon classeur ? vous comprendrez peut être mieux.
0
chostra55 Messages postés 36 Date d'inscription vendredi 25 septembre 2015 Statut Membre Dernière intervention 26 mai 2016
12 oct. 2015 à 14:43
https://www.transfernow.net/?utm_source=partagefichierscom&utm_medium=download
0

Discussions similaires

Symbole Attention dans Word
Nortec59 -
LOUL7619 -

33 réponses
Fichier word verrouillé
Mao -
maze -

56 réponses