Boucle et incrementation en vb6

Question

Bonjour,
J'ai un probléme avec ma boucle ,bon je vous explique:
ma boucle fait :

for i =   2  To 120
iInc = i
For  iInc   = iInc + 1
If Exc1.range("A" & iInc).Value  =   Exc 1 .range("A" & i)  Then
Exc2.range("A" &  jInc ).Value    =  Exc1.range("A" & iInc)
jInc =    jInc  + 1
End If
Next iInc
Next i

Alors j'ai deux fichiers Excels Exc 1  et Exc2 alors je recherche les doublons dans  Exc1 et je les copie dans Exc2 .Mon probleme est que quand je prends i   = 2 et je compare avec les iInc , ma boucle me recopie tous les iInc qui ressemblent à i mais le probléme est q'elle ne copie pas i lui meme alors que c'est un doublon????Comment je peux faire pour copier dabord i avant de copier ses samblables!!
Je code en vb6
Help please

LIBRE_MAX · Answer

Salut,
boucles mal organisées !

for i = 2  To 119
For iInc =i+1 to  120
If Exc1.range("A" & iInc).Value  =  Exc1.range("A" & i)  Then
Exc2.range("A" & jInc).Value  =  Exc1.range("A" & iInc)
End If
Next iInc
Next i

<hr />... Y'en a même qui disent qu'ils l'ont vu voler.

us_30 · Answer

Bonjour,

For iInc = iInc + 1 ??????

Il manque par quelque chose...

Le plus simple, c'est de faire un tri en premier, qui ce classera les doublons, les uns à la suite des autres, non ? Ensuite il est simple de les supprimer...

Amicalement,
Us.

Boucle et incrementation en vb6

2 réponses

Votre réponse

Discussions similaires