Condition dans une fenêtre de saisie

[Ilino]

Bonsoir Forum
ci dessous un code de saisi , je souhaiterai ajouter une condition lors de la saisie
la condition : accepter que les nombre de 4 chiffres ??
est il possible ??
GRAZIE

Sub Saisie()
Dim Reponse As Integer
Reponse = InputBox("Veuillez entrer une année pour calculer le montant")
[AG3] = Reponse
MsgBox " Toutes les montants des mois  vont être calculés pour l'année  " & Reponse & vbCrLf & "Et si vous voulez changer l'année cliquer sur le bouton < Montant > "
End Sub

 

[Ilino]

Re : Condition dans une fenêtre de saisie

Re
il faudrait ajouter une condition préalable que la valeur saisie dans la boite de dialogue soit un nombre de à' chiffres ( exemple 2001, 2012? 2013 ...Etc)
Merci

 

[Ilino]

Re : Condition dans une fenêtre de saisie

Bonsoir Forum
Puis je avoir vos remarques?
merci

 

[mapomme]

Re : Condition dans une fenêtre de saisie

Bonsoir Ilino,

Essayez:

Sub Saisie()
Dim Reponse
Do
  Reponse = InputBox("Veuillez entrer une année pour calculer le montant")
  If IsNumeric(Reponse) Then
    Reponse =Int(--Reponse)
    If Reponse >= 1000 And Reponse <= 9999 Then
      [AG3] = Reponse
      Exit Do
    End If
  End If
Loop
MsgBox " Toutes les montants des mois  vont être calculés pour l'année  " & _
Reponse & vbCrLf & "Et si vous voulez changer l'année cliquer sur le bouton < Montant > "
End Sub

 

[Ilino]

Re : Condition dans une fenêtre de saisie

Bonsoir Mapomme
merci pour la réponse, j'ai remplacé la ligne suivante de ton code

Reponse = InputBox("Veuillez entrer une année pour calculer le montant")

par cette ligne

Reponse = Application.InputBox("Veuillez entrer une année pour calculer le montant ", "Calcule des Montants_FSE_2013 :", Type:=1)

donc j'aurai

Sub Saisie()
Dim Reponse
Do
 'Reponse = InputBox("Veuillez entrer une année pour calculer le montant")
  Reponse = Application.InputBox("Saisie l'année pour calculer le montant ", "Calcule des Montants_FSE_2013 :", Type:=1)
  If IsNumeric(Reponse) Then
    Reponse = Int(--Reponse)
    If Reponse >= 1000 And Reponse <= 9999 Then
      [AG3] = Reponse
      Exit Do
    End If
  End If
Loop
MsgBox " Toutes les montants des mois  vont être calculés pour l'année  " & _
Reponse & vbCrLf & "Et si vous voulez changer l'année cliquer sur le bouton < Montant > "
End Sub

ça fonctionne très bien seulement dans le cas ou je fais pas rentrer une date et je clique sur ok j'airai un message !!!!!
a+