MACRO EXCEL
CAROLE
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
pouvez vous me dire ou est mon erreur dans ma macro? merci bcp!
1 - je deverouille chaque feuille de mon classeur
2 - les lignes de 8 à 12 sont ajustées en hauteur pour le texte contenu dans les cellules
3 - et la zone d'impression est definie
Sub miseenpage()
Dim feuille As Worksheet
For Each feuille In Worksheets
feuille.Unprotect ("BE")
feuille.Rows("B8:B12").EntireRow.AutoFit
feuille.PageSetup.PrintArea = "$B$2:$H$19"
Next feuille
End Sub
carole
pouvez vous me dire ou est mon erreur dans ma macro? merci bcp!
1 - je deverouille chaque feuille de mon classeur
2 - les lignes de 8 à 12 sont ajustées en hauteur pour le texte contenu dans les cellules
3 - et la zone d'impression est definie
Sub miseenpage()
Dim feuille As Worksheet
For Each feuille In Worksheets
feuille.Unprotect ("BE")
feuille.Rows("B8:B12").EntireRow.AutoFit
feuille.PageSetup.PrintArea = "$B$2:$H$19"
Next feuille
End Sub
carole
A voir également:
- MACRO EXCEL
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
