Sub MasquerRfQPres()
Debut = 1
Fin = 53
ColNb = 1
For i = Debut To Fin
If Cells(i, ColNb).Value = "" Then
Cells(i, ColNb).EntireRow.Hidden = True
Else
Cells(i, ColNb).EntireRow.Hidden = False
End If
Next i
ActiveSheet.Range("B1:H53").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveSheet.Range("C54").Value, OpenAfterPublish:=True
Application.Goto [B1], True
End Sub
Sub tt()
With Worksheets("Preservation Estimation Tool")
.Range("C5,C7,C9,E5,E7,E9,E11,J5,J7,J9,J11,C16,C18,C20,C22,C24,C26,C28,C30,D35,D37,D39,D41,D43,D45,C49,C51,C53,C56,C58,C60,C62,C68").ClearContents
End With
End Sub
Sub Fermeture()
Dim réponse As Integer
réponse = MsgBox("Do you want to continue? All unsaved data will be lost.", vbQuestion + vbYesNo)
If réponse = vbYes Then
With Worksheets("Preservation Estimation Tool")
.Range("C5,C7,C9,E5,E7,E9,E11,J5,J7,J9,J11,C16,C18,C20,C22,C24,C26,C28,C30,D35,D37,D39,D41,D43,D45,C49,C51,C53,C56,C58,C60,C62,C68").ClearContents
End With
With Worksheets("Product List")
.Range("B44:I1040").ClearContents
.Range("A3:A1040").ClearContents
End With
MsgBox "See you soon at Acobal.com!"
ActiveWorkbook.Close savechanges:=True
Else
Application.Goto [C53]
End If
End Sub
Sub NouvProj()
Application.Goto Reference:=Worksheets("Preservation Estimation Tool").Range("B3"), Scroll:=True
End Sub