annuler inputbox

[Alex]

Bonjour

Comment faire pour sortir de la procédure lorsque lon click sur le bouton annuler de la combobox??

merci d'avance

 

[Arnaud]

salut,

que veux tu dire par 'sortir de la procédure " ?? ne pas faire le traitement que tu as derrière.

quand on click sur annuler d'un inputbox, celui-ci te renvoi une chaîne de longueur nulle ("").

 

[Pascal76]

Bonjour Alex et le forum

L'appui sur le bouton Annuler d'un inputBox renvoie vide

Donc il faut faire un test du genre

If Mareponse="" then exit sub

Bon courage

Pascal

 

[Alex]

en fait je voudrais que quand je clck sur annuler, le programme derrière ne s'effectue pas
Merci

 

[Alex]

voici mon code :


name:
Myname = InputBox("Veuillez entrer le nom à rajouter ", "AJOUTER")
If Mareponse = "" Then
MsgBox "Vous devez entrez un nom", vbInformation + vbOKCancel
If vbCancel Then
Exit Sub
Else
GoTo name
End If

mais ca me ferme la procédure dans tous les cas
et je ne sait pas comment différencier le bouton ok et annuler de mon inputbox

MErci d'avance

 

[Pascal76]

re alex

ton bouton annuler fais la même chose que si tu ne rentres rien et que tu appuies sur OK

donc dans ton cas il faut choisir

soit tu fais

name:
Myname = InputBox("Veuillez entrer le nom à rajouter ", "AJOUTER")
If Myname = "" Then
MsgBox "Vous devez entrez un nom", vbInformation + vbOKCancel
GoTo name
If vbCancel Then
Exit Sub
Else
GoTo name
End If
End If

soit tu fais

Myname = InputBox("Veuillez entrer le nom à rajouter ", "AJOUTER")
If Mareponse = "" Then exit sub

Bon courage

Pascal

 

[Alex]

merci pascal

mais il y a un pb !

La 1ER methode me fais toujours revenir sur l'inputbox que ce soit pr OK ou Cancel c bizzar car le code a l'air bon

et la 2eme methode
fais ke si on clik sur ok ou annuler de linput box tout sarrete

comment rectifier la première methode??

 

[Pascal76]

Alex

Excuse il y avait des erreurs dans tes variables et en faisant les copier coller je me suis planté et j'avais pas testé (Mea Culpa)

Pour la 2ème méthode . Voici le code

Myname = InputBox("Veuillez entrer le nom à rajouter ", "AJOUTER")
If Myname = "" Then Exit Sub

Pour la 1ere

name:
Myname = InputBox("Veuillez entrer le nom à rajouter ", "AJOUTER")
If Myname = "" Then
marep = MsgBox("Vous devez entrez un nom", vbInformation + vbOKCancel)
If marep = vbCancel Then
Exit Sub
Else
GoTo name
End If
End If


Pascal