Nombre de tickets

Le
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
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
ChrisV
Le #362594
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" 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




Vince
Le #362592
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" 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" 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








Jacky
Le #362549
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" 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




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

"Jacky" 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" 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








Publicité
Poster une réponse
Anonyme