Pour validation de la saisie
Sub Valid_Saisie()
' Valid_Saisie Macro
'
Dim ListObj As ListObject, Sh As Worksheet, Ws As Worksheet, j As Long
Application.ScreenUpdating = False
Set Sh = Sheets("Archivage_Plans")
Set Ws = Sheets("Modification_PLANS")
Set ListObj = Sh.ListObjects("Saisie")
If MsgBox("Confirmez-vous l'enregistrement ?", vbYesNo, "Demande de confirmation") = vbYes Then
With ListObj
.ListRows.Add
i = .ListRows.Count
With .DataBodyRange
.Cells(i, 1) = Ws.Range("C13")
.Cells(i, 2) = Format(Ws.Range("E13"), "0000")
.Cells(i, 3) = Ws.Range("G13")
.Cells(i, 4) = Ws.Range("I13")
.Cells(i, 5) = Ws.Range("K13")
.Cells(i, 6) = Ws.Range("C17")
.Cells(i, 7) = Ws.Range("E17")
.Cells(i, 8) = Ws.Range("G17")
.Cells(i, 8).Interior.Color = RGB(0, 112, 192)
.Cells(i, 8).Font.ColorIndex = 2
.Cells(1, 9) = Ws.Range("I17")
.Cells(1, 10) = Ws.Range("K17")
End With
End With
MsgBox "Enregistrement effectué"
With Sheets("Modification_PLANS")
.Range("B17,C13,C17,E13,I13,K13,E17,G17,I17,K17").ClearContents '..............on laisse la formule en G13
End With
End If
Application.ScreenUpdating = True
End Sub
pour le reste, je ne comprends pas ton fichier, je ne comprends pas ce que tu veux faire