Excel " Langage VBA "

Résolu
kikou93 Messages postés 416 Date d'inscription   Statut Membre Dernière intervention   -  
kikou93 Messages postés 416 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour ou Bonsoir,

Je suis nouveau dans le langage VBA de excel.

J'ai Crée un macro qui demande de tapez une valeur inferieur a 16 (photo 1)

, si je tape la valeur 16 ou plus il me montre la boîte dialogue suivante (photo 2).

Mon problème et le suivant :

Je veux quand je clique sur Recommencer il me remonte la premier boîte dialogue (photo 1) jusqu'à que je tape une valeur inférieur à 16.

Quand je clique sur "Annuler" la boîte dialogue disparaît simplement.

Voici le macro que j'ai écrit :
-------------------------------------------------------------------------------------------
Sub Tapez()
Dim resultat As Byte

resultat = InputBox("Le nombre maximum de Travée est de 15", "Nombres de Travées", "Taper ici le Nombres de Travées")
If resultat < "16" Then
Range("B2") = resultat
ElseIf MsgBox("Faux", vbRetryCancel + vbDefaultButton1, "Erreur") = bRetry Then
End If
End Sub
-------------------------------------------------------------------------------------------
je ne sais pas si mes explications sont bonnes mais veuillez m'aider s'il vous plaît merci d'avance.
A voir également:

1 réponse

Réponse 1 / 1

 
Bonsoir,

Essaie ça : 

Dim Reponse
  Do
  Reponse = InputBox("Le nombre maximum de Travée est de 15", "Nombres de Travées", "Taper ici le Nombres de Travées")
  If Reponse = "" Then Exit Sub
    If Reponse > 16 Then
       Reponse = InputBox("Mauvaise réponse, Le nombre maximum est 15, essayez encore")
       If Reponse = "" Then Exit Sub
    End If
    
    [A1] = Reponse
  Loop Until Reponse < 16


m@rina
0