besoin d'aide recherche cellule Fermé

Question

Bonjour,
Voici mon problème, je scane un code barre qui va me chercher dans une base de donnée une référence. Jusqu'ici pas de problème la formule de rechercheV fait trés bien son boulot. Mais ensuite j'ai fait une macro pour aller rechercher la ligne correspondant à cette valeur dans la base de donnée. Le probleme c'est que ma macro va rechercher la valeur que je colle, de la cellule résultat, dans la fonction rechercher du menu edition, donc je tombe toujours sur la même valeur que la macro à gardé en mémoire. Comment faire cette macro pour que la recherche se face à partir de la valeur de le cellule imposée et non du copier coller.
Je vous remmercie de votre aide
voilà 2 jours que je bute là dessus.
MERCI

Utilisateur anonyme · Answer

Bonjour,
pas tout compris,

Met le code de ta macro ?

bhpservices · Answer

Bonjour et merci pour le message,
voici la macro
je voudrai remplacer la valeur "$1  7966"qui la valeur de résultat de la recherche,  par la valeur absolue de la cellule qui me donne la réponse (dans mon cas $C$2). est ce possible ??
bon courage

Sub Recherche()
'
' Recherche Macro
' Macro enregistrée le 14/04/2009 par BHP services
'

'
    Application.Goto Reference:="Database"
    Range("C2:C3").Select
    ActiveCell.FormulaR1C1 = "$1  7966"
    Cells.Find(What:="$1  7966", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=True, SearchFormat:=False).Activate
End Sub

Utilisateur anonyme · Answer

Je ne dois pas être en forme, je n'ai pas compris où se trouvait "$1 7966".
ActiveCell.FormulaR1C1 = "$1 7966"  est sensé faire quoi?
 
je voudrai remplacer la valeur "$1 7966" par la valeur absolue de la cellule (dans mon cas $c$2) 
si "$1 7966" est en cellule A1

range("A1").value=abs(range("C2").value)

Utilisateur anonyme · Answer

J'ai peut-être compris?

Worksheets("Feuil7").Range("A1:A19").Replace _
    What:="$1 7966", Replacement:=Abs(Range("C2").Value), _
    SearchOrder:=xlByColumns, MatchCase:=True

où il faut remplacer le nom de la feuille et la plage de recherche

bhpservices · Answer

je reconnais que ce n'est pas facile d'expliquer le problème avec des mots,

"$1 7966" est le résultat de ma recherche c'est une ref client celà pourait trés bien être "dupond" ou "durand".
en fet c'est le contenu de cette celulle de resultat, que je veux recherché dans la base de donné par l'intermediaire de ma macro.(qui n'accepte pas le copier:coller)
ceci afin de pouvoir retrouver la ligne dans ma base de donnée et la suprimer après controle.

désolé d'être un peu confu, mais......c'est pas facile à expliquer

re re merci

Besoin d'aide recherche cellule

5 réponses

Discussions similaires