Bonjour,
Je souhaite connaître la dimension d'une feuille que je crée sur vba excel 2000 (pour impression), je régle les marges dans un premier temps (voir en dessous).
En fonction des variables : nombre de ligne et nombre de colonne (entrée par l'utilisateur), le prg créé cette feuille et n'affiche que le nombre de ligne et le nombre de colonne souhaité et les adaptes sur toute la feuille.
Voila comment je pense faire cela mais il faut que je connaisse les dimensions de la feuille en retirant les marges:
Par exemple pour les lignes :
taille_colonne = taille_largeur_feuille / nbcolonne
Columns("B:C").ColumnWidth = taille_colonne
Comment mettre en variable les colonnes à modifier?
Merci par avance et si vous avez une meilleur idée.
Je souhaite connaître la dimension d'une feuille que je crée sur vba excel 2000 (pour impression), je régle les marges dans un premier temps (voir en dessous).
En fonction des variables : nombre de ligne et nombre de colonne (entrée par l'utilisateur), le prg créé cette feuille et n'affiche que le nombre de ligne et le nombre de colonne souhaité et les adaptes sur toute la feuille.
Voila comment je pense faire cela mais il faut que je connaisse les dimensions de la feuille en retirant les marges:
Par exemple pour les lignes :
taille_colonne = taille_largeur_feuille / nbcolonne
Columns("B:C").ColumnWidth = taille_colonne
Comment mettre en variable les colonnes à modifier?
Code:
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.25) 'marge gauche
.RightMargin = Application.InchesToPoints(0.25) 'marge droite
.TopMargin = Application.InchesToPoints(0.31) 'marge haut
.BottomMargin = Application.InchesToPoints(0.31) 'marge bas
.HeaderMargin = Application.InchesToPoints(0.19) 'marge tout en haut
.FooterMargin = Application.InchesToPoints(0.19) 'marge tout en bas
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Merci par avance et si vous avez une meilleur idée.