Bonsoir le forum,
Dans ce code un message box apparaîte pour aviser l'usager du nombre de pages qui sera imprimées. Malheureusement j'obtiens le nombre de pages ayant une cellules vides moins le nombre de pages ayant une cellule avec valeur. Pourquoi ? Merci
Private Sub CmdImprimer2_Click()
Dim r As Long
Dim Plage As Range
Dim nbpages As Variant
Unload Me
Application.ScreenUpdating = False
Set Plage = Range("H1", Range("H65536").End(xlUp))
For r = Plage.Cells.Count To 1 Step -1
If Not IsEmpty(Plage.Cells(r)) Then
Plage.Rows(r).Hidden = True
End If
Next r
nbpages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
If nbpages = 1 Then
If MsgBox("IL Y AURA " & nbpages & " PAGE D'IMPRIMÉE. VOULEZ-VOUS CONTINUER ?", vbYesNo + vbQuestion, "Avertissement : Nombre de pages imprimées") = vbNo Then
Rows().Hidden = False
Columns().Hidden = False
Exit Sub
End If
Else
If MsgBox("IL Y AURA " & nbpages & " PAGES D'IMPRIMÉES. VOULEZ-VOUS CONTINUER ?", vbYesNo + vbQuestion, "Avertissement : Nombre de pages imprimées") = vbNo Then
Rows().Hidden = False
Columns().Hidden = False
Exit Sub
End If
ActiveSheet.PrintOut
Application.ScreenUpdating = True
End If
Rows().Hidden = False
Columns().Hidden = False
End Sub
Dans ce code un message box apparaîte pour aviser l'usager du nombre de pages qui sera imprimées. Malheureusement j'obtiens le nombre de pages ayant une cellules vides moins le nombre de pages ayant une cellule avec valeur. Pourquoi ? Merci
Private Sub CmdImprimer2_Click()
Dim r As Long
Dim Plage As Range
Dim nbpages As Variant
Unload Me
Application.ScreenUpdating = False
Set Plage = Range("H1", Range("H65536").End(xlUp))
For r = Plage.Cells.Count To 1 Step -1
If Not IsEmpty(Plage.Cells(r)) Then
Plage.Rows(r).Hidden = True
End If
Next r
nbpages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
If nbpages = 1 Then
If MsgBox("IL Y AURA " & nbpages & " PAGE D'IMPRIMÉE. VOULEZ-VOUS CONTINUER ?", vbYesNo + vbQuestion, "Avertissement : Nombre de pages imprimées") = vbNo Then
Rows().Hidden = False
Columns().Hidden = False
Exit Sub
End If
Else
If MsgBox("IL Y AURA " & nbpages & " PAGES D'IMPRIMÉES. VOULEZ-VOUS CONTINUER ?", vbYesNo + vbQuestion, "Avertissement : Nombre de pages imprimées") = vbNo Then
Rows().Hidden = False
Columns().Hidden = False
Exit Sub
End If
ActiveSheet.PrintOut
Application.ScreenUpdating = True
End If
Rows().Hidden = False
Columns().Hidden = False
End Sub