Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Bouton "Annuler" (vba) inactif [RESOLU]

  • Initiateur de la discussion Initiateur de la discussion herve62
  • 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 !

herve62

XLDnaute Barbatruc
Bonjour
Le 1er Pb réglé, un autre se greffe :
Si je rentre un mauvais format de date > message , on recommence ( c'était le 1er pb )
Si ensuite , je veux ANNULER : Impossible , il faut entrer une date , on peut sortir qu'en cliquant 4 , 5 fois sur la X rouge
Ou est l'astuce ? pour que le bouton ANNULER .... annule Bien !!!
Merci
Bon app.
 

Pièces jointes

Dernière édition:
Re : Bouton "Annuler" (vba) inactif

Re
Ce n'est pas l'anglais qui me gêne ... mais le contenu
Undo se traduit par "défaire"
CANCEL serait mieux , ca veut dire Annuler ... et c'est que je cherche
 
Re : Bouton "Annuler" (vba) inactif

Bonjour,

Je répète ce que je te disais dans l'autre fil: tu ne peux pas avoir le beurre, l'argent du beurre et les yeux(pour rester poli) de la crémière🙂

L'évènement BeforeUpdate ou l'évènement Exit se produisent avant même qu'un autre controle reçoive le focus. Dans ton cas il se produiront de toute façon AVANT l'évènement click de ton bouton annuler. On ne peut rien y changer.

Deux solutions et plus:

1 - mettre par défaut une date (date du jour ou dernière date saisie ou autre) dans ton TextBox en cas de mauvaise saisie ce qui donnerait dans l'évènement BeforeUpdate:

Code:
Private Sub DateOperation_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    Cancel = Not IsDate(DateOperation.Text)
     If Cancel Then     ' Test du format DATE
         MsgBox "Format incorrect > jj/mm/aaaa" & (Chr(10) & Chr(13)) & "Ou Date non valide.."
         'Modification sur la ligne suivante:
         DateOperation = Format(Date, "dd/mm/yyyy")
     Else
         DateOperation.Value = DateValue(DateOperation.Value) ' Donne le format exemple :12/03/2013 meme si on rentre 12/03/13
     End If
End Sub

2 - soit controler la saisie avant enregistrement, par exemple sur click du bouton 'Ajouter'.

3 - controler sur évènement change

4 - imaginer autre déroulement de la saisie.

A+
 
Dernière modification par un modérateur:
Re : Bouton "Annuler" (vba) inactif

Slt Hasco
Oui ca devrait aller !! de toute façon le principal était de SORTIR !! propre
Je vais repasser ça au neveu et comme tu dis , s'il est pas content .... il ira voir la crémière
sinon aussi il apprend VBA !!
Je répète ce que je te disais dans l'autre fil: tu ne peux pas avoir le beurre, l'argent du beurre et les yeux(pour rester poli) de la crémière
... je tentais quand même car début 2012 j'ai vu un truc en vba ( ici ou ailleurs ? sais plus) astuce ... resté sur le cul !!!
Donc parfois je me dis que peut-être : TOUT est POSSIBLE ... TOUT est REALISABLE avec Mat..VBA 😀
Merci ,Bon WE
 
- 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
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…