Je te proposes ceci
si la date de fin est non nul alors on copie l'incident dans la feuille archive
et on supprimmede la feuille incident
A voir si c'est la méthode recherchée
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target <> "" And Target.Column = 10 Then
With Target.Parent.ListObjects("BASE_INCIDENTS")
Set zone = .ListRows(Target.Row - .HeaderRowRange.Row).Range
End With
With Sheets("Archive").ListObjects("Tableau2")
Set l = .ListRows.Add
zone.Copy l.Range
End With
zone.Delete
End If
Application.EnableEvents = True
End Sub
Re-Bonjour sousou
j'ai ce code qui bug avec celui de l'archivage
Private Sub Worksheet_Change(ByVal Target As Range)
Dim d, h, iSct As Range
Set iSct = Intersect(Target, Range("E:E"))
If iSct Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each d In iSct.Cells
If IsEmpty(d) Then
d.Offset(0, -3) = ""
Else
d.Offset(0, -3) = Format(Now, "mm/dd/yy")
End If
Next
For Each h In iSct.Cells
If IsEmpty(h) Then
h.Offset(0, -2) = ""
Else
h.Offset(0, -2) = Format(Now, "hh:mm:ss")
End If
Next
care celui ci est pour la date et l'heure de la saisie des incidents dans le tableau , puisque cette date me permet de comparaitre entre les dates (date de saisie et celle de l'incident) genre de contrôle
et "Private Sub Worksheet_Change(ByVal Target As Range)" la même que le code de l'archive
puisque ci je saisie dans la 4éme colonne la date se met automatiquement
et j'arrive pas à jumeler les deux code ensemble
et j'essaie de désactiver celui de la date j'ai eu ça
merci d'avance