Récap avec date et plusieurs conditions

Le
Thierry K
Bonjour à toutes et à tous

je souhaiterai faire une récap en tenant compte des dates de début et fin
(A1 et B1 incluses)

quelles sont les personnes (Noms et Prénoms) qui ont effectué des service de
table de marque (basket)
et combien (en additionnant les nombres correspondants de la colonne H)

Structure de ma feuille:
en A1 il y a la date de départ
en B1 il y a la date de fin.

D5 à D600 il y a des dates (croissant, doublons et pas de cellules vides) et
format "jj/mm/aaaa"
E5 à E600 il y a les noms (pas d'ordre mais doublons et cellules vides)
F5 à F600 il y a les prénoms (doublons et cellules vides)
H5 à H600 il y a des nombres (certaines cellules sont vides)

le résultat pourrait être sur une autre feuille ("récap" par exemple) ou sur
la même (colonnes W et +)

est ce possible sans macro?
ou avec macro?
comment?

Merci d'avance pour votre aide

Bonnes fêtes de fin d'année et meilleurs voux pour 2008.

Office Pro 2003 SP3
Win XP Pro SP2

pour répondre, enlever w x y z

Thierry K
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Ellimac
Le #5341561
Bonjour,

Les filtres automatiques devraient répondre à ton attente. Pour automatiser
tu peux lancer l'enregistreur de macro. En cas de besoin n'hésite pas à
demander.

Camille


Bonjour à toutes et à tous

je souhaiterai faire une récap en tenant compte des dates de début et fin
(A1 et B1 incluses)

quelles sont les personnes (Noms et Prénoms) qui ont effectué des service de
table de marque (basket)
et combien (en additionnant les nombres correspondants de la colonne H)

Structure de ma feuille:
en A1 il y a la date de départ
en B1 il y a la date de fin.

D5 à D600 il y a des dates (croissant, doublons et pas de cellules vides) et
format "jj/mm/aaaa"
E5 à E600 il y a les noms (pas d'ordre mais doublons et cellules vides)
F5 à F600 il y a les prénoms (doublons et cellules vides)
H5 à H600 il y a des nombres (certaines cellules sont vides)

le résultat pourrait être sur une autre feuille ("récap" par exemple) ou sur
la même (colonnes W et +)

est ce possible sans macro?
ou avec macro?
comment?

Merci d'avance pour votre aide

Bonnes fêtes de fin d'année et meilleurs voux pour 2008.

Office Pro 2003 SP3
Win XP Pro SP2

pour répondre, enlever w x y z

Thierry K





Thierry K
Le #5341481
Bonjour Camille
Bonjour à toutes et à tous

les filtres auto ne répondent pas exactement à mon souhait,
puisque les sommes par Nom ne sont pas possible (enfin à ma connaissance)

je vais essayer d'être plus précis,

en A1 date de Début "01/01/2008" par exemple
en B1 date de Fin "05/01/2008" par exemple

sur la même feuille, j'ai:

à partir de la ligne 5, colonne:
D E F H
31/12/2007 MARTIN Pierre 2 'pas pris en
compte hors date début et fin
01/01/2008 MARTIN Paul 1
01/01/2008 JUGNOT Marcel 2
02/01/2008 MARTIN Pierre 3
03/01/2008 MARTIN Pierre 1
04/01/2008 MARTIN Paul 2
05/01/2008 MARTIN Pierre 2
05/01/2008 MISTERE J.-Marc 2
06/01/2008 MARTIN Pierre 2 'pas pris en
compte hors date début et fin
06/01/2008 MARTIN Pierre 2 'pas pris en
compte hors date début et fin
06/01/2008 MARTIN Pierre 2 'pas pris en
compte hors date début et fin
07/01/2008 MARTIN Pierre 2 'pas pris en
compte hors date début et fin
08/01/2008 MARTIN Pierre 2 'pas pris en
compte hors date début et fin
09/01/2008
10/01/2008
etc......

le résultat souhaité: (sur la même feuille par exemple)
colonne W X Y
MARTIN Paul 3
JUGNOT Marcel 2
MARTIN Pierre 6
MISTERE J.-Marc 2

Merci d'avance pour votre aide

Bonnes fêtes de fin d'année et meilleurs voux pour 2008.


Office Pro 2003
Win XP Pro SP2
pour répondre, enlever w x y z

Thierry K
"Ellimac" news:
Bonjour,

Les filtres automatiques devraient répondre à ton attente. Pour
automatiser
tu peux lancer l'enregistreur de macro. En cas de besoin n'hésite pas à
demander.

Camille


Bonjour à toutes et à tous

je souhaiterai faire une récap en tenant compte des dates de début et fin
(A1 et B1 incluses)

quelles sont les personnes (Noms et Prénoms) qui ont effectué des service
de
table de marque (basket)
et combien (en additionnant les nombres correspondants de la colonne H)

Structure de ma feuille:
en A1 il y a la date de départ
en B1 il y a la date de fin.

D5 à D600 il y a des dates (croissant, doublons et pas de cellules vides)
et
format "jj/mm/aaaa"
E5 à E600 il y a les noms (pas d'ordre mais doublons et cellules vides)
F5 à F600 il y a les prénoms (doublons et cellules vides)
H5 à H600 il y a des nombres (certaines cellules sont vides)

le résultat pourrait être sur une autre feuille ("récap" par exemple) ou
sur
la même (colonnes W et +)

est ce possible sans macro?
ou avec macro?
comment?

Merci d'avance pour votre aide

Bonnes fêtes de fin d'année et meilleurs voux pour 2008.

Office Pro 2003 SP3
Win XP Pro SP2

pour répondre, enlever w x y z

Thierry K







FFO
Le #5341341
Salut Thierry

Soit onglet "Feuil1" à traiter
Colonne :
A : les dates
B: Les Noms
C: Les Prénoms
D: Les valeurs

Les résultats en colonnes W/X/y

Je te propose ce code :

Sheets("Feuil1").Activate
Range("W1", [Y65535].End(xlUp)).Clear
Début = CDate(InputBox("Saisissez la date", "Date Début", "JJ/MM/AAAA"))
Fin = CDate(InputBox("Saisissez la date", "Date Fin", "JJ/MM/AAAA"))
For Each c In Worksheets("Feuil1").Range("B1", [B65535].End(xlUp))
If c.Interior.ColorIndex -1) <= Fin Then
For Each d In Worksheets("Feuil1").Range(c.Offset(1, 0), [B65535].End(xlUp))
If d = c And d.Offset(0, 1) = c.Offset(0, 1) And d.Offset(0, -1) >= Début
And d.Offset(0, -1) <= Fin Then
Nombre = Nombre + d.Offset(0, 2)
d.Interior.ColorIndex = 6
End If
Next
If Range("W1") = "" Then
i = 0
Else
i = 1
End If
Range("W65535").End(xlUp).Offset(i, 0) = c
Range("X65535").End(xlUp).Offset(i, 0) = c.Offset(0, 1)
Range("Y65535").End(xlUp).Offset(i, 0) = Nombre + c.Offset(0, 2)
End If
Nombre = 0
Next
Range("B1", [B65535].End(xlUp)).Interior.ColorIndex = xlNone

Celà devrait convenir
Dis moi !!!!


Bonjour Camille
Bonjour à toutes et à tous

les filtres auto ne répondent pas exactement à mon souhait,
puisque les sommes par Nom ne sont pas possible (enfin à ma connaissance)

je vais essayer d'être plus précis,

en A1 date de Début "01/01/2008" par exemple
en B1 date de Fin "05/01/2008" par exemple

sur la même feuille, j'ai:

à partir de la ligne 5, colonne:
D E F H
31/12/2007 MARTIN Pierre 2 'pas pris en
compte hors date début et fin
01/01/2008 MARTIN Paul 1
01/01/2008 JUGNOT Marcel 2
02/01/2008 MARTIN Pierre 3
03/01/2008 MARTIN Pierre 1
04/01/2008 MARTIN Paul 2
05/01/2008 MARTIN Pierre 2
05/01/2008 MISTERE J.-Marc 2
06/01/2008 MARTIN Pierre 2 'pas pris en
compte hors date début et fin
06/01/2008 MARTIN Pierre 2 'pas pris en
compte hors date début et fin
06/01/2008 MARTIN Pierre 2 'pas pris en
compte hors date début et fin
07/01/2008 MARTIN Pierre 2 'pas pris en
compte hors date début et fin
08/01/2008 MARTIN Pierre 2 'pas pris en
compte hors date début et fin
09/01/2008
10/01/2008
etc......

le résultat souhaité: (sur la même feuille par exemple)
colonne W X Y
MARTIN Paul 3
JUGNOT Marcel 2
MARTIN Pierre 6
MISTERE J.-Marc 2

Merci d'avance pour votre aide

Bonnes fêtes de fin d'année et meilleurs voux pour 2008.


Office Pro 2003
Win XP Pro SP2
pour répondre, enlever w x y z

Thierry K
"Ellimac" news:
Bonjour,

Les filtres automatiques devraient répondre à ton attente. Pour
automatiser
tu peux lancer l'enregistreur de macro. En cas de besoin n'hésite pas à
demander.

Camille


Bonjour à toutes et à tous

je souhaiterai faire une récap en tenant compte des dates de début et fin
(A1 et B1 incluses)

quelles sont les personnes (Noms et Prénoms) qui ont effectué des service
de
table de marque (basket)
et combien (en additionnant les nombres correspondants de la colonne H)

Structure de ma feuille:
en A1 il y a la date de départ
en B1 il y a la date de fin.

D5 à D600 il y a des dates (croissant, doublons et pas de cellules vides)
et
format "jj/mm/aaaa"
E5 à E600 il y a les noms (pas d'ordre mais doublons et cellules vides)
F5 à F600 il y a les prénoms (doublons et cellules vides)
H5 à H600 il y a des nombres (certaines cellules sont vides)

le résultat pourrait être sur une autre feuille ("récap" par exemple) ou
sur
la même (colonnes W et +)

est ce possible sans macro?
ou avec macro?
comment?

Merci d'avance pour votre aide

Bonnes fêtes de fin d'année et meilleurs voux pour 2008.

Office Pro 2003 SP3
Win XP Pro SP2

pour répondre, enlever w x y z

Thierry K












Thierry K
Le #5341151
Bonjour FFO

Ok ça marche merci, c'est super
je vais l'adapter à mon fichier.
j'avais des lignes en couleur, des lignes ou les noms prénoms sont vide
ou des lignes ou il y a nom et prénom mais pas de valeur.

encore merci
et bonne et heureuse année 2008 à tous

pour répondre, enlever w x y z

Thierry K
"FFO"
Salut Thierry

Soit onglet "Feuil1" à traiter
Colonne :
A : les dates
B: Les Noms
C: Les Prénoms
D: Les valeurs

Les résultats en colonnes W/X/y

Je te propose ce code :

Sheets("Feuil1").Activate
Range("W1", [Y65535].End(xlUp)).Clear
Début = CDate(InputBox("Saisissez la date", "Date Début", "JJ/MM/AAAA"))
Fin = CDate(InputBox("Saisissez la date", "Date Fin", "JJ/MM/AAAA"))
For Each c In Worksheets("Feuil1").Range("B1", [B65535].End(xlUp))
If c.Interior.ColorIndex -1) <= Fin Then
For Each d In Worksheets("Feuil1").Range(c.Offset(1, 0),
[B65535].End(xlUp))
If d = c And d.Offset(0, 1) = c.Offset(0, 1) And d.Offset(0, -1) >= Début
And d.Offset(0, -1) <= Fin Then
Nombre = Nombre + d.Offset(0, 2)
d.Interior.ColorIndex = 6
End If
Next
If Range("W1") = "" Then
i = 0
Else
i = 1
End If
Range("W65535").End(xlUp).Offset(i, 0) = c
Range("X65535").End(xlUp).Offset(i, 0) = c.Offset(0, 1)
Range("Y65535").End(xlUp).Offset(i, 0) = Nombre + c.Offset(0, 2)
End If
Nombre = 0
Next
Range("B1", [B65535].End(xlUp)).Interior.ColorIndex = xlNone

Celà devrait convenir
Dis moi !!!!


Bonjour Camille
Bonjour à toutes et à tous

les filtres auto ne répondent pas exactement à mon souhait,
puisque les sommes par Nom ne sont pas possible (enfin à ma connaissance)

je vais essayer d'être plus précis,

en A1 date de Début "01/01/2008" par exemple
en B1 date de Fin "05/01/2008" par exemple

sur la même feuille, j'ai:

à partir de la ligne 5, colonne:
D E F H
31/12/2007 MARTIN Pierre 2 'pas pris
en
compte hors date début et fin
01/01/2008 MARTIN Paul 1
01/01/2008 JUGNOT Marcel 2
02/01/2008 MARTIN Pierre 3
03/01/2008 MARTIN Pierre 1
04/01/2008 MARTIN Paul 2
05/01/2008 MARTIN Pierre 2
05/01/2008 MISTERE J.-Marc 2
06/01/2008 MARTIN Pierre 2 'pas pris
en
compte hors date début et fin
06/01/2008 MARTIN Pierre 2 'pas pris
en
compte hors date début et fin
06/01/2008 MARTIN Pierre 2 'pas pris
en
compte hors date début et fin
07/01/2008 MARTIN Pierre 2 'pas pris
en
compte hors date début et fin
08/01/2008 MARTIN Pierre 2 'pas pris
en
compte hors date début et fin
09/01/2008
10/01/2008
etc......

le résultat souhaité: (sur la même feuille par exemple)
colonne W X Y
MARTIN Paul 3
JUGNOT Marcel 2
MARTIN Pierre 6
MISTERE J.-Marc 2

Merci d'avance pour votre aide

Bonnes fêtes de fin d'année et meilleurs voux pour 2008.


Office Pro 2003
Win XP Pro SP2
pour répondre, enlever w x y z

Thierry K
"Ellimac" news:
Bonjour,

Les filtres automatiques devraient répondre à ton attente. Pour
automatiser
tu peux lancer l'enregistreur de macro. En cas de besoin n'hésite pas à
demander.

Camille


Bonjour à toutes et à tous

je souhaiterai faire une récap en tenant compte des dates de début et
fin
(A1 et B1 incluses)

quelles sont les personnes (Noms et Prénoms) qui ont effectué des
service
de
table de marque (basket)
et combien (en additionnant les nombres correspondants de la colonne
H)

Structure de ma feuille:
en A1 il y a la date de départ
en B1 il y a la date de fin.

D5 à D600 il y a des dates (croissant, doublons et pas de cellules
vides)
et
format "jj/mm/aaaa"
E5 à E600 il y a les noms (pas d'ordre mais doublons et cellules
vides)
F5 à F600 il y a les prénoms (doublons et cellules vides)
H5 à H600 il y a des nombres (certaines cellules sont vides)

le résultat pourrait être sur une autre feuille ("récap" par exemple)
ou
sur
la même (colonnes W et +)

est ce possible sans macro?
ou avec macro?
comment?

Merci d'avance pour votre aide

Bonnes fêtes de fin d'année et meilleurs voux pour 2008.

Office Pro 2003 SP3
Win XP Pro SP2

pour répondre, enlever w x y z

Thierry K














Publicité
Poster une réponse
Anonyme