problème de formulation

[PATRICK B.]

BONJOUR A TOUS,

Voilà je sèche sur un problème qui est peut-être évident:
si feuil1.range("a1")=feuil3.range("a1")
il faut que feuil2.range("a1")=feuil3.range("b1")

merci d'avance pour vos réponses.

 

[Lord Nelson]

Salut Patrick,

Cette procédure placée dans "ThisWorkBook" devrait marcher :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "Feuil1" Or Sh.Name = "Feuil3" Then
If Target.Address = "$A$1" Then
If Feuil1.Range("A1") = Feuil3.Range("A1") Then
Feuil2.Range("A1") = Feuil3.Range("B1")
Else
Feuil2.Range("A1") = ""
End If
End If
End If
End Sub

A+
LN