case a cocher pour impression documents ellargir la selection

[julie999]

bonjour
j'ai une macro qui fonctionner tres bien mais il a fallut ajouter document a imprimer
lubeck & norway
je n'arrive pas a modifier la macro pour que l'impression fonctionne
ormis ces 2 cases a cocher le reste fonctionne

voici la macro utilisé
Sub imprimeFeuille()
With Sheets("Menu impression")
For i = 1 To Application.CountA(.[Q1:Q17])
If .Range("Q" & i) = True Then Sheets(.Range("R" & i).Value).PrintOut 'PrintPreview

Next i
End With
If [q18] = "13" Then MsgBox "Vous n'avez pas selectionné de document a imprimer." + Chr$(13) + "Veuiller cocher les documents a imprimer"

End Sub

ou ets mon erreur
merci julie
ci joint un fichier

 

[julie999]

Re : case a cocher pour impression documents ellargir la selection

Re le fil
personne n aurait une idée
julie

 

[Paf]

Re : case a cocher pour impression documents ellargir la selection

Bonjour

Pas facile de tester sur un classeur xlsx (donc sans macro) qui ne comporte pas les feuilles nécessaire à l'impression !

En colonne Q (et P), de la ligne 5 à la ligne 17 on trouve les renseignements utiles à l'impression des feuilles .
Avec le code :For i = 1 To Application.CountA(.[Q1:Q17]) on va balayer les lignes de 1 à 14 !!

En modifiant les valeurs de i pour qu'elles correspondent aux lignes réellement renseignées comme ceci:

For i = 5 To 17

ça devrait mieux marcher !

A+

 

[julie999]

Re : case a cocher pour impression documents ellargir la selection

bonjour
oui effectivement on cherche compliquer quand c 'est simple
merci ça fonctionne
Julie