Assigner une macro à ENTER

[Roger06]

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.

 

[philippe]

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

 

[Roger06]

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.

 

[myDearFriend]

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

 

[Philippe]

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...

 

[Philippe]

j'avais pas tout bien débugué, le secon envoi fonctionne parfaitement...
Salut...

 

[edenblum]

salut philippe,

ton fichier m'intéresse également. Pourrais tu me le fournir également stp