Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Récap avec date et plusieurs conditions

Récap avec date et plusieurs conditions

4 réponses
Avatar
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
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Ellimac
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





Avatar
Thierry K
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" a écrit dans le message de
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







Avatar
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 <> 6 And c.Offset(0, -1) >= Début And c.Offset(0,
-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" a écrit dans le message de
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












Avatar
Thierry K
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" a écrit dans le message de news:

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 <> 6 And c.Offset(0, -1) >= Début And c.Offset(0,
-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" a écrit dans le message de
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