Adapter recherche emp

Bonsoir a tous

je voudrais adapter le code de la feuil4 a la feuil3 ca bloque au niveau de la toupie pour moi

tout en gardant le code de le feuil4

feuil3 recherche référence

feuil4 recherche emplacement

merci par avance

aiglon74

Bonjour,

Un essai

Bonne soirée.

Bonsoir

merci pour ta réponse

mais la modif tu peux expliquer rapide

aiglon74

Bonsoir,

La macro est un C/C de la macro présente sur ton autre feuille que tu as toi même réalisé.
Seule la recopie de l'emplacement E17 et Application.EnableEvents=False ont été ajouté à la macro Affichage afin de ne pas avoir une boucle événementielle infinie. De plus, les plages de recherches (colonne C à la place de B et D12 à la place de E17) ont été modifiées.

Cdlt,

Re

merci pour le tout je test ca a fond

et je reviens vers toi

aiglon74

Bonjour

je viens de teste la macro

le seule problème relevé

quand je crée une donnée et que je vais cliquer sur recherche référence

je mais en cellule D12 13.100 dernière création une fenêtre MICROSOFT apparait 13.100 non trouve

or que j'ai bien mes donnée affiché

Bonjour,

Selon le modèle initial de votre macro, l'ensemble des références doivent être présentes dans la colonne C de la feuille Listes.

Cdlt,

RE

Je viens effacer ma base remise a zero

mais dans la colonne c feuil liste j'ai rien

a initial je n'est rien a cette emplacement

aiglon74

Bonjour,

Comme expliqué dans un post précédent j'ai repris la macro que vous aviez rédigé et l'ai adaptée à votre nouvelle feuille.

A quoi sert la feuille "liste" ? A quoi sert ce passage présent aussi dans la macro de la feuille recherche emp ?

If Target.Address = "$D$12" Then 'Affiche si la valeur et dans la liste
    If Target = "" Then Exit Sub
    With Sheets("Liste")
     Set cel = .Columns("C").Find(what:=Target, LookIn:=xlValues, lookat:=xlWhole)
      If Not cel Is Nothing Then
        cel.Offset(0, 1).ClearNotes
       Else
        MsgBox Target & " non trouvé"
        Range("D12").ClearContents
      End If
    End With
  End If

Par avance merci.

Re

normalement on va chercher dans la feuil base pas dans liste

liste nous permet de créé base

If Target = "" Then Exit Sub

With Sheets("Liste") ces la feuil base

Set cel = .Columns("C").Find(what:=Target, LookIn:=xlValues, lookat:=xlWhole)

If Not cel Is Nothing Then

cel.Offset(0, 1).ClearNotes

Else

MsgBox Target & " non trouvé"

Range("D12").ClearContents

End If

End With

End If

je teste et reviens vers vous

Si c'est la feuille BASE ça me semble plus logique en effet.

Reste a adapter la colonne sur cette ligne :

cel = .Columns("C").Find(what:=Target, LookIn:=xlValues, lookat:=xlWhole

Je vous laisse revenir vers moi.

Re

j'ai remplacer With Sheets("Liste") par With Sheets("base")

ca fonctionne mais la toupie bloque

Bonjour,

C'est normal la référence est unique. Comprenez vous votre code ?

Cdlt,

re

pas tout je débute

on apprend

Bonsoir,

D'accord je comprend mieux, au vu des commentaires je pensais que vous aviez rédigé le code. De ce que je comprend, la toupie n'apparaît que lorsque plusieurs occurrence du critère (ici la référence) recherché existent.

Bonne soirée.

re

tout a fait l

aiglon74

Bonsoir

comment copier en feuil liste

la cellule d8 feuil nouvelle ref en colonne C de la feuil liste

comme la cellule b8 nouvelle ref en colonne A de la feuil liste

le fichier en post plus haut

merci par avance

Aiglon74