XL 2016 Date tombant dans un intervalle de dates

[alexamel88]

Bonjour tout le monde,

J'ai un soucis avec une formule pour définir dans quel intervalle correspondant tombe une date. Par exemple j'ai une suite de dates dans la colonne A et un intervalle de dates dans un autre fichier avec un début d'intervalle et fin d'intervalle. Je dois déterminer pour une date de la colonne A dans quel intervalle tombe cette date.
Exemple: date colonne A est 01/11/2019, dans l'autre fichier il y a differents intervalle, et je dois utiliser une formule qui fait comprendre que la date du 01/11/2019 tombe dans l'intervalle correspondant 28/10/2019-03/11/2019. Je vous joins le fichier correspondant.

Merci beaucoup à tous pour votre aide!

Agnieszka

 

[shinozak]

Salut,
Y'a mieux mais ça marche :

Sub interDate()
Dim feuil1 As Worksheet
Dim feuil2 As Worksheet
Set feuil1 = Worksheets("Intervalles")
Set feuil2 = Worksheets("dates")
For k = 2 To 7
For q = 2 To 11
If feuil2.Range("A" & k).Value >= feuil1.Cells(q, 1).Value Then
If feuil2.Range("A" & k).Value <= feuil1.Cells(q, 2).Value Then
feuil2.Range("B" & k).Value = feuil1.Cells(q, 3).Value
End If
End If
Next q
Next k
End Sub

 

[alexamel88]

Salut,
Y'a mieux mais ça marche :

Sub interDate()
Dim feuil1 As Worksheet
Dim feuil2 As Worksheet
Set feuil1 = Worksheets("Intervalles")
Set feuil2 = Worksheets("dates")
For k = 2 To 7
For q = 2 To 11
If feuil2.Range("A" & k).Value >= feuil1.Cells(q, 1).Value Then
If feuil2.Range("A" & k).Value <= feuil1.Cells(q, 2).Value Then
feuil2.Range("B" & k).Value = feuil1.Cells(q, 3).Value
End If
End If
Next q
Next k
End Sub

Coucou, merci pour ta réponse, mais je ne connais pas bien (même du tout VBA) y a t-il un moyen en utilisant une combiniason de formules excel?

 

[James007]

Bonjour,

Un simple Equiv devrait pouvoir aider ...

 

[alexamel88]

Bonjour,

Un simple Equiv devrait pouvoir aider ...

Aussi simple que ca, et moi je me compliquais la tete! Merci beaucoup

 

[James007]

De rien ...

Content que cela puisse t'aider