XL 2013 Validation avec Tabulation

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

Phio79

XLDnaute Nouveau
Bonjour à tous,

J'ai mis dans Excel 2013 la procédure ci-dessous dans "Thisworkbook"
Quand on modifie une cellule, elle met la date et l'heure dans la cellule à sa droite
Mon problème est que la validation doit se faire avec la touche Entrée, sinon la macro ne fonctionne pas.
Je souhaiterai que la touche Tabulation soit prise en compte.
Je ne suis pas spécialiste des macro, est-ce que c'est possible.
Merci d'avance pour vos réponse ;-)

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
' Procedure pour mettre une date automatiquement à la création et non modifiable

' On met la date + heure à droite
ActiveSheet.Unprotect
ActiveCell.Offset(-1, 1).Select
ActiveCell = Format(Now, "yyyy/mm/dd hh:mm:ss")
ActiveSheet.Protect
ActiveCell.Offset(0, -1).Select
End Sub
 
Bonjour Dranreb, merci pour ta réponse, peux-tu préciser les 2 éléments de ta réponse car je ne maitrise pas le langage VBA et depuis les dernières mises à jour Windows 10 je n'ai plus accès à l'aide en ligne
Capture d'écran 2019-06-11 11.59.10.png

Merci d'avance.
 
Essayez comme ça :
VB:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not TypeOf Sh Is Worksheet Then Exit Sub
Sh.Unprotect
Application.EnableEvents = False
With Target.Offset(0, 1)
   .Value = Now: .NumberFormat = "yyyy/mm/dd hh:mm:ss": End With
Application.EnableEvents = True
Sh.Protect
End Sub
 
- 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
5
Affichages
235
Réponses
16
Affichages
1 K
Réponses
21
Affichages
2 K
Retour