Problème de macro
Résolu
jc80
Messages postés
4243
Date d'inscription
Statut
Membre
Dernière intervention
-
jc80 Messages postés 4243 Date d'inscription Statut Membre Dernière intervention -
jc80 Messages postés 4243 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai un problème avec cette macro que je n'arrive pas a mettre en place
Je souhaite imprimer un onglet de A1 à AD variable
Est-ce que vous pouvez me dire ce qui ne va pas?
Sub Impression1()
Range("A1:AD").CurrentRegion.Select
ActiveSheet.PageSetup.PrintArea = Range("A1").CurrentRegion.Address
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Je vous remercie
J'ai un problème avec cette macro que je n'arrive pas a mettre en place
Je souhaite imprimer un onglet de A1 à AD variable
Est-ce que vous pouvez me dire ce qui ne va pas?
Sub Impression1()
Range("A1:AD").CurrentRegion.Select
ActiveSheet.PageSetup.PrintArea = Range("A1").CurrentRegion.Address
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Je vous remercie
Configuration: Windows / Firefox 65.0
A voir également:
- Problème de macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
14 réponses
Bonjour michel
Merci pour ta réponse
Qu'entends-tu par défini AD ?
Ma plage commence en A1 jusque la colonne AD ,mais je ne peux pas mettre de cellule ,puisque la
longueur de la plage est variable.
Crdlt
Merci pour ta réponse
Qu'entends-tu par défini AD ?
Ma plage commence en A1 jusque la colonne AD ,mais je ne peux pas mettre de cellule ,puisque la
longueur de la plage est variable.
Crdlt
j'ai un bug sur la 3è ligne
Sub Impression1()
Range("A1:AD72").CurrentRegion.Select
Derlig = Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
ActiveSheet.PageSetup.PrintArea = Range("A1:AD&derligne").CurrentRegion.Address
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Sub Impression1()
Range("A1:AD72").CurrentRegion.Select
Derlig = Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
ActiveSheet.PageSetup.PrintArea = Range("A1:AD&derligne").CurrentRegion.Address
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Toujours un bug ligne3
Sub Impression1()
Range("A1:AD72").CurrentRegion.Select
DerLig = Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
ActiveSheet.PageSetup.PrintArea = Range("A1:AD" & DerLig)
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Sub Impression1()
Range("A1:AD72").CurrentRegion.Select
DerLig = Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
ActiveSheet.PageSetup.PrintArea = Range("A1:AD" & DerLig)
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour à tous,
au plus simple :
eric
au plus simple :
Sub Impression1()
ActiveSheet.PageSetup.PrintArea = Intersect(Range("A1").CurrentRegion, Range("A:AD")).Address
ActiveWindow.SelectedSheets.PrintPreview
End Sub
eric
Bonjour eric
Merci pour ta réponse.
Mes boutons sont sur une feuille autre que les feuilles à imprimer
exemple bouton1 feuille "ouvrir" feuille a imprimer "poste"
Merci pour ta réponse.
Mes boutons sont sur une feuille autre que les feuilles à imprimer
exemple bouton1 feuille "ouvrir" feuille a imprimer "poste"
Bonjour, salut Michel,
tiens, j'ai dû oublier de valider la modif hier... La voici :
eric
tiens, j'ai dû oublier de valider la modif hier... La voici :
Sub Impression1()
With Sheets("poste")
.PageSetup.PrintArea = Intersect(.Range("A1").CurrentRegion, .Range("A:AD")).Address
.PrintPreview
End With
End Sub
eric
Bonjour eric
Cela ne fonctionne toujours pas je te mets un exemple
sur l'aperçu avant impression il n'y a qu'une cellule qui apparait A1
https://mon-partage.fr/f/RoHA0x81/
Si tu peux faire quelque chose cela m'arrangerait bien
Merci pour ton aide
Crdlt
Cela ne fonctionne toujours pas je te mets un exemple
sur l'aperçu avant impression il n'y a qu'une cellule qui apparait A1
https://mon-partage.fr/f/RoHA0x81/
Si tu peux faire quelque chose cela m'arrangerait bien
Merci pour ton aide
Crdlt
Bien évidemment que ça ne fonctionne pas. Je me suis basé sur ce que tu avais écrit : Range("A1").CurrentRegion
Hors A1 est isolée, et tes saisies dispersées aussi...
Toujours déposer un modèle exact si on ne sait pas adapter.
eric
Hors A1 est isolée, et tes saisies dispersées aussi...
Sub Impression1()
With Sheets("poste")
.PageSetup.PrintArea = .Range("A1:AD1").Resize(Sheets("poste").Cells.Find("*", , , , xlByRows, xlPrevious).Row).Address
.PrintPreview
End With
End Sub
Toujours déposer un modèle exact si on ne sait pas adapter.
eric
Bonsoir eric
Ok pour la formule que tu m'as donné je l'ai modifié comme suit en gras et cela ne fonctionne pas J'aimerais avoir le moins de page possible. Pourquoi?
Sub Impression1()
With Sheets("poste")
.PageSetup.PrintArea = .Range("A1:AD1").Resize(Sheets("poste").Cells.Find("*", , , , xlByRows, xlPrevious).Row).Address
.PrintPreview
End With
Orientation=xlLandscape
Zoom=80
End Sub
Crdlt
Ok pour la formule que tu m'as donné je l'ai modifié comme suit en gras et cela ne fonctionne pas J'aimerais avoir le moins de page possible. Pourquoi?
Sub Impression1()
With Sheets("poste")
.PageSetup.PrintArea = .Range("A1:AD1").Resize(Sheets("poste").Cells.Find("*", , , , xlByRows, xlPrevious).Row).Address
.PrintPreview
End With
Orientation=xlLandscape
Zoom=80
End Sub
Crdlt
Bonjour,
met-toi en enregistrement de macro, fait tes 2 actions et arrête l'enregistrement.
Tu auras l'essentiel des méthodes, propriétés et paramètres que tu as besoin, et même beaucoup plus. Trop...
Recherche les 2 propriétés qui t'intéressent. Plus qu'à les insérer correctement dans le With. Fait F1 dessus pour comprendre son fonctionnement, regarde comment la macro l'a utilisé et ce que je t'ai mis comme code.
eric
met-toi en enregistrement de macro, fait tes 2 actions et arrête l'enregistrement.
Tu auras l'essentiel des méthodes, propriétés et paramètres que tu as besoin, et même beaucoup plus. Trop...
Recherche les 2 propriétés qui t'intéressent. Plus qu'à les insérer correctement dans le With. Fait F1 dessus pour comprendre son fonctionnement, regarde comment la macro l'a utilisé et ce que je t'ai mis comme code.
eric
par ex:
Range("A1:AD45")
Pour déterminer la hauteur en se basant paer exemple sue la colonneA
Derlig=Colummns("A").find(what:="*",searchdirection:=xlprevious).row
et tu auras
range("A1:AD" & derlig)