Discussion :

[vincnet68]

Bonjour,

J'ai un tableau A qui contient 2 colonnes (date/heure de début et date/heure de fin).

J'ai un autre tableau B qui contient une date/heure,

Pour chaque ligne de B je voudrait voir sur la date/heure est comprise entre les dates du tableau A (ligne par ligne)

Quelle fonction Excel peut faire cela.

Merci de votre aide

Vincnet68

[Philippe Tulliez]

Bonjour,
A la lecture de ta question est-ce une date + une heure ou une date seule ?

J'ai un autre tableau B qui contient une date/heure,
Pour chaque ligne de B je voudrait voir sur la date/heure est comprise entre les dates du tableau A (ligne par ligne)

En supposant que la date + heure à tester est en cellule D2 et qu'il s'agit bien de date + heure en colonne A (début) & B (fin)
La fonction ci-dessous renverra VRAI si la date + heure est comprise entre la date + heure de la colonne A et la date + heure de la colonne B et FAUX dans le cas contraire

Code :

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

=ET(D2>=A2;D2<=B2)

[vincnet68]

Salut Philippe,

C'est bien date heure (15/12/2017 11:23:00)

Par contre ta fonction marche avec une ligne uniquement, je souhaite faire cela sur l'ensemble du tableau (ligne par ligne)

=OU(ET(D2>=A ligne x;D2<=B ligne x);
ET(D2>=A ligne x+1;D2<=B ligne x+1);
.....;
ET(D2>=A ligne n;D2<=B ligne n))

S'il n'existe pas de fonction je vais faire une macro.

[Philippe Tulliez]

Bonjour,

Par contre ta fonction marche avec une ligne uniquement, je souhaite faire cela sur l'ensemble du tableau (ligne par ligne)

Il suffit de tirer la formule vers le bas mais peut-être as-tu mal exprimé ta demande

[vincnet68]

C'est toujours D2 qui est analysé avec chaque ligne

Bon j'ai fait une macro

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Public Function IsIgnored(valeurDate As Date) As Boolean
 
Dim list As ListObject
Set list = Sheets("Paramètres").ListObjects("JourIgnoré")
Dim row As ListRow
For Each row In list.ListRows
    If (valeurDate > row.Range.Cells(1, 1).Value And _
    valeurDate < row.Range.Cells(1, 2).Value) Then
        IsIgnored = True
        Exit Function
    End If
Next
IsIgnored = False
End Function

Et je l'appel dans la cellule.

Merci

[Philippe Tulliez]

Bonjour,
C'est fou le nombre de personnes qui passe par du VBA alors qu'une simple fonction native d'Excel résout le problème

Code :

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

=SOMMEPROD( ($D$2>=Tableau1[Heure début]) * ($D$2<=Tableau1[Heure fin]) )=1

Si tu avais été plus explicite dès l'ouverture de la discussion tu aurais déjà eu la réponse dès ma première intervention.