Impression

[VpierreV]

Bonjour à tous,

J'ai une question relative à l'impression.
Je vous décrit ce que j'aimerais faire avec un exemple :
"Si A33=1, j'imprime la page 1.
Sinon, j'imprime les pages 1 à 4." (ou Si A33=2 par exemple)

Est-ce possible?

Merci à ceux qui répondront.

P.S : je ne maîtrise pas du tout vba, donc je recherche d'abord une solution via Excel...

 

[GeoTrouvePas]

Re : Impression

Bonjour,

Désolé mais tu ne pourras pas effectuer cette opération sans passer par vba. Il est donc temps pour toi de faire tes premiers pas dans vba . Pour te faciliter la tache, voici le code à copier / coller dans un module :

Sub Impression()

If Cells(33, 1) = 1 Then
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Else
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=4, Copies:=1
End If

End Sub

Bonne journée

 

[VpierreV]

Re : Impression

Merci âme charitable pour cette réponse rapide!

Je ne veux pas paraître pour quelqu'un qui attend qu'on lui fasse tout, mais du coup comme je suis "plongé" dans vba, peux-tu me rajouter les modifications du code pour faire :
"Si A33=1, imprimer page 1 de Données et page 1 de Résultats.
Sinon, imprimer page 1 de Données et pages 1 à 4 de Résultats."
Données et Résultats étant des noms de feuilles.

Merci

Je suppose qu'il faut juste changer le "ActiveWindow" et rajouter un "And", mais je ne sais pas quoi mettre à la place du "ActiveWindow"...

 

[GeoTrouvePas]

Re : Impression

Re,

Voici le code modifé :

Sub Impression()

ThisWorkbook.Sheets("Données").PrintOut From:=1, To:=1, Copies:=1
If ThisWorkbook.Sheets("[COLOR="Red"]NomDeLaFeuilleAPreciser[/COLOR]").Cells(33, 1) = 1 Then
    ThisWorkbook.Sheets("Résultats").PrintOut From:=1, To:=1, Copies:=1
Else
    ThisWorkbook.Sheets("Résultats").PrintOut From:=1, To:=4, Copies:=1
End If

End Sub

Je serai toi, je préciserez tout de même le nom de la feuille contenant cette fameuse cellule A33 (indiqué en rouge dans le code.

Bonne journée

 

[VpierreV]

Re : Impression

Oui effectivement, ça me parait intelligent de préciser le nom de la feuille, merci!

Bon ben, tout ça c'est nickel, je te remercie bien!
Et vive vba!

Bonne journée