Recherche dans deux colonnes

Bonjour à tous,

J'ai deux colonnes A et B avec des numéros de commandes à l'intérieur.

Je ne peux pas toucher à l'ordre de ces commandes donc pas de tri possible.

J'aimerais que pour chaque ligne de la colonne A, mon programme regarde si une des cellules de la colonne B est égale à cette cellule.

J'ai 70 lignes dans la colonne A et 400 dans la colonne B.

J'aimerais afficher "OK" dans la colonne C si il y a égalité.

Je ne sais pas comment faire cela avec les for each cell in range.

En vous remerciant,

Simon

Bonjour,

VBA n'est pas nécessaire. Excel permet d'obtenir ce résultat avec une formule du type :

=SI(NB.SI($B$1:$B$400;$A1)>0;"OK";"")

Formule à copier sur C1:C70

Cordialement.

bonjour,

une proposition...

floreli

Bonjour Gyrus et Floreli,

Merci pour cette méthode mais c'est une opération que je ferai quotidiennement et la suite de mon programme ne prévoit pas simplement de "OK" un petit peu plus. C'est pourquoi j'aimerais un programme pour faire cela.

Voici un essai de mon côté non concluant :

Sub test()

Dim rng As Range
rng = Range("B1:B300")

For Each cell In rng
    For i = 1 To 100
        If Cells(i, 1) = rng Then
            Cells(i, 3) = "OK"
        End If
    Next i
Next

End Sub

Bonjour,

J'ai trouvé. En fait je n'arrivais pas à le décrire comme je le voulais.

Je vous mets le code :

Sub Macro1()
'
' Macro1 Macro
'

For i = 1 To 30
    For j = 1 To 30
        If Cells(i, 1) = Cells(j, 2) Then
            Cells(i, 4).Value = "1"
            Cells(i, 5).Value = "OK"
        End If
    Next j
Next i

'
End Sub