Optimiser le temps de traitement

Version imprimable

Bonjour à tous !

J'ai codé ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub CommandButton2_Click() Dim Cell As Range Application.ScreenUpdating = False For Each Cell In Range("CE12:CE397") If Cell.value <> "N" Then Cells(Cell.Row, 83).value = "N" End If Next End Sub
Le code marche parfaitement bien (il remplace les valeurs différentes de N par N). Le problème c'est le temps d'execution (un peu moins d'une minute), en effet il y a énormément de lignes à vérifier et modifier.

Je me demandais donc, si il y avait une astuce pour optimiser ce temps de traitement ? (à part changer de PC bien-sûr ^^).

Merci pour votre aide !

14/09/2017, 19h11
Invité

Bonjour,

Vous avez quelle version d'Excel ?

Si j'ai bien compris, vous traitez le 83e colonne, ce qui n'est pas grave, mais avez-vous des formules dans votre tableau.

J'ai rempli 500 lignes et 82 colonnes avec des chiffres, puis la 83e colonne avec un A. Pour remplacer tous les A, il faut compter 3 secondes, avec un code différent du vôtre (et une version qui n'est pas récente 2003), mais ce n'est sans doute pas la seule raison.
14/09/2017, 19h16
Noctis76

Citation:

Envoyé par jacques_jean

Bonjour,

Vous avez quelle version d'Excel ?

Si j'ai bien compris, vous traitez le 83e colonne, ce qui n'est pas grave, mais avez-vous des formules dans votre tableau.

J'ai rempli 500 lignes et 82 colonnes avec des chiffres, puis la 83e colonne avec un A. Pour remplacer tous les A, il faut compter 3 secondes, avec un code différent du vôtre (et une version qui n'est pas récente 2003), mais ce n'est sans doute pas la seule raison.

Oui je rempli uniquement la 83ème colonne, elle est composée soit de R, soit de N, pas de formule dans la colonne mais une formule dans chaque cellule, dans un tableau qui comporte 385 lignes et 159 colonnes. Je suis sur Excel 2010. Pouvez-vous me fournir le code que vous avez utilisé ?
14/09/2017, 19h25
unparia

Bonjour
Aucun code VBA n'est ici nécessaire.
Cette seule formule excel en (exemple) XX1 :

Code:

=SI(A1<>"N";"N";"")

puis étirée vers le bas jusqu'en XX40
mettra en colonne XX de chaque ligne, de la ligne 1 à la ligne 40, un "N" pour chaque valeur de la colonne A <> "N" !
14/09/2017, 19h37
Invité

Voici le code (simpliste) :

Citation:

Sub Changer()
Dim i&, pl&, dl&, x As String
pl = 1 '1re ligne
dl = 500 'dernière ligne

For i = pl To dl
x = Cells(i, 83)
If x <> "N" Then
Cells(i, 83) = "N"
End If
Next i

End Sub

Mais si vous avez de nombreuses formules vous pouvez mettre au début :

Citation:

With Application
.Calculation = xlManual
End With

et à la fin :

Citation:

With Application
.Calculation = xlAutomatic
End With
14/09/2017, 19h38
Noctis76

Citation:

Envoyé par unparia

Bonjour
Aucun code VBA n'est ici nécessaire.
Cette seule formule excel en (exemple) XX1 :

Code:

=SI(A1<>"N";"N";"")

puis étirée vers le bas jusqu'en XX40
mettra en colonne XX de chaque ligne, de la ligne 1 à la ligne 40, un "N" pour chaque valeur de la colonne A <> "N" !

Merci pour ta réponse unparia,

Je ne veux pas simplement remplacer le contenue des cellules de ma colonne. L'idée c'est que l'utilisateur en appuyant sur l'un des deux boutons passe du R au N et inversement à sa guise (car cela modifie les calculs effectués).

Donc j'ai besoin de VBA. à l'époque où j'ai tapé ce code, le traitement était plus rapide (mais le fichier n'était pas rempli comme aujourdhui).
14/09/2017, 19h40
Noctis76

Citation:

Envoyé par jacques_jean

Voici le code (simpliste) :

Mais si vous avez de nombreuses formules vous pouvez mettre au début :

et à la fin :

Donc le fait que les cellules contiennent des formule ralenti l'application de ce code ?

Je vais tenter de les désactiver, comme vous me l'avez conseillé.
14/09/2017, 19h41
Invité

Je ne sais pas si vous avez lu ma réponse (avant-dernière).

J'ai ajouté les lignes qui désactive le calul automatique, cela fonctionne parfaitement. Merci énormément Jacques !

Je laisse le code complet pour les éventuels intéréssé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub CommandButton1_Click()
 
Dim Cell As Range
 
    Application.ScreenUpdating = False
 
With Application
.Calculation = xlManual
End With
 
    For Each Cell In Range("CE12:CE397")
 
        If Cell.value <> "R" Then
 
            Cells(Cell.Row, 83).value = "R"
        End If
    Next
 
With Application
.Calculation = xlAutomatic
End With
 
End Sub

Bonne journée !

14/09/2017, 20h34
Sylvie BASTIEN

Bonsoir,

Dans ton premier message tu parles de temps d'exécution de ta macro : l'utilisation de variables tableau permet un gain de temps.
1) déclarer la variable : dim monTableau() as string (quelques fois excel demande le type variant)
2) charger la variable : worksheets("Feuil1").range("A2:C814").value
3) utiliser une boucle : for i = lbound(monTableau) to ubound(monTableau)
... insérer le code souhaité...
next i
4) décharger la variable : erase monTableau

SylvieB
15/09/2017, 10h14
Invité

Bonjour,
Eh bien, il ne vous reste plus qu'à exécuter un exemple avec un tableau de 500 lignes et 83 colonnes et par rapport à un temps d'exécution de 3 secondes vous précisez le nombre de secondes gagnées ? Et ne pas oublier que le gain principal vient de la modification du mode de calcul des formules étant donné que ce nombre est important et que c'est le calcul automatique qui augmente énormément le temps d'exécution.