Gestion des achats de tickets : améliorer un code ou/et en rajoutant une macro

[anthoYS]

Bonsoir,

J'ai un tableau qui fait état des tickets achetés en fonction du mois.
Donc, un code permet de rajouter l'achat d'un ticket et de faire état du nombre total de ticket achetés selon la catégorie (5, 10, 15... repas).
Un autre tableau (au dessus), qui fait etat des dépenses engendrés par l'achat des tickets.
Le but étant de peaufiner le code existant, de sorte que lorsque je procède à un double clic, il me rajoute l'achat d'un autre ticket, mais aussi, me fasse apparaître la date du clic (aujourd'hui -Date en vb-) et correspondent dans le tableau en haut au mois adéquat au clic (en bas, sous dates).
Attention, de bien séparer les dates selon le genre de ticket, si 2 achat d'un ticket "x" alors, on aura date1 et date2 complétés comportant chaqun la date du clic (d'achat) respectives.

Ensuite, les montant relatifs au dates doivent aussi figurer dans le tableau du dessus selon le mois du clic.

Voir le fichier joint.

Merci par avance.

 

[anthoYS]

Re : Gestion des achats de tickets : améliorer un code ou/et en rajoutant une macro

J'ai revu le fichier.

En fait pour faire plus simple.
Il faut trouver la formule à mettre en D17, puis à incrémenter vers la droite.

Merci par avance à ceux qui tenterons de résoudre mon problème.

 

[Tibo]

Re : Gestion des achats de tickets : améliorer un code ou/et en rajoutant une macro

Bonjour,

En D17, un essai avec :

=SOMMEPROD((TEXTE($L$47:$M$55;"mmaa")=TEXTE(D$1;"mmaa"))*$H$47:$H$55)

à recopier vers la droite

Je te laisse tester

@+

 

[anthoYS]

Re : Gestion des achats de tickets : améliorer un code ou/et en rajoutant une macro

Merci ça marche impeccable.

Le plus gros à été réalisé.

Maintenant, il me reste ce code. Qui, par un clic afficherai la date du jour dans la cellule voulu.

 

[pierrejean]

Re : Gestion des achats de tickets : améliorer un code ou/et en rajoutant une macro

bonjour anthoYs

Salut Tibo

Vois si cela te convient

 

[anthoYS]

Re : Gestion des achats de tickets : améliorer un code ou/et en rajoutant une macro

Merci pierrejean ; je préfererai que cela fonctionne par double clic.

Est-ce possible.

Bonne fin de soirée.

 

[anthoYS]

Re : Gestion des achats de tickets : améliorer un code ou/et en rajoutant une macro

Quel est le problème dans ce code?

[COLOR="Yellow"]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)[/COLOR]
Cancel = True
If Not Application.Intersect(Target, [J47:J55]) Is Nothing Then ActiveCell.Value = ActiveCell.Value + 1
If Not Application.Intersect(Target, [L47:AZ57]) Is Nothing Then Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 4, xlNone, 4)
Target.Column = Date
End If
End Sub

Rajouter une unité par double clic de J47:J55.
Puis de L47 à AZ57 le double clic dans une cellule affiche la date du jour.

Merci à vous par avance.

 

[pierrejean]

Re : Gestion des achats de tickets : améliorer un code ou/et en rajoutant une macro

Re
Je n'ai pas compris ce que tu souhaites pour l'Interior.colorindex
Vois cet essai

 

[anthoYS]

Re : Gestion des achats de tickets : améliorer un code ou/et en rajoutant une macro

C'est nickel. Mais la couleur "Interior.colorindex" n'est pas necéssaire, c'est que je me suis basé sur un exemple contenant cela, et j'ai oublié de l'enlever. Bonne remarque qui m'aura permis de prendre conscience de mon erreur.

En supprimant la ligne correspondante tout fonctionne comme je le souhaitais.

Merci pierrejean.