Macro copie avec formule

[guy72]

Bonjour,
J'ai une petite macro, qui doit copier des cellules.
Quand il y a le mot "Gagné" dans la cellule AX10 la macro doit copier une plage de lettre (AZ12:BJ12) en J8.
Cela ce passe bien quand dans AX10 il y a en valeur "Gagné".
Mais ce mot "Gagné" vient d'une formule et là ça ne fonctionne plus.
Pourquoi ?
Pouvez-vous m'aider ?

http://cjoint.com/?kjwFTPNx0m

 

[kjin]

Re : Macro copie avec formule

Bonsoir,
Il faut intercepter le chgt dans les colonnes J à T qui conditionne le résultat en colonne AX

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("J:T")) Is Nothing And Target.Count = 1 Then
If Cells(Target.Row, 50) = "Gagné" Then Solution
End If
End Sub

A+
kjin

 

[guy72]

Re : Macro copie avec formule

Bonsoir,
Il faut intercepter le chgt dans les colonnes J à T qui conditionne le résultat en colonne AX

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("J:T")) Is Nothing And Target.Count = 1 Then
If Cells(Target.Row, 50) = "Gagné" Then Solution
End If
End Sub

A+
kjin

Et bien merci de ton aide, car je ne voyais pas dutout ce qui se passait.
A+