Bonjour à tous,
J'ai un petit bout de code qui me pose problème depuis quelque temps et comme je ne trouve pas de solutions, je m'en remets à vous...
Le problème c'est que, si nJour=1 alors c=10 !!! et non 1...
Le problème ne se pose pas pour les valeurs allant de 2 à inTv !!!
D'où provient l'erreur ?
Par avance, merci
J'ai un petit bout de code qui me pose problème depuis quelque temps et comme je ne trouve pas de solutions, je m'en remets à vous...
Code:
Public Sub Test1()
Dim c As Range
Dim nJour As Integer
inTv = CLng(Day(DateSerial(Year(Date), Month(Date) + 1, 0)))
For nJour = 1 To inTv
With Range("B7:B" & inTv + 6)
Set c = .Find(nJour, LookIn:=xlValues, SearchDirection:=xlNext)
End With
Next nJour
End Sub
Le problème c'est que, si nJour=1 alors c=10 !!! et non 1...
Le problème ne se pose pas pour les valeurs allant de 2 à inTv !!!
D'où provient l'erreur ?
Par avance, merci