Recherche formule si cellule correspond à liste alors autre cellule egal Y

bonjour à tous,

en desespoir de cause après un "nervous break down" du à une recherche de formule intensive, je me tourne vers vous pour savoir quelle est la formule à utiliser dans mon cas:

je vous explique donc mon cas:

si F2 (feuille n°1)= un mot dans la liste (C2:C27) créée dans la feuille 2 alors G2(feuille n°1)= C1(feuille n°2)

pouvez vous m'aider?

si oui je me prosternerai sur la tête devant tant de clairvoyance!!

merci à tous

je vous joint le fichier au cas ou mes explications ne soient pas au top...

Bonjour

A tester en G2 et recopier vers le bas

=SIERREUR(SI(EQUIV(F2;Feuil2!C:C;0)>0;Feuil2!$C$1;"");"")

Merci beaucoup,

trop sympa! j'ai essayé d'analyser ta formule pour qu'il me fasse également le tri si c'est un mot de la colonne D alors F2=D1 et si c'est un mot de la colonne E alors F2=E1, mais malheureusement je n'y arrive pas,

je vais me replonger dedans demain voir si j'y arrive un peu mieux mais dans tout les cas un grand merci pour le coup de main

Bonjour Olki, M12, le forum,

Un essai par VBA en attendant une solution via formule

pour qu'il me fasse également le tri si c'est un mot de la colonne D alors F2=D1 et si c'est un mot de la colonne E alors F2=E1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Set f = Sheets("Feuil1")
    Set f2 = Sheets("Feuil2")

        For i = 2 To Range("F" & Rows.Count).End(xlUp).Row  'de la ligne 2 à la dernière ligne non vide

    Application.ScreenUpdating = False 'pour éviter le scintillement de l'écran

        f.Range("G" & i).ClearContents  ' efface la colonne G avant d'écrire

    Set cell = f2.Range("C:C").Find(f.Range("F" & i), lookat:=xlWhole)  'antalgique palier1
    If Not cell Is Nothing And f.Range("F" & i) <> "" Then
    f.Range("G" & i) = f2.Range("C1")

        Else

    Set cell = f2.Range("D:D").Find(f.Range("F" & i), lookat:=xlWhole)    'antalgique palier2
    If Not cell Is Nothing And f.Range("F" & i) <> "" Then
    f.Range("G" & i) = f2.Range("D1")

        Else

    Set cell = f2.Range("E:E").Find(f.Range("F" & i), lookat:=xlWhole)  'antalgique palier3
    If Not cell Is Nothing And f.Range("F" & i) <> "" Then
    f.Range("G" & i) = f2.Range("E1")

    End If
    End If
    End If

        Next i

   Application.ScreenUpdating = True
End Sub

Le code aurait sans doute besoin d’être amélioré par un pro mais il fonctionne (du moins chez moi).

Cordialement,

ouaw...

j'aimerais tellement avoir ton niveau excel...

je suis ébahi...

merci beaucoup, c'est trop cool!