Discussion :

[Samuel24]

Bonjour,

Actuellement j'ai créé une macro qui a pour but de comparer les valeurs des lignes successives d'une même colonne (la colonne 12), si les valeurs sont identiques alors je regarde une deuxième colonne de comparaison (la colonne 18) et je compare les valeurs successives entre elles. Si ces valeurs sont identique alors la colonne 19 affiche un "NON" sinon c'est un "OUI".

J'ai un gros problème de lenteur lors de l'exécution de ce code....

Voici le code pour plus de compréhension :

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
23
24
25
Sub Result_Cable_Presta()
    Application.ScreenUpdating = False
    Dim a&, b&
    Dim Carac1$, Carac2$
    Dim NbLigne&
    NbLigne = Sheets("ROCA19").Range("A200000").End(xlUp).Row
    For a = 2 To NbLigne
        Carac1 = Sheets("ROCA19").Cells(a, 12)
        Carac2 = Sheets("ROCA19").Cells(a, 18)
        For b = 3 To NbLigne
            If Sheets("ROCA19").Cells(a, 19) = "oui" Then
                GoTo suivant
            End If[ATTACH=CONFIG]486211[/ATTACH]
            If Carac1 Like Sheets("ROCA19").Cells(b, 12) Then
                If Carac2 Like Sheets("ROCA19").Cells(b, 18) Then
                    Sheets("ROCA19").Cells(a, 19) = "non"
                Else
                    Sheets("ROCA19").Cells(a, 19) = "oui"
                End If
            End If
        Next b
suivant:
    Next a
    Application.ScreenUpdating = True
End Sub

En pièce jointe le résultat attendu avec les bonnes colonnes pour plus de compréhension

Merci beaucoup pour votre aide.