Recheche de dates entre un intervalle

[pittex]

Bonjour,

J'ai besoin d'un pti coup de main SVP.

Je cherche à retrouver dans une liste de dates, celles qui correspondent à un intervalle entre une date de début et la date du jour.

J'ai joint un fichier au cas ou.


Merci,Merci,Merci,Merci,Merci,Merci,Merci,Merci,................

 

[Jean-Marie]

Bonjour Pittex

Je ne sais pas si cela va te convenir, je te propose une mise en forme conditionnelle.

1) sélectionne ta plage D1😀10
2) clique sur le menu Format/Mise en forme conditionnelle
3) dans la boîte de dialogue, normalement il y a deux champs de choix "la valeur de la cellule est" et "comprise entre",
4) dans le premier champ saisissable, tape $A$2
5) dans le second champ, tape $A$4
6) clique sur le bouton "Format..."
7) change le format de la cellule, la condition ci-dessus te montrera les cellules comprises dans l'intervalle.
8) valide 2 fois

@+Jean-Marie

 

[Monique]

Bonjour,

Tu as 2 formules et un format conditionnel dans ton fichier.

 

[pittex]

Heu ben je suis extrêmement désolé mais j'ai besoin d'une réponse en VBA (désolé,désolé). Je vous remercie pour vos reponses trés détaillées.
Promis je ne le reférai pas.

Bon c'est une réponse en VBA dont j'ai besoin.

 

[CHti160]

Salut "pittex"
re le"FORUM"
peut être une solution
voir piece jointe
A+++
Jean Marie

 

[andré]

Salut Monique,

Tout petit (petit, petit, ...) raccourci de ta formule en D2 : =SI((C2>=A$5)*(C2<=A$3);1+MAX(D$1😀1);"")

Ou bien encore mieux : =(C2>=A$5)*(C2<=A$3)*(1+MAX(D$1😀1))
mais alors il faut décocher "valeurs zéro" sous Outils / Options / Affichage pour ne pas voir les 0 s'afficher (ce qui ne change rien aux résultats).

J'ai de plus en plus tendance à essayer de supprimer les SI (limite des 7 fonctions !).

Ândré.

 

[Monique]

Re,

C'est vrai, çe fait 2 caractères en moins.
Je ne pense jamais à cette méthode.
Par contre, je n'aime pas l'option d'affichage,
je me suis fait avoir trop souvent.

 

[pittex]

Jean Marie, c'est exactement ce qu'il me faut.
Je me permet d'abuser en te demandant d'ajouter le fonctionnalité de :

Selectionner la ligne chaque fois qu'une date est trouvé et de les coller sur une autre feuille les unes derriéres les autres.

Je suis admiratif de vos niveaux respectifs, car je ne comprend pas toutes les étapes suivis par vos codes.

Merci beaucoup, à tous.

 

[CHti160]

re re "pittex"
un petit complément peu sûrement être amélioré par un pro
A+++
Jean Marie

 

[CHti160]

re re re à tous
je ne sais pas si j'ai bien compris
mais j'ai mis les dates les unes sous les autres
ont peu aussi les mettre les unes à coté des autres
A+++
Jean Marie

 

[CHti160]

a re a re

le petit fichier pour dates dans les colonnes
A+++
Jean Marie

 

[NiKo]

BOnjour a tous, merci pour ces reponses.

de mon coté jaimerai savoir comment faire pour que dans la feuil2 on puisse compabiliser combien de fois est repeter une date apres avoir executer la macro :


Transfomer : En :
19/08/04 19/08/04 8
19/08/04 05/08/04 2
19/08/04 18/08/04 1
19/08/04
19/08/04
16/08/04
19/08/04
17/08/04
05/08/04
19/08/04
19/08/04
18/08/04
05/08/04

Merci a vous

 

[NiKo]

BOnjour a tous, merci pour ces reponses.

de mon coté jaimerai savoir comment faire pour que dans la feuil2 on puisse compabiliser combien de fois est repeter une date apres avoir executer la macro :


Transfomer : En :
19/08/04 19/08/04 8
19/08/04 05/08/04 2
19/08/04 18/08/04 1
19/08/04
19/08/04
16/08/04
19/08/04
17/08/04
05/08/04
19/08/04
19/08/04
18/08/04
05/08/04

Merci a vous

 

[NiKo]

RE bonsoir ,

2 eme chose au moment de l'execution de la macro est til possible de remettre la Colonne "A" de la feuil2 a zero afin que chaqe fois ke lon clik sur le bouton macro l'ancien resultat soit effacer et le nouvo correctement inserer.

Merci a tous

 

[CHti160]

Salut "NiKo"
et les autres
presque bonne nuit le "FORUM"
tu rajoutes cela c'est une solution à ta deuxième question on va voir pour la 1°
Plage.Select
lig = 1
-----------> Worksheets("Feuil2").Range("A:A").ClearContents
For Each Cell In Selection
A+++
Jean Marie