Macro à formule

re,

Oui, mais si il remplice la ligne de droite et ensuite mettent un numéro de cellule et une date ece-que la mise à jour sera faite?

Oui. On peut faire la mise à jour sans tenir compte de la date aussi puisqu'elle ne sert pas dans la feuille RECAP. Dans ce cas, la mise à jour se fera pour n'importe quelle cellule changée sur la ligne.

Je pense que ceci est la meilleur solution.

A te relire

Bonsoir,

Oui, cette solution me semble la plus adapté à ma problématique. Je mettrais demain le fichier sur lequel il faidrait appliquer la macro.

Merci, et bonne soirée

-- 16 Déc 2010, 07:24 --

Bonjour,

Même compressé, le fichier est trop lourd, serait-il possible de coller la macro dans un post, je la copirais et l'appliquerais dans l'onglet correspondant.

Merci

Bonne journée

Bonjour,

Vois le code à mettre dans la feuille SAISIE

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'macro Dan pour Jacquier le 11/12/2010
Dim lg As Integer
On Error GoTo Fin
With Sheets("RECAPITULATIF")
If Not Intersect(Target, Range("C12:H" & _
    Range("C" & Rows.Count).End(xlUp).Row)) Is Nothing Then
lg = WorksheetFunction.Match(Range("C" & Target.Row), _
    .Range("A10:A" & .Range("A" & Rows.Count).End(xlUp).Row), 0) + 9
Range("D" & Target.Row & ":H" & Target.Row).Copy .Range("B" & lg)
End If
If Not Intersect(Target, Range("L12:R" & _
    Range("L" & Rows.Count).End(xlUp).Row)) Is Nothing Then
lg = WorksheetFunction.Match(Range("L" & Target.Row), _
    .Range("G10:G" & .Range("G" & Rows.Count).End(xlUp).Row), 0) + 9
Range("M" & Target.Row & ":R" & Target.Row).Copy .Range("H" & lg)
End If
End With
Exit Sub
Fin:  MsgBox "La référence " & Target & " n'existe pas en feuille RECAPITUALTIF"
End Sub

Fais quelques tests et dis moi

Si ok, n'oublie pas de cliquer sur le V vert...

Amicalement

Re,

Merci beaucoup, la macro fonctionne et solution convient. Je valide le post.

Encore merci,

Bonne journée