Re : incrémenter / décrémenter
Pour info voilà le code corrigé
Option Explicit
Sub Scan()
Dim Cel
Application.ScreenUpdating = False
For Each Cel In Array("B4")
Next Cel
ActiveSheet.Unprotect 'dévérouille la feuille accueil
Range("Saisie").Copy
With Sheets("Totaux")
.Range("A65536").End(xlUp)(2) _
.PasteSpecial Paste:=xlPasteValues, Transpose:=True
End With
Application.CutCopyMode = False
Range("B4:B5").ClearContents
Range("B4").Activate
ActiveSheet.Protect 'verouille la feuille Accueil
End Sub
Sub Impression()
Const NB_LIGNES = 50 'nb de lignes à prendre en compte
Worksheets("Impression").Columns("A:B").ClearContents
Dim No_Ligne2
Dim No_Ligne
No_Ligne2 = 5 'liste à partir de Impression!A5
For No_Ligne = 11 To NB_LIGNES + 2 'début source données Accueil!A11
If Cells(No_Ligne, 3) <> "" And Cells(No_Ligne, 3) <> 0 Then
Worksheets("Impression").Cells(No_Ligne2, 1) = Cells(No_Ligne, 2)
Worksheets("Impression").Cells(No_Ligne2, 2) = Cells(No_Ligne, 3)
No_Ligne2 = No_Ligne2 + 1
End If
Next
Sheets(4).Range("A4") = "Ramasseur" 're-écrit entête
Sheets(4).Range("B4") = "Q" 're-écrit entête
Sheets(4).Range("A2") = Date 're-écrit entête
'Sheets(4).PrintOut 'ActiveSheet.PrintOut imprime la feuille active
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:=True
'Application.Dialogs(xlDialogPrint).Show <-- pour choisir l'imprimante
End Sub
Sub Voir_PDF()
'emplacement a derterminée
Sheets(4).Select
Dim nom As String
'nom = Sheets(1.)Range("A2")
nom = "rammassage du "
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Sheets(4).Select
'Unload Me
End Sub
Sub Enregistrer_PDF()
Sheets(4).ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\ramassage_" & Day(Now) & Month(Now) & Year(Now)
End Sub