Discussion :

[trach.sam]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[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 !
mais je vais te repondre
"quand je lance la macro le process prend 100% du CPU dc effectivement l'affichage est alteree"

[jmfmarques]

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

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 )

[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

[AlainTech]

Remplacer l'indexation avec i par un offset sur MaCellule.

[plegat]

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.

[plegat]

Salut,

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

Sélectionner tout - Visualiser dans une fenêtre à part

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!