Aide macro excel
Résolu/Fermé
1234
-
31 mars 2009 à 13:01
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 31 mars 2009 à 17:20
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 31 mars 2009 à 17:20
A voir également:
- Aide macro excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
- Aller à la ligne excel - Guide
6 réponses
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
277
31 mars 2009 à 13:19
31 mars 2009 à 13:19
Bonjour,
Ce que tu as écris est juste.
tu arrêtes ta selection en ligne sur la colonne 1 quand tu recontres le terme "Macro".
tu as donc choisis une condition est une valeur de critère pour selectionner les lignes.
je te conseille de faire la même chose avec un autre critère
en l'absence de d'informations je ne peux pas t'en dire plus.
Ce que tu as écris est juste.
tu arrêtes ta selection en ligne sur la colonne 1 quand tu recontres le terme "Macro".
tu as donc choisis une condition est une valeur de critère pour selectionner les lignes.
je te conseille de faire la même chose avec un autre critère
en l'absence de d'informations je ne peux pas t'en dire plus.
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
31 mars 2009 à 14:51
31 mars 2009 à 14:51
Bonjour,
Y manque rien, bien au contraire... y a beaucoup trop
Mais il faut que la feuille active soit bien la bonne feuille, tu peu remplacer toute les lignes par...
Sheets("NomFeuill".PageSetup.Orientation = xlLandscape
A+
--
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Y manque rien, bien au contraire... y a beaucoup trop
Mais il faut que la feuille active soit bien la bonne feuille, tu peu remplacer toute les lignes par...
Sheets("NomFeuill".PageSetup.Orientation = xlLandscape
A+
--
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
277
31 mars 2009 à 15:50
31 mars 2009 à 15:50
bonjour,
lermite222 t'as donné la solution
essaye ça!
strad = Cells(j, 17).Address
Range(Selection, strad).Select
' attention change le nom de la feuille
Sheets("Feuil1").PageSetup.Orientation = xlLandscape
'supprime le reste
ActiveWindow.SelectedSheets.PrintPreview ' aperçu avant impression
c'est tout!
lermite222 t'as donné la solution
essaye ça!
strad = Cells(j, 17).Address
Range(Selection, strad).Select
' attention change le nom de la feuille
Sheets("Feuil1").PageSetup.Orientation = xlLandscape
'supprime le reste
ActiveWindow.SelectedSheets.PrintPreview ' aperçu avant impression
c'est tout!
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
277
31 mars 2009 à 16:18
31 mars 2009 à 16:18
je te conseillerai de vérifier ta selection dans
Range(Selection, strad).Select
si cela correspond , alors la ligne
Sheets("Feuil1").PageSetup.Orientation = xlLandscape
te donneras une orientation paysage.
et si tu ajoutes cela
cela limite les pages
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 2
End With
bon courage.
Range(Selection, strad).Select
si cela correspond , alors la ligne
Sheets("Feuil1").PageSetup.Orientation = xlLandscape
te donneras une orientation paysage.
et si tu ajoutes cela
cela limite les pages
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 2
End With
bon courage.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
31 mars 2009 à 17:01
31 mars 2009 à 17:01
Si tu veux imprimer tout ce qui est renseigner sur la feuille..
Si tu veux un nombre de colonne bien distinct tu dis
A+
With Sheets("Feuil1") 'Adapter le nom de la feuille
.PageSetup.PrintArea = .Range("A1").SpecialCells(xlCellTypeLastCell).Address
.Orientation = xlLandscape
End With
Si tu veux un nombre de colonne bien distinct tu dis
A+
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
31 mars 2009 à 17:20
31 mars 2009 à 17:20
L'exemple avec le nombre de colonne fixe et toute les lignes renseignées sur la feuille.
Comme ça tu a les deux
A+
Const Colonne = 10 'adapter au nombre de colonnes à imprimer
With Sheets("Feuil1") 'Adapter le nom de la feuille
.PageSetup.PrintArea = Range(.Cells(1, 1), .Cells(.Range("A65536").End(xlUp).Row, Colonne)).Address
.PageSetup.Orientation = xlLandscape
End With
Comme ça tu a les deux
A+
31 mars 2009 à 14:43
Mais j'ai un autre probleme maintenant!!
Grâce à cette sélection je voulais faire une mise en page paysage, mais sa ne marche pas.
Je ne comprend pas pourquoi....????
i = 1
j = 1
Range("A1").Select
While Cells(j, 1) <> "Total"
j = j + 1
Wend
strad = Cells(j, 17).Address
Range(Selection, strad).Select
With ActiveSheet.PageSetup
.LeftHeader = "&8&G"
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "&8&T &D &Z&F &A"
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0.78740157480315)
.BottomMargin = Application.InchesToPoints(0.590551181102362)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With
Manque-t-il des informations??
merci de ton aide