Bonjour à tous !
J'ai codé ceci :
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.
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 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
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 !
Partager