Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Nombre de tickets

4 réponses
Avatar
Vince
Bonjour,
J'ai un tableau avec en A des dates que je saisie
en C des numéros de début de tickets
en D des numéros de fin de tickets.

Je souhaite qu'après avoir saisie la date et les numéros de tickets,
après avoir appuyé sur un bouton macro"Valider"
avoir dans une feuille X, la date de la saisie, avec le nombre de tickets
saisis soit en fait la différence D-C.
Merci beaucoup
Vince

4 réponses

Avatar
ChrisV
Bonjour Vince,

Pourrais-tu donner d'avantage de précisions sur l'organisation des données
que tu désires obtenir en feuille X.
également...
- les dates en A sont-elles toutes différentes ?
- le feuille X est-elle déjà existante ?


ChrisV


"Vince" a écrit dans le message de
news:
Bonjour,
J'ai un tableau avec en A des dates que je saisie
en C des numéros de début de tickets
en D des numéros de fin de tickets.

Je souhaite qu'après avoir saisie la date et les numéros de tickets,
après avoir appuyé sur un bouton macro"Valider"
avoir dans une feuille X, la date de la saisie, avec le nombre de tickets
saisis soit en fait la différence D-C.
Merci beaucoup
Vince




Avatar
Vince
Merci beaucoup pour ta prestitude

Chaque jour, je reçois des tickets, je saisi donc en A des dates
en C num début, en D num fin.
je peux saisir plusieurs fois par jour les num début et num fin.
Je souhaite donc qu'après validation, sur une feuille de consultation, on
puisse voir ex : en A la date puis en B le nombre de tickets de la journée.
Est-ce possible ?

Merci


"ChrisV" a écrit dans le message de
news:
Bonjour Vince,

Pourrais-tu donner d'avantage de précisions sur l'organisation des données
que tu désires obtenir en feuille X.
également...
- les dates en A sont-elles toutes différentes ?
- le feuille X est-elle déjà existante ?


ChrisV


"Vince" a écrit dans le message de
news:
Bonjour,
J'ai un tableau avec en A des dates que je saisie
en C des numéros de début de tickets
en D des numéros de fin de tickets.

Je souhaite qu'après avoir saisie la date et les numéros de tickets,
après avoir appuyé sur un bouton macro"Valider"
avoir dans une feuille X, la date de la saisie, avec le nombre de
tickets


saisis soit en fait la différence D-C.
Merci beaucoup
Vince








Avatar
Jacky
Bonjour Vince

Une solution peut être.

En supposant que la première date commence en A2
Nomme une feuille "consultation" (clique droit sur son onglet et renommer)
Dans le module de la feuille de saisie (Clique droit sur son onglet et
visualiser le code):
Copie le code ci-dessous
'-------------------------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Sheets("consultation").Cells.ClearContents
Sheets("consultation").[a1] = "Date"
Sheets("consultation").[b1] = "Tickets/jour"
i = 2
For Each c In Range([a2], [a2].End(4))
If c = "" Then GoTo fin
Sheets("consultation").Range("a" & i) = CDate(c)
x = Range("d" & i) - Range("c" & i)
total = total + x
Sheets("consultation").Range("b" & i) = x
i = i + 1
Next
fin:
Sheets("consultation").Range("a" & i + 1) = "Total"
Sheets("consultation").Range("b" & i + 1) = total
End Sub
'-------------------
Salutations
JJ

"Vince" a écrit dans le message de
news:
Bonjour,
J'ai un tableau avec en A des dates que je saisie
en C des numéros de début de tickets
en D des numéros de fin de tickets.

Je souhaite qu'après avoir saisie la date et les numéros de tickets,
après avoir appuyé sur un bouton macro"Valider"
avoir dans une feuille X, la date de la saisie, avec le nombre de tickets
saisis soit en fait la différence D-C.
Merci beaucoup
Vince




Avatar
Vince
Merci beaucoup Jacky, cela fonctionne très bien.
Bonne journée.
Vince

"Jacky" a écrit dans le message de
news:%
Bonjour Vince

Une solution peut être.

En supposant que la première date commence en A2
Nomme une feuille "consultation" (clique droit sur son onglet et renommer)
Dans le module de la feuille de saisie (Clique droit sur son onglet et
visualiser le code):
Copie le code ci-dessous
'-------------------------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Sheets("consultation").Cells.ClearContents
Sheets("consultation").[a1] = "Date"
Sheets("consultation").[b1] = "Tickets/jour"
i = 2
For Each c In Range([a2], [a2].End(4))
If c = "" Then GoTo fin
Sheets("consultation").Range("a" & i) = CDate(c)
x = Range("d" & i) - Range("c" & i)
total = total + x
Sheets("consultation").Range("b" & i) = x
i = i + 1
Next
fin:
Sheets("consultation").Range("a" & i + 1) = "Total"
Sheets("consultation").Range("b" & i + 1) = total
End Sub
'-------------------
Salutations
JJ

"Vince" a écrit dans le message de
news:
Bonjour,
J'ai un tableau avec en A des dates que je saisie
en C des numéros de début de tickets
en D des numéros de fin de tickets.

Je souhaite qu'après avoir saisie la date et les numéros de tickets,
après avoir appuyé sur un bouton macro"Valider"
avoir dans une feuille X, la date de la saisie, avec le nombre de
tickets


saisis soit en fait la différence D-C.
Merci beaucoup
Vince