[VBA-E] [optimisation] formule etendu

Version imprimable

je realise le code suivant sur plus de 65000 lignes
c tres tres long !
quelau'un aurait une idee ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  For Each MaCellule In ActiveSheet.Range(LoginCol & ":" & LoginCol)
        If IsEmpty(MaCellule) Then
            Exit For
        Else
            Cells(i, FNameColWin).FormulaLocal = "=VLOOKUP(" & LoginCol & i & ",Win!B:B,2,FALSE)"
            Cells(i, LNameColWin).FormulaLocal = "=VLOOKUP(" & LoginCol & i & ",Win!C:C,3,FALSE)"
            Cells(i, FNameColUnix).FormulaLocal = "=VLOOKUP(" & LoginCol & i & ",Win!B:B,2,FALSE)"
            Cells(i, LNameColUnix).FormulaLocal = "=VLOOKUP(" & LoginCol & i & ",Win!C:C,3,FALSE)"
        End If
    i = i + 1
 
    Next MaCellule

merci ;)

11/08/2006, 20h00
jmfmarques

"toto:toto" exprime peut-être le range "toto" tout court ?

Et l'affichage n'est pas inhibé pendant ces opérations pour gagner du temps ?
11/08/2006, 20h19
trach.sam

je suis pas sur dqvoir compris mqis j'ai envie de te rpeondre "mais la formule change en fonction du i"

je pense que je n'ai pas compris l'inibition n'ont plus ! :roll:
mais je vais te repondre
"quand je lance la macro le process prend 100% du CPU dc effectivement l'affichage est alteree"
11/08/2006, 20h50
jmfmarques

tu n'as vraiment pas compris ?
alors lis-toi :

Citation:

ActiveSheet.Range(LoginCol & ":" & LoginCol)

pour le reste (inhibition de l'affichage pendant le déroulement des opérations puis restitution de l'affichage in fine, regarde dans l'aide en ligne :

Application.ScreenUpdating = False
Application.ScreenUpdating = True

Ce genre de sujet est récurrent (c'est le énième sur ce forum... au point que même moi, qui ne possède pas VBA, commence à le connaître par coeur :cry: )

Salut,

Citation:

Envoyé par jmfmarques

"toto:toto" exprime peut-être le range "toto" tout court ?

Dans son cas, d'après ce que je comprends, LoginCol serait plutôt un indice de colonne (enfin, la lettre qui correspond). Donc le Range(toto & ":" & toto) sert à sélectionner la colonne complète. Perso, l'instruction Columns est plus explicite, mais bon...

Je ne pige pas trop ce que fait le compteur en i dans la boucle, c'est lourd comme technique, il doit y avoir plus finot...

Sinon, pour accélérer, en plus de la technique du screenupdating donné par jmfmarques, essaye de voir en désactivant le recalcul de la page pendant la mise à jour des formules (parce que là, il doit remettre à jour à chaque fois que tu colles une formule... donc ça prend du temps...).
Pour cela, utilise quelque chose suivant cette trame:
Code:

1 2 3 4 5 6 7 flag=application.calculation 'pour mémoriser l'état du mode de calcul application.calculation=xlCalculationManual .... ton code qui prend du temps ici ... application.calculation=flag
Comme ça, la mise à jour des calcul se fera à la fin, une fois que toutes les formules seront en place.

Bon, c'est de tête, alors tu corriges les erreurs si il y en a...

Et pour améliorer encore plus la vitesse si besoin est, tout plein d'astuces sur cette page: http://www.ozgrid.com/VBA/SpeedingUpVBACode.htm

On a déjà donné les deux premières!

11/08/2006, 21h17
trach.sam

ok pour l'affichage!

pour le premier point je parcours effectivement toutes les cellules de la colonne juqu'a arriver a une cellule vide
12/08/2006, 10h03
AlainTech

Remplacer l'indexation avec i par un offset sur MaCellule.
12/08/2006, 14h35
plegat

Citation:

Envoyé par trach.sam

pour le premier point je parcours effectivement toutes les cellules de la colonne juqu'a arriver a une cellule vide

Dans ce cas, ça sera plus rapide de sélectionner la plage de cellules remplies. Comme ça tu vires le test (et l'incrémentation du compteur, qui en plus est déjà devenue intuile avec la remarque d'AlainTech), tu gagnes du temps.