salsinats80
XLDnaute Nouveau
Je reviens à mon petit problème.
Pardon pour mon ignorance.
Je souhaite adapter ce que m'a proposé JCGL.
Je m'explique :
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" And [B1] < [A1] And [D3] = "" And [C1] = "" Then [C1] = [B1]
End Sub
Cela fonctionne mais la valeur qui est en B1 doit être rentrée manuellement hors, dans ma petite "bidouille" cette valeur est une fonction issue d'une autre cellule et là, ça ne fonctionne pas.
Comment puis-je faire ?
Dans l'attente
Stan.
Pardon pour mon ignorance.
Je souhaite adapter ce que m'a proposé JCGL.
Je m'explique :
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" And [B1] < [A1] And [D3] = "" And [C1] = "" Then [C1] = [B1]
End Sub
Cela fonctionne mais la valeur qui est en B1 doit être rentrée manuellement hors, dans ma petite "bidouille" cette valeur est une fonction issue d'une autre cellule et là, ça ne fonctionne pas.
Comment puis-je faire ?
Dans l'attente
Stan.