Discussion :

[Thebeginner]

Bonjour tout le monde,

Un grand merci pour votre lecture,

Je cherche à retourner la qualité d'impression d'une feuille excel (activesheet.pagesetup.printquality) qui me ramène les valeurs (-1;-2;-3;-4); Je pourrais bien sur faire une boucle du type:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
if activesheet.pagesetup.printquality = -1 then
   a = "qualité brouillon"
         if activesheet.pagesetup.printquality = -2 then
         a = "qualité ..."
              if....
     ' etc

Mais vu que qu'il n'y a que 4 valeurs possible, il existe sûrement une façon de faire plus courte et plus esthétique...

Je débute et j'avoue ne pas connaitre beaucoup d'autre possibilité que les if.

En vous remerciant pour votre aide

[jfontaine]

Bonjour,

A la place de if imbriqués, on peut utiliser le Select Case

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Select Case activesheet.pagesetup.printquality
   Case -1
      a = "qualité brouillon"
   Case -2
      a = "qualité ..."
    etc..
End Select

[toty44]

Bonjour


Avec select Case

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 select Case activesheet.pagesetup.printquality 
Case= -1
a = "qualité brouillon"
Case=  -2
a = "qualité ..."
ect....
 
End select

regarde avec F1

Toty

jfontaine plus rapide

[Thebeginner]

Eh bien quelle rapidité de réponse...

Un grand merci à vous!

En vous souhaitant une excellente continuation.