Recuperation de la cellule

[Mytå]

Salut Excelliens(iennes) du Forum

Doit recuperer la valeur de la cellule pas la valeur "vrai" que la macro m'envoit :

Besoin de la rangee et la colonne

Sub Macro1()
A$ = Cells.Find(What:="Date", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Range("A1").Value = A$
End Sub

Merci a l'avance

Mytå º¿º

 

[@+Thierry]

Bonjour Mytå º¿º

Regarde dans la démo que j'ai postée juste un ou deux fil avant celui là (Contact Manager)... Il y a un "Find" mise en place pour retrouver la (les) valeur(s) de(s) cellule(s) contenant la string recherchée (dans la foulée on récupére aussi son (leur) numéro(s) de ligne...

Bon Travail,

Bonne journée
@+Thierry