Discussion :

[yoann7]

bonjour à tous,
J'ai une macro qui met a jour un fichier et je dois garder des informations que les utilisateurs ajoutent. Mon problème est que la boucle qui réinsert les infos est extrêmement longue...
Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Do While Range("A" & lngligne).Value <> ""          'compter nbre de ligne d'OA pour dimensionner le tableau
    lngligne = lngligne + 1
Loop
ReDim tabSave(11, lngligne)                          'redim du tableau
lngligne2 = lngligne
For i = 4 To lngligne
              'boucle pour remplir le tableau avec les commentaires et l'identificateur
    tabSave(1, i) = Range("X" & i).Value
    tabSave(2, i) = Range("Y" & i).Value
    tabSave(3, i) = Range("Z" & i).Value
    tabSave(4, i) = Range("AA" & i).Value
    tabSave(5, i) = Range("AB" & i).Value
    tabSave(6, i) = Range("AC" & i).Value
    tabSave(7, i) = Range("AD" & i).Value
    tabSave(8, i) = Range("AE" & i).Value
    tabSave(9, i) = Range("AF" & i).Value
    tabSave(10, i) = Range("AG" & i).Value
    tabSave(11, i) = Range("AH" & i).Value
Next i
 
'reste du code
'
'
'
 
'boucle pour réinserer les données
For i = 4 To lngligne
   For j = 1 To lngligne2
     If Range("AH" & i).Value = tabSave(11, j) Then  'Boucle en comparant l'identificateur de la ligne
                                                     'et remet les indicateurs si c'est la même ligne
        Range("X" & i).Value = tabSave(1, j)
        Range("Y" & i).Value = tabSave(2, j)
        Range("Z" & i).Value = tabSave(3, j)
        Range("AA" & i).Value = tabSave(4, j)
        Range("AB" & i).Value = tabSave(5, j)
        Range("AC" & i).Value = tabSave(6, j)
        Range("AD" & i).Value = tabSave(7, j)
        Range("AE" & i).Value = tabSave(8, j)
        Range("AF" & i).Value = tabSave(9, j)
        Range("AG" & i).Value = tabSave(10, j)
    End If
  Next j
Next i

Voila la partie concerné du code, avant cette fonctionnalité la macro mettais 5 min à s'exécuter et maintenant 47 min...
Y'a t'il un moyen plus rapide ?

[wilfried_42]

Bonjour

tu peux rempacler :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Do While Range("A" & lngligne).Value <> ""          'compter nbre de ligne d'OA pour dimensionner le tableau
    lngligne = lngligne + 1
Loop
ReDim tabSave(11, lngligne)                          'redim du tableau
lngligne2 = lngligne
For i = 4 To lngligne
              'boucle pour remplir le tableau avec les commentaires et l'identificateur
    tabSave(1, i) = Range("X" & i).Value
    tabSave(2, i) = Range("Y" & i).Value
    tabSave(3, i) = Range("Z" & i).Value
    tabSave(4, i) = Range("AA" & i).Value
    tabSave(5, i) = Range("AB" & i).Value
    tabSave(6, i) = Range("AC" & i).Value
    tabSave(7, i) = Range("AD" & i).Value
    tabSave(8, i) = Range("AE" & i).Value
    tabSave(9, i) = Range("AF" & i).Value
    tabSave(10, i) = Range("AG" & i).Value
    tabSave(11, i) = Range("AH" & i).Value
Next i

par :

Code :

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

1
2
dim tabsave as variant
tabsave = range("X4:AH" & range("A65536").end(xlup).row)

[yoann7]

ok, donc cela copiera les valeurs dans tabsave c'est bien ça ?
Merci pour ta réponse !
Par contre quelqu'un aurait il quelque chose pour la deuxième partie du code, car c'est celle la qui longue...
Merci a toi Wilfried

[wilfried_42]

re:

le problemme est que dans la deuxieme partie de la macro, tu fais un test avec la 11eme colonne AH ce qui laisse à penser que tu as soit ajouté des lignes, soit supprimé des lignes

donc il nous manque des renseignements

sinon, pour reintegrer toutes les données dans le meme ordre, il suffit d'inverser l'ordre

Code :

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

range("X4:AH" & range("A65536").end(xlup).row) = tabsave

sinon à essayé, non testé

Code :

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

1
2
3
4
5
6
7
8
9
10
dim tabsave as varaint, gwcel as range, i as long, j as integer
tabsave = range("X4:AH" & range("A65536").end(xlup).row)
 
ton code macro
 
for i = 1 to ubound(tabsave)
     set gwcel = nothing
     set gwcel = Range("AH:AH").find (what:=tabsave(i,11), lookin:=xlvalues, lookat:=xlwhole)
     if not gwcel is nothing then for j = 1 to 11 : gwcel.offset(0,j-1) = tabsave(i,j) : next j
next i

fait bien une sauvegarde de ton classeur avant

[yoann7]

Ok je fais un test, en fait dans la colonne AH il y a une concaténation qui me permet d'identifier la ligne pour pouvoir réintégrer les commentaires dans la ligne qui correspond. Lors de la mise a jour toute les données sont effacées et des lignes qui apparaissent ou disparaissent.
Je vais tester ton code, merci de prêter attention à mon problème

[Bevan]

Salut,
Dans la deuxième partie tu écris dans Excel donc il y a plein de choses qui se passent en douce...
Tu as essayé :

Code :

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

1
2
3
4
5
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
' ton code ici
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

Au passage, remplace tes colonnes câblées en dur par un indice et tes range par des cells :

Code :

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

1
2
3
for k = 1 to maxk
    tabSave(k, i) = cells( i, 22+k).Value
next k

au lieu de dix lignes...

[yoann7]

Code :

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

1
2
3
Application.Calculation = xlCalculationManual
' ton code ici
Application.Calculation = xlCalculationAutomatic

Je vais essayer.

Sinon pour le reste tu peux m'expliquer un peu plus ?