Bonsoir Anne-Marie,
Voici ta procédure modifiée :
Cette procédure devrait fonctionner si l'information contenue dans la
cellule A1 de la feuille est bonne. Et comme tu ne
dis pas comment tu procèdes pour définir cette valeur ...il est difficile
d'aller plus loin !
'---------------------------------
Private Sub AdImp_Click()
Dim nbLigneAd As Long, terreAdImp As String
With Worksheets("Adresses")
.Unprotect
'zone d'impression
'On Error Resume Next
nbLigneAd = .Range("A1").Value + 3
'A1= le nb de lignes avec des valeurs
terreAdImp = .Range(.Cells(2, "A"), .Cells(nbLigneAd, "I")).Address
'Adresse de la zone remplie
.PageSetup.PrintArea = terreAdImp
If MsgBox("Nombre de pages à imprimer : " _
& .HPageBreaks.Count + 1, vbinformatiion + vbYesNo, _
"Nombre de pages à imprimer") = vbYes Then
.PrintPreview
End If
.Protect
End With
End Sub
'---------------------------------
Salutations!
"Donnazac" a écrit dans le message de
news:O5RxIA$
Bonsoir,
Comment savoir combien il y aura de pages à imprimer sachant que j'ai des
formules incrementées et que je n'imprime que lorsque il y a des valeurs
non
nulles exemple: j'ai 500 lignes remplies de formules si lors du calcul je
n'en ai que les cent premières lignes si je demande à imprimer --> tout
est
imprimer mm les lignes vides (on ne voit que les pointillés des bordures)
.
En fait word considère les cellules contenant des formules comme
potentiellement imprimable Voici la macro que j'avais mis ds un bouton
"imprim" mais cela ne marche pas :
Private Sub AdImp_Click()
Worksheets("Adresses").Unprotect
'zone d'impression
On Error Resume Next
nbLigneAd = Worksheets("Adresses").Range("A1").Value + 3
'A1
= le nb de lignes avec des valeurs
terreAdImp = Range(Cells(2, "A"), Cells(nbLigneAd, "I")).Address
'Adresse de la zone remplie
ActiveSheet.PageSetup.PrintArea = terreAdImp
ActiveWindow.SelectedSheets.PrintPreview
Worksheets("Adresses").Protect
End Sub
Merci de m'aider car je ne comprends pas pourquoi cela me sort dans le
calcul présent 26 pages dont 13 sont remplies de valeurs et le reste n'a
que
des lignes de pointillées vides donc inutiles.
Avec tous mes remerciements
Anne-Marie
Bonsoir Anne-Marie,
Voici ta procédure modifiée :
Cette procédure devrait fonctionner si l'information contenue dans la
cellule A1 de la feuille est bonne. Et comme tu ne
dis pas comment tu procèdes pour définir cette valeur ...il est difficile
d'aller plus loin !
'---------------------------------
Private Sub AdImp_Click()
Dim nbLigneAd As Long, terreAdImp As String
With Worksheets("Adresses")
.Unprotect
'zone d'impression
'On Error Resume Next
nbLigneAd = .Range("A1").Value + 3
'A1= le nb de lignes avec des valeurs
terreAdImp = .Range(.Cells(2, "A"), .Cells(nbLigneAd, "I")).Address
'Adresse de la zone remplie
.PageSetup.PrintArea = terreAdImp
If MsgBox("Nombre de pages à imprimer : " _
& .HPageBreaks.Count + 1, vbinformatiion + vbYesNo, _
"Nombre de pages à imprimer") = vbYes Then
.PrintPreview
End If
.Protect
End With
End Sub
'---------------------------------
Salutations!
"Donnazac" <am.courbatieu@club-internet.fr> a écrit dans le message de
news:O5RxIA$cDHA.2404@TK2MSFTNGP10.phx.gbl...
Bonsoir,
Comment savoir combien il y aura de pages à imprimer sachant que j'ai des
formules incrementées et que je n'imprime que lorsque il y a des valeurs
non
nulles exemple: j'ai 500 lignes remplies de formules si lors du calcul je
n'en ai que les cent premières lignes si je demande à imprimer --> tout
est
imprimer mm les lignes vides (on ne voit que les pointillés des bordures)
.
En fait word considère les cellules contenant des formules comme
potentiellement imprimable Voici la macro que j'avais mis ds un bouton
"imprim" mais cela ne marche pas :
Private Sub AdImp_Click()
Worksheets("Adresses").Unprotect
'zone d'impression
On Error Resume Next
nbLigneAd = Worksheets("Adresses").Range("A1").Value + 3
'A1
= le nb de lignes avec des valeurs
terreAdImp = Range(Cells(2, "A"), Cells(nbLigneAd, "I")).Address
'Adresse de la zone remplie
ActiveSheet.PageSetup.PrintArea = terreAdImp
ActiveWindow.SelectedSheets.PrintPreview
Worksheets("Adresses").Protect
End Sub
Merci de m'aider car je ne comprends pas pourquoi cela me sort dans le
calcul présent 26 pages dont 13 sont remplies de valeurs et le reste n'a
que
des lignes de pointillées vides donc inutiles.
Avec tous mes remerciements
Anne-Marie
Bonsoir Anne-Marie,
Voici ta procédure modifiée :
Cette procédure devrait fonctionner si l'information contenue dans la
cellule A1 de la feuille est bonne. Et comme tu ne
dis pas comment tu procèdes pour définir cette valeur ...il est difficile
d'aller plus loin !
'---------------------------------
Private Sub AdImp_Click()
Dim nbLigneAd As Long, terreAdImp As String
With Worksheets("Adresses")
.Unprotect
'zone d'impression
'On Error Resume Next
nbLigneAd = .Range("A1").Value + 3
'A1= le nb de lignes avec des valeurs
terreAdImp = .Range(.Cells(2, "A"), .Cells(nbLigneAd, "I")).Address
'Adresse de la zone remplie
.PageSetup.PrintArea = terreAdImp
If MsgBox("Nombre de pages à imprimer : " _
& .HPageBreaks.Count + 1, vbinformatiion + vbYesNo, _
"Nombre de pages à imprimer") = vbYes Then
.PrintPreview
End If
.Protect
End With
End Sub
'---------------------------------
Salutations!
"Donnazac" a écrit dans le message de
news:O5RxIA$
Bonsoir,
Comment savoir combien il y aura de pages à imprimer sachant que j'ai des
formules incrementées et que je n'imprime que lorsque il y a des valeurs
non
nulles exemple: j'ai 500 lignes remplies de formules si lors du calcul je
n'en ai que les cent premières lignes si je demande à imprimer --> tout
est
imprimer mm les lignes vides (on ne voit que les pointillés des bordures)
.
En fait word considère les cellules contenant des formules comme
potentiellement imprimable Voici la macro que j'avais mis ds un bouton
"imprim" mais cela ne marche pas :
Private Sub AdImp_Click()
Worksheets("Adresses").Unprotect
'zone d'impression
On Error Resume Next
nbLigneAd = Worksheets("Adresses").Range("A1").Value + 3
'A1
= le nb de lignes avec des valeurs
terreAdImp = Range(Cells(2, "A"), Cells(nbLigneAd, "I")).Address
'Adresse de la zone remplie
ActiveSheet.PageSetup.PrintArea = terreAdImp
ActiveWindow.SelectedSheets.PrintPreview
Worksheets("Adresses").Protect
End Sub
Merci de m'aider car je ne comprends pas pourquoi cela me sort dans le
calcul présent 26 pages dont 13 sont remplies de valeurs et le reste n'a
que
des lignes de pointillées vides donc inutiles.
Avec tous mes remerciements
Anne-Marie
Bonsoir,
Comment savoir combien il y aura de pages à imprimer sachant que j'ai des
formules incrementées et que je n'imprime que lorsque il y a des valeurs non
nulles exemple: j'ai 500 lignes remplies de formules si lors du calcul je
n'en ai que les cent premières lignes si je demande à imprimer --> tout est
imprimer mm les lignes vides (on ne voit que les pointillés des bordures) .
En fait word considère les cellules contenant des formules comme
potentiellement imprimable Voici la macro que j'avais mis ds un bouton
"imprim" mais cela ne marche pas :
Private Sub AdImp_Click()
Worksheets("Adresses").Unprotect
'zone d'impression
On Error Resume Next
nbLigneAd = Worksheets("Adresses").Range("A1").Value + 3 'A1
= le nb de lignes avec des valeurs
terreAdImp = Range(Cells(2, "A"), Cells(nbLigneAd, "I")).Address
'Adresse de la zone remplie
ActiveSheet.PageSetup.PrintArea = terreAdImp
ActiveWindow.SelectedSheets.PrintPreview
Worksheets("Adresses").Protect
End Sub
Merci de m'aider car je ne comprends pas pourquoi cela me sort dans le
calcul présent 26 pages dont 13 sont remplies de valeurs et le reste n'a que
des lignes de pointillées vides donc inutiles.
Avec tous mes remerciements
Anne-Marie
Bonsoir,
Comment savoir combien il y aura de pages à imprimer sachant que j'ai des
formules incrementées et que je n'imprime que lorsque il y a des valeurs non
nulles exemple: j'ai 500 lignes remplies de formules si lors du calcul je
n'en ai que les cent premières lignes si je demande à imprimer --> tout est
imprimer mm les lignes vides (on ne voit que les pointillés des bordures) .
En fait word considère les cellules contenant des formules comme
potentiellement imprimable Voici la macro que j'avais mis ds un bouton
"imprim" mais cela ne marche pas :
Private Sub AdImp_Click()
Worksheets("Adresses").Unprotect
'zone d'impression
On Error Resume Next
nbLigneAd = Worksheets("Adresses").Range("A1").Value + 3 'A1
= le nb de lignes avec des valeurs
terreAdImp = Range(Cells(2, "A"), Cells(nbLigneAd, "I")).Address
'Adresse de la zone remplie
ActiveSheet.PageSetup.PrintArea = terreAdImp
ActiveWindow.SelectedSheets.PrintPreview
Worksheets("Adresses").Protect
End Sub
Merci de m'aider car je ne comprends pas pourquoi cela me sort dans le
calcul présent 26 pages dont 13 sont remplies de valeurs et le reste n'a que
des lignes de pointillées vides donc inutiles.
Avec tous mes remerciements
Anne-Marie
Bonsoir,
Comment savoir combien il y aura de pages à imprimer sachant que j'ai des
formules incrementées et que je n'imprime que lorsque il y a des valeurs non
nulles exemple: j'ai 500 lignes remplies de formules si lors du calcul je
n'en ai que les cent premières lignes si je demande à imprimer --> tout est
imprimer mm les lignes vides (on ne voit que les pointillés des bordures) .
En fait word considère les cellules contenant des formules comme
potentiellement imprimable Voici la macro que j'avais mis ds un bouton
"imprim" mais cela ne marche pas :
Private Sub AdImp_Click()
Worksheets("Adresses").Unprotect
'zone d'impression
On Error Resume Next
nbLigneAd = Worksheets("Adresses").Range("A1").Value + 3 'A1
= le nb de lignes avec des valeurs
terreAdImp = Range(Cells(2, "A"), Cells(nbLigneAd, "I")).Address
'Adresse de la zone remplie
ActiveSheet.PageSetup.PrintArea = terreAdImp
ActiveWindow.SelectedSheets.PrintPreview
Worksheets("Adresses").Protect
End Sub
Merci de m'aider car je ne comprends pas pourquoi cela me sort dans le
calcul présent 26 pages dont 13 sont remplies de valeurs et le reste n'a que
des lignes de pointillées vides donc inutiles.
Avec tous mes remerciements
Anne-Marie
Bonsoir,
Comment savoir combien il y aura de pages à imprimer sachant que j'ai des
formules incrementées et que je n'imprime que lorsque il y a des valeurs non
nulles exemple: j'ai 500 lignes remplies de formules si lors du calcul je
n'en ai que les cent premières lignes si je demande à imprimer --> tout est
imprimer mm les lignes vides (on ne voit que les pointillés des bordures) .
En fait word considère les cellules contenant des formules comme
potentiellement imprimable Voici la macro que j'avais mis ds un bouton
"imprim" mais cela ne marche pas :
Private Sub AdImp_Click()
Worksheets("Adresses").Unprotect
'zone d'impression
On Error Resume Next
nbLigneAd = Worksheets("Adresses").Range("A1").Value + 3 'A1
= le nb de lignes avec des valeurs
terreAdImp = Range(Cells(2, "A"), Cells(nbLigneAd, "I")).Address
'Adresse de la zone remplie
ActiveSheet.PageSetup.PrintArea = terreAdImp
ActiveWindow.SelectedSheets.PrintPreview
Worksheets("Adresses").Protect
End Sub
Merci de m'aider car je ne comprends pas pourquoi cela me sort dans le
calcul présent 26 pages dont 13 sont remplies de valeurs et le reste n'a que
des lignes de pointillées vides donc inutiles.
Avec tous mes remerciements
Anne-Marie
Bonsoir,
Comment savoir combien il y aura de pages à imprimer sachant que j'ai des
formules incrementées et que je n'imprime que lorsque il y a des valeurs non
nulles exemple: j'ai 500 lignes remplies de formules si lors du calcul je
n'en ai que les cent premières lignes si je demande à imprimer --> tout est
imprimer mm les lignes vides (on ne voit que les pointillés des bordures) .
En fait word considère les cellules contenant des formules comme
potentiellement imprimable Voici la macro que j'avais mis ds un bouton
"imprim" mais cela ne marche pas :
Private Sub AdImp_Click()
Worksheets("Adresses").Unprotect
'zone d'impression
On Error Resume Next
nbLigneAd = Worksheets("Adresses").Range("A1").Value + 3 'A1
= le nb de lignes avec des valeurs
terreAdImp = Range(Cells(2, "A"), Cells(nbLigneAd, "I")).Address
'Adresse de la zone remplie
ActiveSheet.PageSetup.PrintArea = terreAdImp
ActiveWindow.SelectedSheets.PrintPreview
Worksheets("Adresses").Protect
End Sub
Merci de m'aider car je ne comprends pas pourquoi cela me sort dans le
calcul présent 26 pages dont 13 sont remplies de valeurs et le reste n'a que
des lignes de pointillées vides donc inutiles.
Avec tous mes remerciements
Anne-Marie
Bonsoir,
Comment savoir combien il y aura de pages à imprimer sachant que j'ai des
formules incrementées et que je n'imprime que lorsque il y a des valeurs non
nulles exemple: j'ai 500 lignes remplies de formules si lors du calcul je
n'en ai que les cent premières lignes si je demande à imprimer --> tout est
imprimer mm les lignes vides (on ne voit que les pointillés des bordures) .
En fait word considère les cellules contenant des formules comme
potentiellement imprimable Voici la macro que j'avais mis ds un bouton
"imprim" mais cela ne marche pas :
Private Sub AdImp_Click()
Worksheets("Adresses").Unprotect
'zone d'impression
On Error Resume Next
nbLigneAd = Worksheets("Adresses").Range("A1").Value + 3 'A1
= le nb de lignes avec des valeurs
terreAdImp = Range(Cells(2, "A"), Cells(nbLigneAd, "I")).Address
'Adresse de la zone remplie
ActiveSheet.PageSetup.PrintArea = terreAdImp
ActiveWindow.SelectedSheets.PrintPreview
Worksheets("Adresses").Protect
End Sub
Merci de m'aider car je ne comprends pas pourquoi cela me sort dans le
calcul présent 26 pages dont 13 sont remplies de valeurs et le reste n'a que
des lignes de pointillées vides donc inutiles.
Avec tous mes remerciements
Anne-Marie
Bonjour Robert,
Je crois que le numéro de la ligne de code est plutôt 50 comme dans :
=ExecuteExcel4Macro("Get.DOCUMENT(50)")
"Il n'y a pas d'équivalent en Visual Basic"
Observe la procédure soumise, il y a bien une autre façon de faire et je
crois que c'est du Visual Basic...
;-)
Salutations!
"Robert Dezan" a écrit dans le message de
news:
Bonsoir,
Pour calculer le nb de page à imprimer, il existe une méthode issue
d'Excel 4 mais un peu oubliée semble-t'il :
Renvoi du nombre de pages qui seront imprimées conformément
aux paramètres en cours pour la feuille active, à l'exclusion des
annotations.
Il n'y a pas d'équivalent en Visual Basic.
=ExecuteExcel4Macro("Get.DOCUMENT(51)")
Cordialement
Robert Dezan
"Donnazac" a écrit dans le message de
news:O5RxIA$Bonsoir,
Comment savoir combien il y aura de pages à imprimer sachant que j'ai
des
formules incrementées et que je n'imprime que lorsque il y a des valeurs
non
nulles exemple: j'ai 500 lignes remplies de formules si lors du calcul
je
n'en ai que les cent premières lignes si je demande à imprimer --> tout
est
imprimer mm les lignes vides (on ne voit que les pointillés des
bordures) .
En fait word considère les cellules contenant des formules comme
potentiellement imprimable Voici la macro que j'avais mis ds un bouton
"imprim" mais cela ne marche pas :
Private Sub AdImp_Click()
Worksheets("Adresses").Unprotect
'zone d'impression
On Error Resume Next
nbLigneAd = Worksheets("Adresses").Range("A1").Value + 3
'A1
= le nb de lignes avec des valeurs
terreAdImp = Range(Cells(2, "A"), Cells(nbLigneAd, "I")).Address
'Adresse de la zone remplie
ActiveSheet.PageSetup.PrintArea = terreAdImp
ActiveWindow.SelectedSheets.PrintPreview
Worksheets("Adresses").Protect
End Sub
Merci de m'aider car je ne comprends pas pourquoi cela me sort dans le
calcul présent 26 pages dont 13 sont remplies de valeurs et le reste n'a
que
des lignes de pointillées vides donc inutiles.
Avec tous mes remerciements
Anne-Marie
Bonjour Robert,
Je crois que le numéro de la ligne de code est plutôt 50 comme dans :
=ExecuteExcel4Macro("Get.DOCUMENT(50)")
"Il n'y a pas d'équivalent en Visual Basic"
Observe la procédure soumise, il y a bien une autre façon de faire et je
crois que c'est du Visual Basic...
;-)
Salutations!
"Robert Dezan" <rdezan@noos.fr> a écrit dans le message de
news:uLFezMIdDHA.2416@TK2MSFTNGP09.phx.gbl...
Bonsoir,
Pour calculer le nb de page à imprimer, il existe une méthode issue
d'Excel 4 mais un peu oubliée semble-t'il :
Renvoi du nombre de pages qui seront imprimées conformément
aux paramètres en cours pour la feuille active, à l'exclusion des
annotations.
Il n'y a pas d'équivalent en Visual Basic.
=ExecuteExcel4Macro("Get.DOCUMENT(51)")
Cordialement
Robert Dezan
"Donnazac" <am.courbatieu@club-internet.fr> a écrit dans le message de
news:O5RxIA$cDHA.2404@TK2MSFTNGP10.phx.gbl...
Bonsoir,
Comment savoir combien il y aura de pages à imprimer sachant que j'ai
des
formules incrementées et que je n'imprime que lorsque il y a des valeurs
non
nulles exemple: j'ai 500 lignes remplies de formules si lors du calcul
je
n'en ai que les cent premières lignes si je demande à imprimer --> tout
est
imprimer mm les lignes vides (on ne voit que les pointillés des
bordures) .
En fait word considère les cellules contenant des formules comme
potentiellement imprimable Voici la macro que j'avais mis ds un bouton
"imprim" mais cela ne marche pas :
Private Sub AdImp_Click()
Worksheets("Adresses").Unprotect
'zone d'impression
On Error Resume Next
nbLigneAd = Worksheets("Adresses").Range("A1").Value + 3
'A1
= le nb de lignes avec des valeurs
terreAdImp = Range(Cells(2, "A"), Cells(nbLigneAd, "I")).Address
'Adresse de la zone remplie
ActiveSheet.PageSetup.PrintArea = terreAdImp
ActiveWindow.SelectedSheets.PrintPreview
Worksheets("Adresses").Protect
End Sub
Merci de m'aider car je ne comprends pas pourquoi cela me sort dans le
calcul présent 26 pages dont 13 sont remplies de valeurs et le reste n'a
que
des lignes de pointillées vides donc inutiles.
Avec tous mes remerciements
Anne-Marie
Bonjour Robert,
Je crois que le numéro de la ligne de code est plutôt 50 comme dans :
=ExecuteExcel4Macro("Get.DOCUMENT(50)")
"Il n'y a pas d'équivalent en Visual Basic"
Observe la procédure soumise, il y a bien une autre façon de faire et je
crois que c'est du Visual Basic...
;-)
Salutations!
"Robert Dezan" a écrit dans le message de
news:
Bonsoir,
Pour calculer le nb de page à imprimer, il existe une méthode issue
d'Excel 4 mais un peu oubliée semble-t'il :
Renvoi du nombre de pages qui seront imprimées conformément
aux paramètres en cours pour la feuille active, à l'exclusion des
annotations.
Il n'y a pas d'équivalent en Visual Basic.
=ExecuteExcel4Macro("Get.DOCUMENT(51)")
Cordialement
Robert Dezan
"Donnazac" a écrit dans le message de
news:O5RxIA$Bonsoir,
Comment savoir combien il y aura de pages à imprimer sachant que j'ai
des
formules incrementées et que je n'imprime que lorsque il y a des valeurs
non
nulles exemple: j'ai 500 lignes remplies de formules si lors du calcul
je
n'en ai que les cent premières lignes si je demande à imprimer --> tout
est
imprimer mm les lignes vides (on ne voit que les pointillés des
bordures) .
En fait word considère les cellules contenant des formules comme
potentiellement imprimable Voici la macro que j'avais mis ds un bouton
"imprim" mais cela ne marche pas :
Private Sub AdImp_Click()
Worksheets("Adresses").Unprotect
'zone d'impression
On Error Resume Next
nbLigneAd = Worksheets("Adresses").Range("A1").Value + 3
'A1
= le nb de lignes avec des valeurs
terreAdImp = Range(Cells(2, "A"), Cells(nbLigneAd, "I")).Address
'Adresse de la zone remplie
ActiveSheet.PageSetup.PrintArea = terreAdImp
ActiveWindow.SelectedSheets.PrintPreview
Worksheets("Adresses").Protect
End Sub
Merci de m'aider car je ne comprends pas pourquoi cela me sort dans le
calcul présent 26 pages dont 13 sont remplies de valeurs et le reste n'a
que
des lignes de pointillées vides donc inutiles.
Avec tous mes remerciements
Anne-Marie