macro impression

Question

bonjour à tous,
j'ai 1 p'tit souci .
j'ai 5 feuilles excel, 1,2,3,4,5.
je cherche 1 macro qui me permette d'imprimer la feuille1 si la cellule B 20 = "x", la feuille 2 si la cellule b22="x",...en 2  exemplaires.
merci de me donner des orientations.
amicalement

jrivet · Answer

Salut,

OU est ce que tu coinces exactement?

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée, Règlement/FONT>

mortalino · Answer

Salut,

Dans 
Private Sub Selection_Change()
  If ActiveSheet.Range("B20").Text = "x" Then
    ActiveSheet.PrintOut From:=1, To:=1, Copies:=2
  ElseIf ActiveSheet.Range("B22").Text = "x" Then
    Sheets("Feuil2").PrintOut From:=1, To:=1, Copies:=2
  ElseIf etc.....
  End If
End Sub

@++

  --Mortalino-- 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

mortalino · Answer

Je pense que le From ... To sera obsolète (car le PrintOut est attaché à une feuille.

De plus, dans "Sheets("Feuil2").PrintOut From:=1, To:=1, Copies:=2"
il faut lire  "Sheets("Feuil2").PrintOut From:=2, To:=2, Copies:=2"
(erreur dans le from ... To) et ce sera ainsi de suite !

@++

  --Mortalino-- 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

darib52 · Answer

merci à vous.
je teste
amitiés

Macro impression

4 réponses

Votre réponse

Discussions similaires