Discussion :

[Philindy26]

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

[Menhir]

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ù.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ET(A2>=StartDate;A2<=EndDate);1;"")

[Philindy26]

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 ?

[Marc-L]

Bonjour !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

_______________ ____________________________________ ______________________________

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

[Philindy26]

Bonjour,

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

Encore bravo pour votre travail

Cordialement
Philindy26