erreur générée par .FIND

[zorg]

Bonjour le forum,

J'ai un gros souci avec un .find.
Sur la feuille1 en colonne B j'ai un ensemble de valeurs dont je dois contrôler l'existence dans une liste de référence située sur la feuille 2 colonne C.
colonne B colonne C
ex : feuille 1 112 feuille 2 1121
12312 112
1121 12312
59 54564561
54564561 59

Merci d'avance pour votre aide

zorg

 

[Hervé]

Bonjour

Cette macro colore en jaune les cellules dont les nombres sont présents
dans les deux listes.

Public Sub vv()
Dim l As Integer, l1 As Integer, i As Integer
Dim cel As Range
l = Sheets("feuil1").Range("b5000").End(xlUp).Row
l1 = Sheets("feuil2").Range("c5000").End(xlUp).Row
For Each cel In Sheets("feuil1").Range("b1:b" & l)
For i = 1 To l1

If cel.Value = Sheets("feuil2").Range("c" & i).Value Then
cel.Interior.ColorIndex = 6
Sheets("feuil2").Range("c" & i).Interior.ColorIndex = 6
End If
Next i
Next cel
End Sub

salut
Hervé

Salut
Hervé

 

[zorg]

Bonjour Hervé, merci de te proposer pour m'aider
je viens d'étudier ta solution mais le problème c'est que ma 1ère valeur (celle que je vais rechercher) est une concaténation et pas une plage de données comme tu as mis. Je n'arrive pas à adapter ton code sur mon cas
j'ai mis en PJ un exemple pour illustrer
en feuill1 tu as les données sources; je dois inverser la date et concaténer avec le modèle (ex 200410406) et recherche son existence dans la seconde feuill colonne C ; si ok alors on me rapatrie les 3 valeurs en face (colonnes D, E, F)

Zorg

 

[Hervé]

bonjour

En pièce jointe, to n fichier modifié.

Attention j'utilise la colonne C de la feuille 1 pour faire une concatenation,
et ensuite je la supprime donc bien la laisser libre.

Salut
Hervé