Copie d'une valeur dans une cellule si la valeur change

Bonsoir à tous,

J'aimerais qu'on aide à concevoir une macro qui permettrait de copier automatiquement une valeur d'une cellule, si cette valeur change, dans une autre cellule.

Je joins le fichier "Exemple pratique.xlsm" afin d'illustrer mon propos.

Par exemple, si j'entre un nombre quelconque dans les cellules "Y12:Y16" - "Y19:Y23" - "Y26":Y30", la valeur dans la cellule AE44 changera et automatiquement la nouvelle valeur devra être copiée dans la cellule "U44" (valeur uniquement, pas de formule) dont la valeur par défaut est 5,00.

Merci à l'avance pour votre aide.

Salutations,

RD

Salut Renaud,

voici une façon de faire! A tester!

Private Sub Worksheet_Change(ByVal Target As Range)
'
If Target.Column = 25 Then
    iRow = Target.Row
    If (iRow Mod 7 = 5 Or iRow Mod 7 = 6) Or (iRow Mod 7 < 3) Then
        iFlag = IIf(iRow Mod 7 < 3, 5 + (Int(iRow / 7) - 1) * 7, 5 + Int(iRow / 7) * 7)
        If (iRow >= iFlag And iRow <= iFlag + 4) Then [U44] = [AE44]
    End If
End If

End Sub

A+

Bonjour,

Une autre proposition.

Cdlt.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("Y12:Y16,Y19:Y23,Y26:Y30")) Is Nothing Then
        Me.Cells(44, "U").Value = Me.Cells(44, "AE").Value
    End If
End Sub

Merci à Jean-Eric et curulis57 d'avoir répondu à ma demande.

Vos macros fonctionnent très bien. Celle de Jean-Eric est toutefois plus simple et facile à comprendre pour moi.

Sincères remerciements à nouveau à vous deux.

Salutations,

RD