VBA/xl - Chercher et trouver

Bonjour,

Voici mon problème...

Je souhaite obtenir les coordonnées de cellules comprenant une chaine de caractères.

L'exemple ci-dessous devrait clarifier mon problème :

Premier fichier : Base immo
Colonne A
ligne 1 N°
ligne 2 9012
ligne 3 9009
ligne 4 9043

Colonne B
ligne 1 Désignation
ligne 2 série12369
ligne 3 mach2632
ligne 4 123z67




Deuxième fichier : Base inventaire

colonne A
N° Immo
0001
0013

colonne B
N° Série
123
632

Donc ce que je cherche à obtenir c'est les coordonnées des cellules du fichier Base immo contenant les numéros de série
Dans l'exemple ci-dessus j'aimerais obtenir
123 : B2 B4
632 : B3

J'espère que quelqu'un saura m'aider

Je te propose ça

Code:

---

1 2 3 4 5 6

Columns("A:A").Select Selection.Find(What:=DonnéeAchercher, After:=ActiveCell, _ LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False).Activate 'Si donnée trouvée (test) AdCel = ActiveCell.Address 'donne l'adresse absolue ($A$25) de la cellule

---

pour avoir l'adresse relative (A25), tu mets

Code:

---

AdCel = ActiveCell.Address (RowAbsolute:=False, columnAbsolute:=False)

---

A+

Je teste ça cet après midi et je reviens pour dire si ça fonctionne.
En tout cas merci pour la réponse

Edit: quelques adaptations plus tard... c'est exactement ce que je cherchais merci encore