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 :
En pièce jointe le résultat attendu avec les bonnes colonnes 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
Merci beaucoup pour votre aide.
Partager