VBcancel ds Inputbox?

[CelluleVide]

Bonjour,
Une question bete mais bon je bloque alors:
Sur une inputbox j'ai le bouton "Annuler" mais je ne sais pas sortir de ma macro si je clic dessus Que dois ecrire?

Sub Frm_concat_codeArt()
Range("A1").ClearContents
Dim Separateur As String
Separateur = InputBox("Entrez le separateur de code:" & Chr(13) & Chr(13) & " Par défaut: |", "SEPARATEUR", "|")

' ====> ICI, si click sur Annuler ==> exit Sub.

For Each Cel In Selection
Range("A1") = IIf(Range("A1") = "", Cel.Value, Range("A1") & Separateur & Cel.Value)
Next Cel
End Sub

 

[mromain]

Re : VBcancel ds Inputbox?

bonjour CelluleVide,

j'ai essayé ça sous 2007, ça a l'air de fonctionner :
If Separateur = "" Then Exit Sub

a+

 

[CelluleVide]

Re : VBcancel ds Inputbox?

Bonjour mromain,

Cette solution est paliative car si je ne veux pas de separateur ( concatener par Ex) je ne pourrais plus le faire avec cette macro.

Merci quand meme d'avoir répondu.

A+

 

[mutzik]

Re : VBcancel ds Inputbox?

bonjour,
dans ce cas, je teste d'abord la valeur retournée dans la variable Séparateur en faisant :
Separateur = InputBox("Entrez le separateur de code:" & Chr(13) & Chr(13) & " Par défaut: |", "SEPARATEUR", "|")
msgbox Separateur
et en testant les différentes possibilités
par après, avec les si separateur = vbCancel then exit sub

 

[CelluleVide]

Re : VBcancel ds Inputbox?

Merci Mutzik,

Ca marche comme ça.

Quand j'ai lancer cette question je ne pensais pas avoir levé un point si complexe a gerer. je croyais simplement que la syntaxe d'une instruction du genre " on vbcancel exit sub" m'echappais...

A+