Excel VBA définition zone d'impression

Résolu/Fermé
q=seb - 31 août 2011 à 10:10
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 31 août 2011 à 11:36
Bonjour,

J'ai des tableaux de hauteur variable qui finissent tous par de lignes remplies de 0

j'ai essayé le code suivant mais je ne sais pas comment sortir de la boucle au bon moment. le Resume next arrête bien la macro au bon endroit mais me donne un message d'erreur.

Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To 100
j = i - 1
Range("F" & i).Select
If Range("F" & i).Value = 0 Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$P" & j
Resume Next

'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True'
End If
Next i
End Sub



A voir également:

2 réponses

Réponse 1 / 2
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
31 août 2011 à 10:42
bonjour

essaies ce code 
Private Sub CommandButton1_Click()
     On Error GoTo erreur
     With ActiveSheet
          fin = .Columns("F").Find(0, .Range("F1"), xlValues).Row - 1
          .PageSetup.PrintArea = "$A$1:$P" & fin
          .PrintOut
     End With
     Exit Sub

erreur:
     MsgBox "zone d'impression vide ou mal définie", vbCritical
End Sub
0
Réponse 2 / 2
q=seb
31 août 2011 à 11:09
merci beaucoup
0
q=seb
31 août 2011 à 11:15
après un essai, ça marche pas comme ça (renvoie le message "erreur"), j'essaie de trouver d'où ça vient...
0
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
31 août 2011 à 11:36
peut-être l'histoire de terminer par une série de 0 à mon avis inutile....
0