Discussion :

[charrynsasi]

Bonjours

Quelqu'un peut il m'aider?

Il s'agit de comparer chaque élément de la colonne 1 dans tous les éléments de la colonne 2.
Si chaque élément de la colonne 1 est égal a un des éléments de la colonne 2 alors mettre ok dans la colonne Résultat sinon ko.

Le fichier Excel que j'ai joint vous en dira plus.

Merci pour vos réponses.

[Oliv-]

un peu mon neveu !
tu trouveras ton bonheur ici , c'est une réponse collègiale !

[Theze]

Bonjour,

Si chaque élément de la colonne 1 est égal a un des éléments de la colonne 2 alors mettre ok dans la colonne Résultat sinon ko.

A la vue de l'exemple, ce n'est pas plutôt le contraire ?
Enfin, regarde et adapte :

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
 
Sub Test()
 
    Dim PlageCol_1 As Range
    Dim PlageCol_2 As Range
    Dim CelCol_1 As Range
    Dim CelCol_2 As Range
 
    With Worksheets("Sheet1")
 
        'à partir de A2 et B2
        Set PlageCol_1 = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
        Set PlageCol_2 = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp))
 
    End With
 
    For Each CelCol_2 In PlageCol_2
 
        Set CelCol_1 = PlageCol_1.Find(CelCol_2, , xlValues, xlWhole)
 
        'inverser OK et KO pour avoir le résultat conforme à l'exemple
        If Not CelCol_1 Is Nothing Then
 
            CelCol_2.Offset(, 1) = "OK" 'si trouvé
 
        Else
 
            CelCol_2.Offset(, 1) = "KO"
 
        End If
 
    Next CelCol_2
 
End Sub

Hervé.

[charrynsasi]

Grand Merci These tout marche a merveille.

[Oliv-]

[patricktoulon]

heu..sniff
mais non oliv+ je suis la moi
que dis tu collégiale !!!