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