Problème avec .Find

StrikeBEH

XLDnaute Occasionnel
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...

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
 

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson