Discussion :

[roxydc]

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

[issoram]

Bonjour,

Quel est le message d'erreur?

[QuestVba]

Bonjour,

Quel est le but ? Tu veux comparer mais après ?

[roxydc]

Le message d'erreur affiché est "Erreur d'exécution 1004, Erreur définie par l'application ou par l'objet".

En fait je souhaite comparer les lignes afin d'identifier les doublons et récupérer les valeurs qui lui sont associées dans les autres cases des lignes des doublons.

Merci pour votre aide

[AlainTech]

Bonjour,

Avant toute chose, il faut éviter de travailler avec des ActiveCell.

D'ailleurs, quelle cellule est active quand tu démarres ta macro?

Quelle colonne parcours-tu?