Methode .find dans une Boucle

[zmus]

Bonjour,
j'utilise la methode .find dans une boucle comme ci après:

For i = 1 To DL
NPSPG = 0
Cmde = 0

Set DSPG = PlageTG.Find(CelBF & "*", LookAt:=xlWhole)
If Not DSPG Is Nothing Then

NRow = DSPG.Address
Do
Set DSPG = PlageTG.FindNext(DSPG)

NPSPG = NPSPG + CelTG.Offset(DSPG.Row - 1, 17)
Cmde = Cmde + CelTG.Offset(DSPG.Row - 1, 10)

Loop While StrComp(NRow, DSPG.Address) <> 0
End If

CelBF.Offset(i - 1, 1) = NPSPG
CelBF.Offset(i - 1, 3) = Cmde
CelBF.Offset(i - 1, 4).FormulaLocal = "=D" & i & "*1,125*1,03"

Next i


Pour la première boucle de i le résultat reporté est correct.
Toute fois à partir de la deuxième boucle le résultat est nulle pourtant les valeurs cherchées existes dans le tableau cible.

J’espère avoir être bien claire sans vous crée plus de souci pour me comprendre.

SOS.

Cdt

 

[repcheks]

Re : Methode .find dans une Boucle

Consulte l'aide VBA a propos de la méthode .findnext

J'ai pas Excel sous la main, je peux pas etre plus precis

 

[zmus]

Re : Methode .find dans une Boucle

en faite j'ai déja utiliser cette methode est ça marche très bien.
l'exception aujourd'huit, est que j'arrive pas à l'utiliser dans une boucle "for to"
à partir de la deuxième boucle le resultat est "Nothing" alors que le tableau cible contien la valeur recherchée (qui est en effet une date).

cdt