salsinats80
XLDnaute Nouveau
Une petite dernière pour aujourd'hui...
2 internautes de ce Site m'ont aidé et m'ont donné la solution à mes petits PB et je les en remercie encore.
Je souhaite regrouper ces 2 paquets.
Je pensais que les mettre les uns derrière les autres fonctionnerait mais mon ignirance en la matière était bien naïve...
Les 2 parties fonctionnent parfaitement séparément.
A bientôt
Stan.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$2" And [F2] >= [C2] And [G2] = "" Then [G2] = [F2]
End Sub
Private Sub Worksheet_Calculate()
If [F2] >= [C2] And [G2] = "" Then [G2] = [F2]
End Sub
-------------------------------------------------------
Option Explicit
Dim Mem As Variant
Sub Worksheet_SelectionChange(ByVal Cible As Range)
Mem = Range("G2").Value
End Sub
Sub Worksheet_Calculate()
If Range("G2").Value <> Mem Then
Range("H2").Value = Date
Range("I2").Value = Time
End If
End Sub
2 internautes de ce Site m'ont aidé et m'ont donné la solution à mes petits PB et je les en remercie encore.
Je souhaite regrouper ces 2 paquets.
Je pensais que les mettre les uns derrière les autres fonctionnerait mais mon ignirance en la matière était bien naïve...
Les 2 parties fonctionnent parfaitement séparément.
A bientôt
Stan.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$2" And [F2] >= [C2] And [G2] = "" Then [G2] = [F2]
End Sub
Private Sub Worksheet_Calculate()
If [F2] >= [C2] And [G2] = "" Then [G2] = [F2]
End Sub
-------------------------------------------------------
Option Explicit
Dim Mem As Variant
Sub Worksheet_SelectionChange(ByVal Cible As Range)
Mem = Range("G2").Value
End Sub
Sub Worksheet_Calculate()
If Range("G2").Value <> Mem Then
Range("H2").Value = Date
Range("I2").Value = Time
End If
End Sub