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

[keygen08]

Bonjour

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
Sub egalite()
       Dim x As Integer, y As Integer
'       Dim row As Range
       Application.ScreenUpdating = False
       Application.Calculation = xlCalculationManual 'pour accelerer encore, on desactive le calcul automatique
 
 
'    For Each row In Selection ' quel selection?
's'il n'y a que 10 lignes, pourquoi chercher dans la 10000
 
         x = Range("A65000").End(xlUp).row '10000
             For y = 3 To 525 Step 3
'et pourquoi coller la formule dans une seule cellule, autant selectionner la colonne
             Range(Cells(2, y), Cells(x, y)) = "=RC[-2]=RC[-1]"
'                Cells(x, y) = "=RC[-2]=RC[-1]"
            Next y
 
'        Next row
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    MsgBox "terminée"
    End Sub

En gros et si c'est juste, 1 seconde avec le fichier fourni

[Menhir]

Code :

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

1
2
3
4
5
6
 
             For y = 3 To 525 Step 3
'et pourquoi coller la formule dans une seule cellule, autant selectionner la colonne
             Range(Cells(2, y), Cells(x, y)) = "=RC[-2]=RC[-1]"
'                Cells(x, y) = "=RC[-2]=RC[-1]"
            Next y

Peut encore être simplifié en

Code :

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

             Range(Cells(2, 3), Cells(x, y)) = "=RC[-2]=RC[-1]"

Par contre, je ne comprends pas du tout l'intérêt de la boucle For Each sur la sélection.
Déjà, il n'y a rien dans cette boucle qui fait référence à Row.
Ensuite, Row va désigner une variable et non les lignes de la sélection. Sans garantie, je pense que "Row" va sans doute devenir une variable de type Range et la boucle va tourner sur toutes les cellules de la sélections, sans pour autant utiliser leurs référence.
Donc, en gros, ça ralenti sans servir à rien.
A mon avis, il y a un gros couac là-dessus.

[keygen08]

Code :

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

Range(Cells(2, 3), Cells(x, y)) = "=RC[-2]=RC[-1]"

Pas du tout, et le step 3.
Par contre je suis d'accord sur le row, c'est pourquoi je l'ai commenté

[Menhir]

Pas du tout, et le step 3.

Oups

[Marc-L]

Désactiver le mode de calcul automatique pendant la procédure puis le réactiver à la fin (propriété Calculation) …

[Jean-Philippe André]

Salut,

les données des colonnes que tu compares sont-elles déjà présentes ou les ajoutes tu par la suite ?

Une première chose serait de supprimer une boucle sur les lignes en utilisant AutoFill, comme par exemple

Code :

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

1
2
Range("C2").FormulaR1C1 = "=RC[-2]=RC[-1]"
Range("C2").Autofill Destination:=Range("C2:C" & Range("C65536").end(xlup).row)

[sakhob]

Bonjour,
Merci à vous tous pour vos vos retours et vos remarques.
je vais le tester et vous tiendrai au courant.
merci encore une fois
cdt
sakhob

Salut,

les données des colonnes que tu compares sont-elles déjà présentes ou les ajoutes tu par la suite ?

Une première chose serait de supprimer une boucle sur les lignes en utilisant AutoFill, comme par exemple

Code :

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

1
2
Range("C2").FormulaR1C1 = "=RC[-2]=RC[-1]"
Range("C2").Autofill Destination:=Range("C2:C" & Range("C65536").end(xlup).row)

les données existent déjà.

[sakhob]

Merci à vous
je viens de tester avec le code de keygen08 ça marche .
Bonne journée à vous
cdt