Microsoft 365 Sélection de zone d'impression via USF

GALOUGALOU

XLDnaute Accro

• 17 Mai 2020

• #2

bonjour raf26 bonjour le forum
une solution avec un inputbox

Enrichi (BBcode):

Sub Selection_Zone()
    Dim plage As Range
      'L'argument "Type" de cette méthode est ici égale à 8
    'Cela signifie que le type de données saisi dans l'inputbox sera une plage de cellules
       On Error GoTo GestionErreur
    Set plage = Application.InputBox(Prompt:="Sélectionner la zone d'impression", Type:=8)
    ActiveSheet.PageSetup.PrintArea = plage.Address
    ActiveSheet.PrintPreview
GestionErreur:
End Sub

cordialement
galougalou

 

Pièces jointes

• test2.xlsm

  88.6 KB · Affichages: 5

Vote positif 0 Vote négatif

R

raf26

XLDnaute Occasionnel

• 17 Mai 2020

• #3

Bonjour Galougalou,

Top ! Merci !!!

Je souhaite toutefois que les mois soient "cliquables" dans une liste, cela évite des mauvaises saisies (avec ou sans accent, etc...).

Je vais essayer d'adapter.

Merci à toi😉

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 17 Mai 2020

• #4

Bonjour
comme ca a l'arrache tu te fait un dialog pour tes plages nommées dans un userform
tu coche ce que tu veux imprimer
te reste plus qu'a arranger cela a ta sauce 1 coup de peinture de papier peint , ponce un peu les angles avant etc....

 

Pièces jointes

• test.xlsm

  97.8 KB · Affichages: 4

Vote positif 0 Vote négatif

R

raf26

XLDnaute Occasionnel

• 17 Mai 2020

• #5

Bonjour Patricktoulon

trop facile pour toi 🙂

comme ca a l'arrache

Cliquez pour agrandir...

Ça marche nickel merci !!!!

une question : est-il possible de classer alphabétiquement les plages ou n’en sélectionner que quelques unes ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 17 Mai 2020

• #6

raf26 à dit:

Bonjour Patricktoulon

trop facile pour toi 🙂



Ça marche nickel merci !!!!

une question : est-il possible de classer alphabétiquement les plages ou n’en sélectionner que quelques unes ?

Cliquez pour agrandir...

re
ben je pige pas ta question en fait
toutes les ranges sélectionnées avec les checkboxs seront imprimées celles qui ne ne le sont pas ne seront pas imprimées
sélectionne en plusieurs tu verra et dans l'aperçu page suivante ou précédente tu les verra
pour l'ordre c'est quoi exactement ton souhait

 

Vote positif 0 Vote négatif

R

raf26

XLDnaute Occasionnel

• 17 Mai 2020

• #7

Re Patricktoulon

Je me suis mal exprimé, en effet.

je voulais parler de l’affichage par ordre alphabétique dans les checkbox
ou pouvoir choisir les plages qui apparaissent dans les chekbox (certaines ne sont pas à imprimer)

toutes les ranges sélectionnées avec les checkboxs seront imprimées celles qui ne ne le sont pas ne seront pas imprimées

Cliquez pour agrandir...

ça c’est ok

sélectionne en plusieurs tu verra et dans l'aperçu page suivante ou précédente tu les verra

Cliquez pour agrandir...

et ça aussi ok

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 17 Mai 2020

• #8

a ok
je parierais a 10 contre 1 que se sont uniquement le "z"+mois que tu veux

 

Vote positif 0 Vote négatif

R

raf26

XLDnaute Occasionnel

• 17 Mai 2020

• #9

bingo

PatrickToulon grand Maître de la magie noire peut deviner vos pensées !
(euh ... trouver l’amour et guérir aussi ?🙂🙂)

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 17 Mai 2020

• #10

re
non il n'y a rien de magique, ça coule de source c'est tout on arrive facilement a deviner tes intention avec ta question et ce fichier
je regarde ca pour répondre aux deux questions

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 17 Mai 2020

• #11

re
bon j'ai regardé c'est faisable mais pour automatiser le choix il aurais été bien que les mois soient correctement orthographiés
obligé de faire des corrections dynamique d'accents

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 17 Mai 2020

• #12

le voila un peu arrangé avec un beau bouton
que les mois et dans l'ordre et toujours dynams'

 

Pièces jointes

• test.xlsm

  94.3 KB · Affichages: 9

Vote positif 0 Vote négatif

R

raf26

XLDnaute Occasionnel

• 18 Mai 2020

• #13

Re Patrickoulon

Bah un grand merci à toi, fichier opérationnel, c'est super sympa de ta part.

Bravo et merci !

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 18 Mai 2020

• #14

bonjour raf26
de rien 😉

 

Vote positif 0 Vote négatif