Fermet une inputbox avec annuler

  • Initiateur de la discussion Initiateur de la discussion geroczt
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

geroczt

XLDnaute Nouveau
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
 
Dernière édition:
Re : Fermet une inputbox avec annuler

Bonjour geroczt,

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

VB:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
22
Affichages
3 K
Réponses
2
Affichages
1 K
Retour