Utiliser une cellule comme un bouton

Bonjour,

Je suis en train de travailler sur un fichier qui recense des recettes de cuisine, on peut indiquer quels ingrédients sont en notre possession et ça affiche une liste des recettes correspondantes. Je voudrais qu'en cliquant sur n'importe quelle cellule de la liste affichée, ça copie colle son contenu pour aller le mettre dans une autre cellule (F3) qui sera utilisée pour une RechercheX() et afficher la recette en question.

La liste est dans la colonne D:D, pour l'instant en D3:D32 mais j'suis pas sûr que ça soit important. J'ai essayé d'utiliser le code suivant en c/c depuis le tuto sur les évènements VBA. Je teste si la cellule sélectionnée se trouve bien en colonne D, si elle est bien entre les lignes 3 et 32, si elle est bien remplie, et puis je la copie colle en F3.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

If ActiveCell.Column = 4 And ActiveCell.Row < 33 And ActiveCell.Row > 2 And Not IsEmpty(ActiveCell) Then

    Selection.Copy
    Range("F3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Else

End If

End Sub

Eeet... Ça marche pas ^^
Une idée de pourquoi?

Bonjour gaeldr

Quand vous affichez le code de la feuille, vous avez 2 liste déroulante qui vous permettent de sélectionner l'objet et l'évènement que vous souhaitez

Avez-vous bien mis le code dans ThisWorkbook ?

A+

Ah ! C'était donc ça ! Merci