Bien le bonjour le forum,
Voilà, suite à ma première visite avec problématique, j'ai décidé de m'intéresser au VBA, maintenant, d'autant plus que ma supérieur me demande de plus en plus de chose à faire avec.
Voici ma problématique du moment:
j'ai un bouton qui, lors du clique dessus, m'ouvre une InputBox demandant une année en 4 chiffres et qui contient les bouton OK et Annuler.
Ensuite, j'ai une boucle qui intervient si l'entrée de l'InputBox n'est pas comprise en 1000 et 9999 et qui m'ouvre une TextBox qui m'en informe puis, au clique sur OK me renvoi à l'InputBox.
Mon petit soucis vient du bouton Annuler de l'InputBox. Je n'arrive pas à définir, dans la boucle, qu'au clique sur Annuler, ça coupe simplement la procédure.
Je vous met mon bout de code pour vous aider.
Si vous avez une soluce ou au moins une piste, ce serais juste magnifique.
D'avance merci.
Neonours.
Voilà, suite à ma première visite avec problématique, j'ai décidé de m'intéresser au VBA, maintenant, d'autant plus que ma supérieur me demande de plus en plus de chose à faire avec.
Voici ma problématique du moment:
j'ai un bouton qui, lors du clique dessus, m'ouvre une InputBox demandant une année en 4 chiffres et qui contient les bouton OK et Annuler.
Ensuite, j'ai une boucle qui intervient si l'entrée de l'InputBox n'est pas comprise en 1000 et 9999 et qui m'ouvre une TextBox qui m'en informe puis, au clique sur OK me renvoi à l'InputBox.
Mon petit soucis vient du bouton Annuler de l'InputBox. Je n'arrive pas à définir, dans la boucle, qu'au clique sur Annuler, ça coupe simplement la procédure.
Je vous met mon bout de code pour vous aider.
Code:
Sub Bouton1_Cliquer()
'au clique, ouverture de la boite de dialogue annee
Dim annee As Integer
If annee = InputBox("Insérer une année en 4 chiffres", "Année") = vbCancel Then
Exit Sub
'La boite demande l'insertion d'une année en 4 chiffres
Do Until annee > 1000 And annee < 9999
MsgBox "Cette entrée n'est pas valide!" & Chr(10) & "Merci d'entrer une année en 4 chiffres.", 0 + 48, "Entrée invalide"
'si le nombre entré est inférieur à 1000 ou supérieur à 9999 une boite s'ouvre informant que le nombre entré est invalide
annee = InputBox("Insérer une année en 4 chiffres", "Année")
Loop
End Sub
Si vous avez une soluce ou au moins une piste, ce serais juste magnifique.
D'avance merci.
Neonours.