Recherche avec VBA

Bonjour,

Lorsque j'inscris dans la colonne C l'avancement en pourcentage, je voudrais comparer la date de la colonne B au valeurs (dates) de la liste D1:K1. Si la date est trouvée dans cette liste le pourcentage inscrit s'affiche dans zone bleue c'est à dire au croisement de la ligne où le pourcentage est inscrit et la colonne où la date est trouvée.

Je voudrais un code en VBA mais je n'arrive pas.

Ci joint le fichier pour plus de visibilité.

Merci.

Bonsoir

Macro événementielle à placer dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range

  If Target.Count > 1 Then Exit Sub
  If Not Intersect(Range("C2:C7"), Target) Is Nothing Then
    Set Cel = Range("D1:K1").Find(what:=Range("B" & Target.Row), LookIn:=xlValues, lookat:=xlWhole)
    If Not Cel Is Nothing Then
      Cells(Target.Row, Cel.Column) = Target
    End If
  End If
End Sub

Merci,

ça marche mais je voudrais avoir la possibilité de tirer un pourcentage par le bas pour remplir des cellules.

Y a-t-il une possibilité de le faire de telle sorte à ce que j'ai le même résultat.

merci,

cdlt.

Bonjour

A tester

Remplaces la macro par celle-ci

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range, Kase As Range

  If Target.Count > 1 Then
    For Each Kase In Target
      Worksheet_Change Kase
    Next Kase
    Exit Sub
  End If
  If Not Intersect(Range("C2:C7"), Target) Is Nothing Then
    Set Cel = Range("D1:K1").Find(what:=Range("B" & Target.Row), LookIn:=xlValues, lookat:=xlWhole)
    If Not Cel Is Nothing Then
      Cells(Target.Row, Cel.Column) = Target
    End If
  End If
End Sub