XL 2016 Date tombant dans un intervalle de dates

shinozak à dit:

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

Cliquez pour agrandir...

James007 à dit:

Bonjour,

Un simple Equiv devrait pouvoir aider ...

Cliquez pour agrandir...