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
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