Bonjour à tous,
Je suis face à un problème que je n'arrive pas à résoudre.
Je souhaite définir une zone d'impression variable en longueur et en largeur.
Pour la longueur, aucun problème, par contre je ne trouve pas de formule satisfaisante pour la largeur. Ma feuille comporte plusieurs tableaux (nombre variable) avec lignes variables et colonnes allant de 8 à 15. De plus, le tableau peut contenir des cases vides ou des images (aléatoire). Dans le même temps, à partir de la colonne 17 les cellules peuvent ne pas être vide.
Voilà le code avec les deux lignes qui posent problème.
Je cherche donc un moyen de calculer la dernière colonne utilisée dans une plage de données (pour ne pas prendre en compte les colonnes >= 17 n'entrant pas dans l'impression) et dans un deuxième temps, utilisé cette valeur pour définir la zone d'impression.
Le fichier joint est un exemple de tableaux à imprimer.
Merci pour vos réponses
Je suis face à un problème que je n'arrive pas à résoudre.
Je souhaite définir une zone d'impression variable en longueur et en largeur.
Pour la longueur, aucun problème, par contre je ne trouve pas de formule satisfaisante pour la largeur. Ma feuille comporte plusieurs tableaux (nombre variable) avec lignes variables et colonnes allant de 8 à 15. De plus, le tableau peut contenir des cases vides ou des images (aléatoire). Dans le même temps, à partir de la colonne 17 les cellules peuvent ne pas être vide.
Voilà le code avec les deux lignes qui posent problème.
Code:
Sub ZoneImpression()
Dim Y As Integer
With ActiveSheet
Y = Range("A65536").End(xlUp).Row
End With
Dim X As Integer
With ActiveSheet
X = Range("O3").End(xlToLeft).Column [B]je voudrais calculer le nbre de colonnes de chaque ligne et sélectionner le max[/B]
End With
ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(Y, X)) [B]Ne fonctionne pas, j'aimerai donner la colonne en nombre[/B]
End Sub
Je cherche donc un moyen de calculer la dernière colonne utilisée dans une plage de données (pour ne pas prendre en compte les colonnes >= 17 n'entrant pas dans l'impression) et dans un deuxième temps, utilisé cette valeur pour définir la zone d'impression.
Le fichier joint est un exemple de tableaux à imprimer.
Merci pour vos réponses
Pièces jointes
Dernière édition: