Fermet une inputbox avec annuler

[geroczt]

Bonjour à tous,
il se trouve que j'ai un problème sur une inputbox. L'intputbox s'affiche quand je selectionne une cellule et que je clique sur un bouton. Cette inbox permet de mettre une date dans la cellule selectionnée. Or j'ai un ploblème je ne sais pas comment faire le code pour fermer l'inputbox avec le bouton annuler ou par la croix sans avoir de problème.

Voici le code que j'utilise:

Dim choix As Variant
Range(ActiveCell, ActiveCell.Offset(0, 0)) = CDate(InputBox("Ecrire la date de la réunion au format jj/mm/aa puis cliquer sur OK", "DATE"))
With Selection
.Font.Bold = True
.HorizontalAlignment = xlCenter
.Font.ColorIndex = 10
End With
If Message = "" Then Exit Sub

Merci de votre aide

geroc

 

[WUTED]

Re : Fermet une inputbox avec annuler

Bonjour geroczt,

Une vérification avant d'appeler CDate devrait suffire :

Dim choix As Variant
Dim str As String
str = InputBox("Ecrire la date de la réunion au format jj/mm/aa puis cliquer sur OK", "DATE")
If str <> "" Then
    Range(ActiveCell, ActiveCell.Offset(0,0)) = CDate(str)
    With Selection
        .Font.Bold = True
        .HorizontalAlignment = xlCenter
        .Font.ColorIndex = 10
    End With
End If

Offset(0,0)?

Bonne journée,
WUTED

 

[geroczt]

Re : Fermet une inputbox avec annuler

Ca ne sert à rien, c'était juste pour choisir des cellules à côté.

je t'en prie

bonne journée

 

[WUTED]

Re : Fermet une inputbox avec annuler

je t'en prie