comparaison colonnes VBA

Bonjour Tout le monde,

Voila mon problème, j'aimerais comparer 2 colonnes excel de type string en VBA pour me faciliter la tâche au travail.

J'ai réalisé le code suivant :

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub tri() Dim compar As Boolean For i = 1 To 300 j = 1 Do While Range("A" & i).Value <> Range("E" & j).Value And i <= 300 test = False j = j + 1 If Range("A" & i).Value = Range("E" & j).Value Then compar = True Range("H" & i).Value = "ok" Else Range("H" & i).Value = "Introuvable" End If Loop Next End Sub

Si le champ de ma colonne "A" d'indice I est introuvable, le code s'arrête et ne passe pas à l'indice supérieur. Comment faire? Quelqu'un peut-il m'aider ?

En vous remerciant par avance,

Bonsoir,

Essaie :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub tri()
For i = 1 To cells(Rows.Count, 1).End(xlUp).Row
 
            j = 1
 
            For j = 1 To cells(Rows.Count, 5).End(xlUp).Row
 
                    If Range("A" & i).Value = Range("E" & j).Value Then
                        Range("H" & i).Value = "ok"
                        Exit For
                    Else
                        Range("H" & i).Value = "Introuvable"
                    End If
 
            Next
 
    Next
 
 
End Sub

Bonsoir,

J'ai remplacé mon indice de ma boucle DO "i<=300" par "j<=300", ce qui paraît plus logique ^^
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub tri() Dim test As Boolean For i = 1 To 300 j = 1 Do While Range("A" & i).Value <> Range("E" & j).Value And j <= 300 test = False j = j + 1 If Range("A" & i).Value = Range("E" & j).Value Then test = True Range("H" & i).Value = "ok" Else Range("H" & i).Value = "Introuvable" End If Loop Next End Sub
Ca fonctionne mais peut être qu'il y aurait mieux à faire. Je vais essayer ta proposition.

Merci pour ta réponse,