Bonjour à toutes et à tous.

Débutant, j'ai réussi à bricoler un code permettant d'effectuer une rechercheV dans deux feuilles d'un même classeur, et sur deux colonnes, cependant je quasi plante mon PC pendant 5 mn
Est-ce que quelqu'un aurait une idée pour optimiser ce code (j'e dois conserver ma mise en forme initiale. Ainsi chercher dans deux colonnes deux valeurs, correspondant aux deux valeurs de la feuille 2. Puis au final marquer d'une croix le résultat correspondant dans une autre colonne, et ce sur environ 30000lignes).

Voici le 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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub FormatTab()
ActiveSheet.Select
 
Dim i As Double
Dim j As Integer
Dim h As Integer
Dim Derlig As Long
Dim Derligx As Long
Dim k As Variant
Dim VALEURA As Variant, VALEURB As Variant
 
Derlig = ActiveSheet.Range("A42008").End(xlUp).Row
 
Derligx = Sheets(5).Range("A30008").End(xlUp).Row
 
For i = 2 To Derlig
 
VALEURA = ActiveSheet.Cells(i, "A")
VALEURB = ActiveSheet.Cells(i, "B")
k = 0
 
For j = 2 To Derligx
 
If Sheets(5).Cells(j, "A") = VALEURA And Sheets(5).Cells(j, "B") = VALEURB Then
k = k + 1
End If
 
Next j
 
If k >= 1 Then
Cells(i, 35) = "x"
End If
 
Next i
 
End Sub