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
Partager