Discussion :

[Haoru45]

Bonjour,

Je me suis inscrit pour poser une question un peu technique :
J'ai à parcourir plusieurs feuilles d'un classeur et sur chaque feuille rechercher et remplacer une chaîne de caractère (en l'occurence toutes les occurences d'un chemin d'acces).
J'ai à peu près 20 feuilles d'une centaine de lignes chacune et l'opération totale prend plusieurs minutes! C'est bien trop pour mes spécifications.

Actuellement, j'ai une boucle qui modifie ligne par ligne la cellule contenant la formule grâce à la fonction Replace.
J'aimerais savoir si sélectionner toutes mes cellules dans un Range (toujours par une boucle, vu que le nombre de lignes à modifier n'est pas constant...trop facile sinon) permettrait un gain de temps à l'execution.

NB : il me semble également que l'attribut

Code :

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

Application.ScreenUpdating = False

n'ait aucun effet .
Je l'ai utilisé très souvent par le passé, et c'est toujours un gros point fort dans l'optimisation du temps d'execution... Savez vous ce qui pourrait annuler son effet sans que je le sache?

[laetitia]

bonjour Haoru45 le forum l'ideal serait de voir ta macro pour pouvoir l' optimiser!!

[DeaD78]

Salut,

Code :

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

1
2
3
Range("A1:E" & Range("A65536").End(xlUp).Row).Replace What:="A", Replacement:="B", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

C'est comme ça que tu fais un Replace sur un Range. Et oublie ta boucle, c'est ce qui te fait perdre du temps à force d'aller de ligne en ligne. Comme ça, cela suffit, c'est dynamique. Toutes les valeurs dans la Range A1 à Ex où x est la dernière ligne non vide de la colonne A seront prises en compte. Trop facile as-tu dit ? Sûrement, mais ça existe et ça marche

Tu auras alors effectivement un GROS gain de temps : à vue de nez, tu vas passer de 5 minutes à 10 secondes

Sinon,

Code :

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

Application.ScreenUpdating = False

se place au tout début de ton code et tu dois mettre un

Code :

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

Application.ScreenUpdating = True

à la toute fin. Si ça ne marche pas comme ça, c'est que tu en as d'autres perdus au sein de ton code. Bref, vérifie bien que t'en aies un à False au début et un à True à la fin.

Allez, bonne chance et à plus tard !

EDIT : tu devras quand même garder une boucle pour passer tes différentes feuilles en revue !

[mapeh]

Bonjour,

La fonction Replace est bien la meilleure...

Cependant, en plus du ScreenDating, je supprimerai également le calcul...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
End With
 
'ton code
 
With Application
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
End With

Comme tu modifies le chemin d'accès, Excel recalcule la nouvelle valeur à chaque modification...

Un Seul calcul en fin de code serait suffisant....

Bonne journée

[laetitia]

re , bonjour DeaD78 mapeh le forum on ausssi rajoute DisplayAlerts
peut faire gagne un peu de temps

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub essai()
  With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
.DisplayAlerts = False
'ton code
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
.DisplayAlerts = True
 End With
 End Sub

par contre boucle obligatoire sur feuilles
sur chaque feuille on peu optimiser le code en passant par un (tablo) beaucoup plus rapide
exemple replace virgule par point a adapter

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
Sub test10()
Dim X As Variant, r As Long, c As Long
With Application
.ScreenUpdating = False
.DisplayAlerts = False
.Calculation = xlCalculationManual
X = Range("a1:f" & Range("a65536").End(xlUp).Row).Value
 For r = 1 To UBound(X, 1)
 For c = 1 To UBound(X, 2)
If IsNumeric(X(r, c)) And X(r, c) <> "" Then
X(r, c) = Replace(X(r, c), ",", ".")
 End If: Next c: Next r
 Range("a1:f" & Range("a65536").End(xlUp).Row).Value = X
.ScreenUpdating = True
.DisplayAlerts = True
.Calculation = xlCalculationAutomatic
End With
End Sub