Copier sous condition

bonjour,

j'ai dans la feuil1 une case qui contient une liste de choix, et dans la feuil2 un tableau

je veux faire si dans la liste de choix est égale à la valeur de la première colonne du tableau alors je copie la date dans la case réservée dans la feuil1

merci d'avance

désolé voici le fichier

Bonjour,

Utilise ce code

Private Sub Worksheet_Change(ByVal Target As Range)
'Macro dan pour parabdou99 - 24/05/2012
Dim lg As Byte
If Not Intersect(Target, Range("E1")) Is Nothing Then
    On Error Resume Next
    lg = WorksheetFunction.Match(Target, Sheets("Feuil2").Range("B2:B11"), 0)
    If lg > 0 Then Sheets("Feuil2").Range("C" & lg + 1) = Range("B6")
End If
End Sub

Code à placer dans la feuille 1 du fichier que tu as posté ici

Pour le copie :

• Clique droite sur l'onglet Feuil1
• Choisis l'option "visualiser le code
• Dans la fenêtre, colle le code ci-avant

Si ok, merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER

Amicalement

dsl ça ne marche pas

Bonjour,

Voir la solution ci-joint (avec un formule Index;equiv).

merci beaucoup

avec plaisir