C
carlos
Guest
Bonsoir,
Sub trouverdate()
Dim nb As Date, i As Byte
Dim prem1 As String, deux1 As String
Dim prem2 As String, deux2 As String
Dim prem3 As String, deux3 As String
Dim prem4 As String, deux4 As String
Dim prem5 As String, deux5 As String
effacertout
nb = Range("a1")
prem1 = Range("a3")
deux1 = Range("b3")
prem2 = Range("a4")
deux2 = Range("b4")
prem3 = Range("a5")
deux3 = Range("b5")
prem4 = Range("a6")
deux4 = Range("b6")
prem5 = Range("a7")
deux5 = Range("b7")
For i = 1 To 30
If nb + 7 * (i - 1) <= prem1 Or nb + 7 * (i - 1) >= deux1 _
And nb + 7 * (i - 1) <= prem2 Or nb + 7 * (i - 1) >= deux2 _
And nb + 7 * (i - 1) <= prem3 Or nb + 7 * (i - 1) >= deux3 _
And nb + 7 * (i - 1) <= prem4 Or nb + 7 * (i - 1) >= deux4 _
And nb + 7 * (i - 1) <= prem5 Or nb + 7 * (i - 1) >= deux5 _
Then Range("c" & Range("c30").End(xlUp).Row + 1) = nb + 7 * (i - 1)
Next
End Sub
Merci
Sub trouverdate()
Dim nb As Date, i As Byte
Dim prem1 As String, deux1 As String
Dim prem2 As String, deux2 As String
Dim prem3 As String, deux3 As String
Dim prem4 As String, deux4 As String
Dim prem5 As String, deux5 As String
effacertout
nb = Range("a1")
prem1 = Range("a3")
deux1 = Range("b3")
prem2 = Range("a4")
deux2 = Range("b4")
prem3 = Range("a5")
deux3 = Range("b5")
prem4 = Range("a6")
deux4 = Range("b6")
prem5 = Range("a7")
deux5 = Range("b7")
For i = 1 To 30
If nb + 7 * (i - 1) <= prem1 Or nb + 7 * (i - 1) >= deux1 _
And nb + 7 * (i - 1) <= prem2 Or nb + 7 * (i - 1) >= deux2 _
And nb + 7 * (i - 1) <= prem3 Or nb + 7 * (i - 1) >= deux3 _
And nb + 7 * (i - 1) <= prem4 Or nb + 7 * (i - 1) >= deux4 _
And nb + 7 * (i - 1) <= prem5 Or nb + 7 * (i - 1) >= deux5 _
Then Range("c" & Range("c30").End(xlUp).Row + 1) = nb + 7 * (i - 1)
Next
End Sub
Merci