VOICI COMMENT J'AI ADAPTE SANS PRENDRE EN COMPTE CETTE PARTIE (et en cellule I, on voit apparaitre "non et la cellule se met en rouge) MAIS CA NE FONCTIONNE PAS.
il ne me signal aucune erreur mais rien ne fonctionne.
DANS SUIVI CHANTIER
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligne As Integer
Dim colonne As Integer
If Not Application.Intersect(Target, Columns("B:E"), Columns("f")) Is Nothing Then
ligne = Target.Row
colonne = Target.Column
Sheets("RECAP DOSSIER").Cells(ligne, colonne) = Target
End If
End Sub
ET DANS RECAP DOSSIER
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligne As Integer
Dim colonne As Integer
If Not Application.Intersect(Target, Columns("D"), Columns("f")) Is Nothing Then
ligne = Target.Row
colonne = Target.Column
Range("F" & ligne) = Now 'now retourne la date du jour sous forme dd/mm/yyyy
Range("h" & ligne) = Now 'now retourne la date du jour sous forme dd/mm/yyyy
End If
End Sub