Bonjour,

Je souhaite comparer toutes les lignes d'un tableau entre elles avec cette macro mais il y a un beug a la ligne en rouge... Une idée ?

Merci

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
37
38
Dim i As Long
i = 1
Dim contenu1 As String
Dim contenu2 As String
Dim n As Long
n = Rows.Count

Do
Do
    If ActiveCell.Value = ActiveCell.Offset(i, 0).Value Then
    contenu1 = ActiveCell.Value
    contenu2 = ActiveCell.Offset(i, 0).Value
        If contenu1 = "Manque de données" Then
        ActiveCell.Offset(0, 9).Value = 100000000
        If contenu1 = "Illegal" Then
        ActiveCell.Offset(0, 9).Value = 1000000
        If contenu1 = "Legal" Then
        ActiveCell.Offset(0, 9).Value = 10000
        If contenu1 = "Durable/en cours de certification" Then
        ActiveCell.Offset(0, 9).Value = 100
        If contenu1 = "Certifié/recyclé" Then
        ActiveCell.Offset(0, 9).Value = 1
        End If
        End If
        End If
        End If
        End If
        
    Else: i = i + 1
    
    End If
    
Loop Until i = n - 1
ActiveCell.Offset(1, 0).Activate
Loop Until ActiveCell.Value = ""


End Sub