nombre Impression auto selon valeur cellule

poussy67

XLDnaute Occasionnel
Bonjours le forum

Est il possible de réaliser réaliser des impression selon la valeur d'une cellule.
exemple: dans la cellule A1 j'ai un chiffre 2 qui excute 2 impression.
Sur le forum j'ai trouvé un code qui me permet d'imprimer si dans la cellule il y a une valeur mais j'ai essayer plusieur possibilté mais rien a faire

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NbCopies As Integer
If Target.Address = "$A$1" Then 'à adapter à ton cas
If Target.Value = 1 Then
ActiveWindow.SelectedSheets.PrintOut , Copie=1, Collate:=True
End If
End If
End Sub

ma dernier modif dans le genre est

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NbCopies As Integer
If Target.Address = "$A$1If Target.Value > 0 Then
NbCopies = Sheets("Feuil1").Range("a1").Value
ActiveWindow.SelectedSheets.PrintOut , NbCopies, Collate:=True
End If
End If
End Sub

mais il me réalise q'une

Cdt poussy
 

Caillou

XLDnaute Impliqué
Re : nombre Impression auto selon valeur cellule

Bonjour,

La procédure que tu utilise est une procédure évenementielle (sur changement dans la feuille) et je ne pense pas que cela corresponde à ce que tu veux.
Dans ton cas, si le nbre de copies est indiqué dans la cellule A1 alors la procédure est :

Sub Imprimer
Dim NbCopies As Integer
NbCopies = Range("A1").Value
If NbCopies > 0 Then
ActiveWindow.SelectedSheets.PrintOut , NbCopies, Collate:=True
End If
End Sub

JP
 

Discussions similaires

Statistiques des forums

Discussions
312 023
Messages
2 084 713
Membres
102 637
dernier inscrit
TOTO33000