Paramettrer Inputbox

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

4impr.xlsm (16.02 Ko)

Bonjour,

Essaie ainsi :

Sub Impr()
Dim Answer As String
Dim rng As Range
    Application.ScreenUpdating = False
    Answer = InputBox("Saisir le Trimestre (1 à 4) : ")
    If Answer <> "" Then
        Select Case CByte(Answer)
            Case 1: Set rng = Range("A5:B9")
            Case 2: Set rng = Range("A11:B15")
            Case 3: Set rng = Range("D5:E9")
            Case 4: Set rng = Range("D11:E15")
            Case Else: Exit Sub
        End Select
        rng.PrintOut Copies:=1, preview:=True    ', Collate:=True
    End If
End Sub

Merci CHEF

C'est exactement EXACT

Re,

Pense à clore le sujet.

Cdlt.

Rechercher des sujets similaires à "paramettrer inputbox"