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

Assigner une macro à ENTER

R

Roger06

Guest
Bonjour à tous les passionnés d'Excel.
Quelcun pourrait-il me dépanner et me dire comment assigner une macro aux deux touches ENTER du clavier.
Après avoir saisi une date soit dans une cellule soit dans une TextBox j'aimerai en appuyant sur ENTER, accèder directement à la feuille du mois correspondant à cette date.(1 Workbook contenant 12+2 Worwsheets).
Merci d'avance.
 
P

philippe

Guest
A mon avis in va falloir mettre dans ta feuille une routine "On_worksheet_change" qui va aller lire la variable date et ouvrir
worksheet(ta variable).
Comme c'est une routine WOORKSHEET_Change, elle sera lancée à chaque changement de la feuille, donc à chaque fois que tu appuiera sue ENTER

Philippe
 
R

Roger06

Guest
Merci Philippe
Je vais essayer ta solution ...pas ce soir car j'en ai déjà plein la tête, mais je m'y atèle dès demain et je t'en dirai des nouvelles.
Merci encore.
 
M

myDearFriend

Guest
Bonsoir Roger06, Philippe,


Je pense que la façon la plus simple serait de partir d'une TextBox (insérée directement dans la feuille ou dans un UserForm) et de contrôler l'événement KeyUp() de cette dernière :

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim F As Worksheet
   If KeyCode = 13 Then
      On Error Resume Next
      Set F = ThisWorkbook.Sheets(Val(TextBox1.Text))
      On Error GoTo 0
      If Not F Is Nothing Then
         F.Activate
      Else
         MsgBox "Feuille inexistante !"
      End If
   End If
End Sub


Cordialement.

Didier_mDF
 
P

Philippe

Guest
Je t'envoie ds ta boite à lettres le classeur qui fait ce que tu demandes.
dans mon exemple je saisis uniquement le mois, mais tu peux modifier à volonté, par exemple extraire le mois d'une date complète....
Good night...
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…