vb6 Procédure trop grande !!! Résolu

Question

Jes suis en stage 
Je dois trier des feuilles excel &#224; l'aide de vb6
Je le fais &#224; travers des codes identificateurs situ&#233;s sur la 1&#232;re colonne
le probl&#232;me c'est qu'il y en a 400 donc il faut que je fasse 

dans un command click

if machin = truc then
copier
coller
elseif machin =chose then
copier
coller
......
......
...... endif
et &#231;a 400 fois

je pense pas que je peux faire une boucle car je copie pas toujours vers la meme direction
Je ne peux pas compiler il me mets :
proc&#233;dure trop grande

Si qq'un voit une solution une boucle ou qqchose ???????
ou comment augmenter la taille de la proc&#233;dure ??????

Merci d'avance a tous et toutes

Batao

Renfield · Accepted Answer

ce que je vois : des lignes trop r&#233;p&#233;t&#233;es...

deux solutions envisageables :

for d =38 to 400 step 1
if instr ( ";valeur1;valeur2;" , ";" & appxl.cells(d,"a").value & ";" ) then
    appxl.rows(d).select
    appxl.selection.copy

    appact.rows(m).select
    appact.activesheet.paste
    m=m+1
End if
next d

ou bien 

Dim Found as Boolean

for d =38 to 400 step 1
    Found = False
    If appxl.cells(d,"a").value = "valeur1" then
       Found = True
    End if
   ........
     If Found Then
        appxl.rows(d).select
        appxl.selection.copy

        appact.rows(m).select
        appact.activesheet.paste
        m=m+1
   end if
next d

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

cs_sitemo · Answer

tu peux envoyer ce ke ta fai comment je voi mieux quest ce que tu veu faire
envoie moi


MK

batao · Answer

c du genre
m=1

for d =38 to 400 step 1

if appxl.cells(d,"a").value="FR200358854" then
appxl.rows(d).select
appxl.selection.copy

appact.rows(m).select
appact.activesheet.paste
m=m+1

elseif appxl.cells(d,"a").value="FR200358854" then
appxl.rows(d).select
appxl.selection.copy

appact.rows(m).select
appact.activesheet.paste
m=m+1

.....
......
400fois
endif
next d
donc &#231;a fait beaucoup pour lui

Renfield · Answer

utilises Select case plutot que ElseIF .....

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

batao · Answer

j'ai essay&#233; avec select et des case mais sa change rien vers 200 sa merde 
j'ai vu que c'&#233;tait un probl&#232;me de m&#233;moire qu'une proc&#233;dure ne pouvais pas exc&#233;d&#233; 64 ko

Renfield · Answer

peux tu nous donner un vrai morceau de ton code, stp...

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

batao · Answer

Je prog pas sur la meme machine que le net 
mais ya rien d'extra c pas un probl&#232;me de code tout marche jusqu'&#224; une certaine taille
comme indiqu&#233; ci-dessus
ya un for et dedans 1 if et 399 elseif
je sais c bourrin mais je voyais pas comment faire autrement

Private sub command1_click()

dim appxl......
dim appact.....

set ........

dim m as .......
m=1

for d =38 to 400 step 1

if appxl.cells(d,"a").value="valeur1" then
appxl.rows(d).select
appxl.selection.copy

appact.rows(m).select
appact.activesheet.paste
m=m+1

elseif appxl.cells(d,"a").value="valeur2" then
appxl.rows(d).select
appxl.selection.copy

appact.rows(m).select
appact.activesheet.paste
m=m+1

.....
......
400fois
endif
next d
end sub

batao · Answer

Merci beaucoup Renfield
&#231;a le fait grave j'en ait chi&#233; toute la journ&#233;e mais je vais pouvoir rentrer chez moi la t&#234;te l&#233;g&#232;re

j'avais essay&#233; des
if  machin = ("truc" && "muche")    etc etc ......

d&#233;formation du langage C
mais que dal

c bon sa va me r&#233;duire consid&#233;rablement le code ce sera plus digeste pour moi et pour l'ordi !!!!!!!

 Bonne fin de soir&#233;e
 Progg&#233; pas trop

Vb6 Procédure trop grande !!!

8 réponses

Discussions similaires