AMELIORATION d'une Macro

Bonjour,

Dans la macro ci-dessous, quelle commande supplémentaire dois-je mettre pour éviter qu'un message d'erreur s'affiche quand la valeur n'est pas donnée et que je clique sur oui

Merci de votre aide[/b]

Sub CombienDePages()

Range("J199").Select

Selection.Copy

Range("J1").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

Dim resultat As String

resultat = InputBox("Combien de pages doit comporter cette facture ?" & Chr(10) & _

"Attention, seules les valeurs 1 - 2 - 3 - 4 et 5 seront acceptées", "SARL QUI VA BIEN")

If resultat = 1 Then

Call Page1

Else

If resultat = 2 Then

Call Page2

Else

If resultat = 3 Then

Call Page3

Else

If resultat = 4 Then

Call Page4

Else

End If

End If

End If

End If

End Sub[/size]

Bonjour,

Un essai ...

Sub CombienDePages()
Dim Resultat As String

   Range("J199").Copy
   Range("J1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                     :=False, Transpose:=False

   Resultat = InputBox("Combien de pages doit comporter cette facture ?" & Chr(10) & _
                       "Attention, seules les valeurs 1 - 2 - 3 - 4 et 5 seront acceptées", "SARL QUI VA BIEN")

   Select Case Resultat
   Case 1
      Call page1
   Case 2
      Call page2
   Case 3
      Call page3
   Case 4
      Call page4
   Case 5
      Call page5
   End Select
End Sub

ric

Merci RIC ! encore une fois mission accomplie !!!