"Annuler" dans inputbox

Dranreb

XLDnaute Barbatruc

• 5 Mars 2012

• #2

Re : "Annuler" dans inputbox

Bonjour
Testez par rapport à une chaine vide ("")
Mais voyez s'il ne vaudrait pas mieux affecter la réponse d'abord à une variable déclarée As String avant de l'affecter à votre cellule.
Cordialement.

Bonjour Robert.

 

Dernière édition: 5 Mars 2012

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 5 Mars 2012

• #3

Re : "Annuler" dans inputbox

Bonjour Bob, bonjour le forum,

Peut-ête comme ça :

Code:

dat = InputBox("Ecrire la date au format jj/mm/aa puis cliquer sur OK", "DATE")
If dat = "" Then GoTo 1
Range("B5").Value = CDate(dat)

[Édition]
Bonjour Bernard on s'est croisé...

 

Vote positif 0 Vote négatif

gfortin9

XLDnaute Occasionnel

• 5 Mars 2012

• #4

Re : "Annuler" dans inputbox

Allô!

Si je peux me permettre :

Code:

Sub test3()
Dim dat As String

dat = InputBox("Ecrire la date au format jj/mm/aa puis cliquer sur OK", "DATE")
 If dat = "" Then GoTo 1
 Range("B5").Value = CDate(dat)
 GoTo Fin

1:    MsgBox "Traitement désiré si annulation"
 
Fin:  MsgBox "Laisser vide si simplement terminé ou autre traitement désiré avec une condition ou l'autre"

End Sub

GF

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 5 Mars 2012

• #5

Re : "Annuler" dans inputbox

Bonjour le fil, bonjour le forum,

Oui Gfortin, on peut extrapoler encore pendant des siècles mais si Bob n'a pas souhaité mettre la suite du code c'est parce qu'il n'en avait pas besoin... Enfin je pense ! Allô, allô... M... Ça a coupé...

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 5 Mars 2012

• #6

Re : "Annuler" dans inputbox

Bonjour bbobb, Dranreb, gfortin9, Robert 🙂 ,__Un classeur qui explique pourquoi je n'aime pas les inputbox 🙂)__Trop de lignes pour si peu...Cordialement

 

Pièces jointes

• inputbox_bbobb.xls

  21.5 KB · Affichages: 45

Vote positif 0 Vote négatif

B

bbobb

XLDnaute Occasionnel

• 5 Mars 2012

• #7

Re : "Annuler" dans inputbox

Bonjour à tous : n'en jetez plus, j'ai tout ce qu'il faut...
Merci à tous, même à ceux qui extrapolent, ça fait des idées pour d'autres tableaux.

Bonne journée à tous
Bbobb

 

Vote positif 0 Vote négatif