2 morceaux de VBA à regrouper...

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
 

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : 2 morceaux de VBA à regrouper...

Bonjour Stan
Une petite dernière pour aujourd'hui...



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
je ne vois pas bien ce que tu attends du regroupement de ces codes
les lignes que j'ai mis en rouge semble entrer en conflit (au point de vue logique)

à+
Philippe
 

salsinats80

XLDnaute Nouveau
Re : 2 morceaux de VBA à regrouper...

En fait, j'ai 2 petits morceaux (je les ai mis sur le mail et ils sont séparés par des tirets.
Je souhaite les mettre dans une meme feuille de calcal mais mis boutà bout, cela bug.
le premier selectionne la première valeur supérieure à une autre.
Le suivant indique le moment auquel cette valeur est vérifiée.
Les 2 fonctionnent séparément et je souhaite utiliser les 2.

Dans l'attente

Stan.
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof