Valide Jour entre deux dates

Version imprimable

19/05/2014, 16h13
Philindy26

1 pièce(s) jointe(s)

Valide Jour entre deux dates

Bonjour,

Avec les dates, je n'y arrive pas...
Voici mon problème :
Sur une feuille (saisie), j'ai deux dates (premier jour et dernier jour)
Sur une deuxième feuille (Année), j'ai toutes les dates d'une année en colonne + une colonne "validation".

Je voudrais que quand une personne saisie les deux dates (premier jour et dernier jour) : une validation se fasse automatiquement sur la colonne "validation" de la feuille "Année".
Par exemple que le chiffre 1 soit inscrit entre ses deux dates...
Je joins le fichier pour modèle.

J'ai cherché sur plusieurs forums, mais je n'arrive pas à mettre en application...

Merci par avance.
Cordialement,
Philindy26
19/05/2014, 17h00
Menhir

Citation:

Envoyé par Philindy26

Je joins le fichier pour modèle.

C'est étrange : dans la liste des sujet, il est indiqué que celui-ci comporte une pièce jointe mais je ne parviens pas à voir où.:weird:
19/05/2014, 17h45
Philippe Tulliez

Bonjour,
Si j'ai bien compris ton problème dans une feuille nommée [Saisie], tu places dans deux cellules une date de début et une date de fin et dans une autre feuille nommée [Année], tu as deux colonnes, l'une contenant des dates et l'autre une formule qui devrait te renvoyer la valeur 1 si la date contenue dans la première colonne est bien comprise entre les dates début et fin de la feuille [Saisie].
Pour l'exemple, je te conseille de nommer les deux cellules de la feuille [Saisie], par exemple StartDate et EndDate.

Exemple de la formule à placer en colonne B de la feuille [Année]

Code:

=ET(A2>=StartDate;A2<=EndDate)*1

ou

Code:

=SI(ET(A2>=StartDate;A2<=EndDate);1;"")
19/05/2014, 19h03
Philindy26

1 pièce(s) jointe(s)

Valide Jour entre deux dates

Bonjour,

Il me semblait que j'avais insérer le fichier, mille excuses.

Merci pour ces réponses rapides.
Cela est-il possible en VBA ?

Bonjour !

Code:

1
2
3
4
5
6
7
8
9
           Dim Rd As Range, Rf As Range:            Const DF$ = "d mmmm yyyy"
    With Feuil2.[B2:B366]
           Set Rd = .Find(Format(Feuil1.[PremJour].Value, DF), , xlValues, xlWhole)
        If Not Rd Is Nothing Then
              Set Rf = .Find(Format(Feuil1.[DernJour].Value, DF))
           If Not Rf Is Nothing Then Range(Rd, Rf).Offset(, 2).Value = 1: Set Rf = Nothing
           Set Rd = Nothing
        End If
    End With

_______________:yaisse1: ____________________________________:yaisse1: ______________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

19/05/2014, 20h34
Philindy26

Bonjour,

Merci beaucoup à tous, cela fonctionne à merveille soit avec les formules et en vba.

Encore bravo pour votre travail

Cordialement
Philindy26