Bonjour Forum
J'essai de paramétrer mon inputbox pour lancer mon impression mais cela ne marche pas.
Mon code doit avoir un souci
Sub Impr()
Application.ScreenUpdating = False
Dim T1, T2, T3, T4, w As String
'impressions
w = InputBox("Saisir le Trimestre (T1,T2,T3,T4) : ")
If w = T1 Or w = T2 Or w = T3 Or w = T4 Then
If w = T1 Then
Range("A5:B9").PrintOut Copies:=1, Collate:=True
End If
If w = T2 Then
Range("A11:B15").PrintOut Copies:=1, Collate:=True
End If
If w = T3 Then
Range("D5:E9").PrintOut Copies:=1, Collate:=True
End If
If w = T4 Then
Range("D11:E15").PrintOut Copies:=1, Collate:=True
End If
End If
Application.ScreenUpdating = True
End Sub
Merci de m'eclairer ci joint un fichier test