altinea
XLDnaute Accro
Bonsoir, le forum,
j'ai 4 macro qui font la même chose, mais je ne sais pas comment faire pour n'en faire qu'une seule, pouvez vous m'aider
Sub 1()
If Sheets("MP").Range("D11").Value = 0 Then
Exit Sub
End If
Sheets("A").PrintOut Copies:=Sheets("MP").Range("D11")
End Sub
Sub 2()
If Sheets("MP").Range("E11").Value = 0 Then
Exit Sub
End If
Sheets("B").PrintOut Copies:=Sheets("MP").Range("E11")
End Sub
Sub 3()
If Sheets("MP").Range("G11").Value = 0 Then
Exit Sub
End If
Sheets("C").PrintOut Copies:=Sheets("MP").Range("G11")
End Sub
Sub 4()
If Sheets("MP").Range("F11").Value = 0 Then
Exit Sub
End If
Sheets("D").PrintOut Copies:=Sheets("MP").Range("F11")
End Sub
Merci pour votre aide
j'ai 4 macro qui font la même chose, mais je ne sais pas comment faire pour n'en faire qu'une seule, pouvez vous m'aider
Sub 1()
If Sheets("MP").Range("D11").Value = 0 Then
Exit Sub
End If
Sheets("A").PrintOut Copies:=Sheets("MP").Range("D11")
End Sub
Sub 2()
If Sheets("MP").Range("E11").Value = 0 Then
Exit Sub
End If
Sheets("B").PrintOut Copies:=Sheets("MP").Range("E11")
End Sub
Sub 3()
If Sheets("MP").Range("G11").Value = 0 Then
Exit Sub
End If
Sheets("C").PrintOut Copies:=Sheets("MP").Range("G11")
End Sub
Sub 4()
If Sheets("MP").Range("F11").Value = 0 Then
Exit Sub
End If
Sheets("D").PrintOut Copies:=Sheets("MP").Range("F11")
End Sub
Merci pour votre aide