Discussion :

[thulvar]

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

[ouskel'n'or]

Je te propose ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A+

[thulvar]

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