Gérer le bouton annuler ImputBox Fermé

Question

Bonjour tout le monde, 

J'aimerais gérer le bouton annuler de mon imputbox et j'ai trouvé une solution mais elle ne fonctionne pas trop, si j'appuie sur annuler, ma msgbox s'affiche et ça quitte, jusque là tout va bien 
mais même si je rentre ce qu'il faut et que j'appuie sur OK ma msgbox de mon annuler s'affiche et ça quitte :( 

VOICI MON CODE 
_____________________________________________
Dim adresse As String, compteur As Integer

    compteur = 1 'permet de gérer le bouton annuler sans boucle infinie (genre case absolument obligatoire -- )
     
    adresse = InputBox("Veuillez entrer le nom et l'adresse du chantier étudié svp", "Nom et adresse") 'La variable adresse reçoit la valeur entrée dans l'InputBox
    Worksheets("Extraction").Activate
    Cells(1, 2).Value = adresse
    Worksheets("Soufflage").Activate
    Cells(1, 2).Value = adresse 'ces 4 lignes permettent de copier le contenu dans une ou plusieurs cellules
    Do While Len(adresse) = 0
        compteur = compteur + 1
        If compteur = 2 Then GoTo NePasContinuer
            MsgBox "Cette donnée est obligatoire. Plus que " & 2 - compteur & " essais."
        adresse = InputBox("Veuillez entrer le nom et l'adresse du chantier étudié svp", "Nom et adresse") 'La variable adresse reçoit la valeur entrée dans l'InputBox
        Worksheets("Extraction").Activate
        Cells(1, 2).Value = adresse
        Worksheets("Soufflage").Activate
        
    Loop
NePasContinuer:
MsgBox "Ok, on verra ça plus tard."

        Exit Sub

__________________________________________________

J'imagine que l'erreur viens du Exit Sub mais je sais pas :(

ccm81 · Answer

Bonjour Un exemple Const NbEssaisMax = 3Public Sub OK()Dim compteur As Long, adresse As Stringadresse = ""compteur = NbEssaisMaxWhile adresse = "" And compteur <> 0 adresse = InputBox("Chantier étudié", "Nim et adresse ?") If adresse = "" Then compteur = compteur - 1 If compteur <> 0 Then MsgBox "il vous reste " & compteur & " essais" End IfWendIf adresse = "" Then MsgBox "on verra plus tard"Else Sheets("Extraction").Cells(1, 2) = adresse Sheets("Soufflage").Cells(1, 2) = adresseEnd IfEnd Sub Cdlmnt

ccm81 · Answer

1. Public Sub OK()
C'est la déclaration de la procedure OK, je l'ai mise dans un module général (Module 1 par exemple) et déclarée publique pour qu'on puisse y avoir accès de n'importe où.
2. compteur <> 0
Pour compteur différent de 0
Au départ, compteur = nombre d'essais maxi
puis 
Tant que adresse est vide et que compteur est différent de 0
on fait un truc
on décrémente compteur (compteur = comteur-1)
Donc la boucle est terminée dès que adresse n'est pas vide ou que compteur est egal à 0

Cdlmnt

Gérer le bouton annuler ImputBox

2 réponses

Discussions similaires