Problème avec .Find

[StrikeBEH]

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

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

 

[Pierrot93]

Re : Problème avec .Find

Bonjour,

regarde dans l'aide vba les différents arguments de la méthode... entre autre " LookIn"

Set c = .Find(nJour, LookIn:=xlValues, SearchDirection:=xlNext, LookIn:=xlWhole)

bon après midi
@+

 

[StrikeBEH]

Re : Problème avec .Find

Merci, j'ai adapté en suivant tes conseils et ça fonctionne !
Bonne fin de journée