Discussion :

[sakhob]

Bonjour,
J'ai un code qui permet de comparer des colonnes 2 à 2 .
En revanche quand j'augmente la valeur de x(cf code) l'execution prend enormement de temps.
Est ce que quelqu'un pourrait me dire ce qui ne va pas?.
Est ce qu'il y'a des choses dans le code qui sont unitiles?
ou faut il ajouter des options?
Merci de vos réponses
bien cordialement
voici mon 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
Sub egalite()
       Dim x As Integer, y As Long
       Dim row As Range
       Application.ScreenUpdating = False
   ' Worksheets("Feuil1").Activate
 
    For Each row In Selection
 
        For x = 2 To 500   'mais quand je remplace 500 par 10000 j'aten 2 h voir plus 
For y = 3 To 525 Step 3
 
                Cells(x, y) = "=RC[-2]=RC[-1]"
            Next y
        Next x
        Next row
    Application.ScreenUpdating = True
    MsgBox "terminée"
End Sub

je vois joint le fichier en question