Valeur a coller en fonction de coordonnée

[gorghrom]

Bonjour à tous,

J'aurais besoin de créer une macro :
à partir de données dans une feuille 1 caractérisées par des coordonnées "mois" et "type", les copier dans une feuille 2 contenant un tableau.

Si possible j'aimerais également pouvoir avoir une option cochable, qui, en cas de sélection additionne ces données aux valeurs déja contenues dans la même case du tableau de la feuille 2.

Si je ne suis pas clair, voici le fichier excel explicatif.

Merci par avance pour votre aide

 

[Dranreb]

Re : Valeur a coller en fonction de coordonnée

Bonjour.
L'ébauche qui fait l'essentiel demandé:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim L As Long, C As Long
If Target.Address = "$C$10" Then
   L = WorksheetFunction.Match(Me.[C8].Value, Feuil2.[B6:B10], 0)
   C = WorksheetFunction.Match(Me.[C6].Value, Feuil2.[C5:N5], 0)
   With Feuil2.[C6:N10].Cells(L, C)
      If Me.[C12].Value Then .Value = .Value + Target.Value Else .Value = Target.Value
      End With
   End If
End Sub

À mettre dans le module Feuil1.
À+