C
carlos
Guest
Salut
J'ai un probleme avec les x .... sur :
"If nb + 7 * (i - 1) <= prem(x) Or nb + 7 * (i - 1) >= deux(x) _
Then Range("c" & Range("c30").End(xlUp).Row + 1) = nb + 7 * (i - 1) Else
If nb + 7 * (i - 1) >= prem(x) And nb + 7 * (i - 1) <= deux(x) Then "
voici la macro entiere
Sub trouverdate()
Dim nb As Variant, prem(5) As String, deux(5) As String, i As Byte
Dim x As Byte
effacertout
nb = Range("a1")
For x = 1 To 5
prem(x) = Cells(2 + x, 1)
deux(x) = Cells(2 + x, 2)
Next x
For i = 1 To 30
If nb + 7 * (i - 1) <= prem(x) Or nb + 7 * (i - 1) >= deux(x) _
Then Range("c" & Range("c30").End(xlUp).Row + 1) = nb + 7 * (i - 1) Else
If nb + 7 * (i - 1) >= prem(x) And nb + 7 * (i - 1) <= deux(x) Then Range("c1") = ""
Next
End Sub
Merci
J'ai un probleme avec les x .... sur :
"If nb + 7 * (i - 1) <= prem(x) Or nb + 7 * (i - 1) >= deux(x) _
Then Range("c" & Range("c30").End(xlUp).Row + 1) = nb + 7 * (i - 1) Else
If nb + 7 * (i - 1) >= prem(x) And nb + 7 * (i - 1) <= deux(x) Then "
voici la macro entiere
Sub trouverdate()
Dim nb As Variant, prem(5) As String, deux(5) As String, i As Byte
Dim x As Byte
effacertout
nb = Range("a1")
For x = 1 To 5
prem(x) = Cells(2 + x, 1)
deux(x) = Cells(2 + x, 2)
Next x
For i = 1 To 30
If nb + 7 * (i - 1) <= prem(x) Or nb + 7 * (i - 1) >= deux(x) _
Then Range("c" & Range("c30").End(xlUp).Row + 1) = nb + 7 * (i - 1) Else
If nb + 7 * (i - 1) >= prem(x) And nb + 7 * (i - 1) <= deux(x) Then Range("c1") = ""
Next
End Sub
Merci