Private Sub CommandButton3_Click()
Dim rep As Integer
Dim annee As Integer
If Sheets("Dosimétries").Range("B24").Value = "" Or Sheets("Dosimétries").Range("B35").Value = "" Then
Select Case MsgBox("Aucune donnée à archiver, veuillez compléter les valeurs pour l'année en cours ", vbInformation, "Information")
End Select
Else
annee = Sheets("Dosimétries").Range("U11").Value
rep = MsgBox("ATTENTION CETTE ACTION EST IRREVERSIBLE" & vbCrLf & vbCrLf & "Souhaitez-vous vraiment archiver l'année " & annee & " ", vbExclamation + vbYesNo, "Avertissement")
lign = Sheets("Historiques").Range("B65100").End(xlUp).Row + 1
lign2 = lign + 11
MsgBox "Valeur lign =" & lign
MsgBox "Valeur lign2 =" & lign2
If rep = vbYes Then
With Sheets("Dosimétries")
Range(Cells(11, 2), Cells(22, 14)).Select
Selection.Copy
End With
Sheets("Historiques").Activate
Sheets("Historiques").Range("B" & lign & ":" & "N" & lign2).Select
ActiveSheet.Paste
Sheets("Historiques").Range("B" & lign2 + 2).Value = "x"
Sheets("Dosimétries").Activate
With Sheets("Dosimétries")
Range(Cells(11, 2), Cells(22, 14)).Select
Selection.ClearContents
Range(Cells(24, 2), Cells(35, 14)).Select
Selection.Copy
Range(Cells(11, 2), Cells(22, 14)).Select
ActiveSheet.Paste
Range(Cells(24, 2), Cells(35, 14)).Select
Selection.ClearContents
Range("C24").Select
End With
Else: Sheets("Dosimétries").Range("B11").Select
End If
End If