Il y a quelques jours j'avais posé une question pour me déplacer d'une
cellule à une autre en appuyant sur la touche "enter", la réponse suivante
m'avais été apportée :
Bonjour,
Clic droit sur l'onglet de ta feuille et choisis "Visualiser le code" tout
en bas du menu
Dans la feuille blanche ainsi ouverte, tu colles :
Private Sub Worksheet_Change(ByVal Target As Range)
'MPFE le 26/02/2005
'pour l'utilisation de la touche entrée du pavé numérique
Application.OnKey "{Enter}", "va"
'pour l'utilisation de la touche entrée de la zone alpha
Application.OnKey "~", "va"
End Sub
dans la fenêtre de gauche, tu repères le nom de ton classeur, tu cliques
droit dessus et tu choisis
"insertion" puis "module" et tu y colles :
Sub va()
'MPFE le 26/02/2005
'descend de 3 lignes
ActiveCell.Offset(3, 0).Select
End Sub
celà fonctionne bien, mais est ce que quelqu'un pourrait m'aider et
compléter la macro pour qu'elle ne s'applique que dans un classeur déterminé
par exemple "Feuil1"
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anonymousA
re,
tu colles dans le module de feuille pour lequel tu veux que s'exécute ton affaire
Private Sub Worksheet_Deactivate() Application.OnKey "{Enter}" Application.OnKey "~"
End Sub
et dans le module thisworkbook du classeur en question
Private Sub Workbook_Deactivate() Application.OnKey "{Enter}" Application.OnKey "~"
End Sub
A noter un truc amusant, c'est qu'en utilisant les 2 remises au fond à zéro de procédures, il m' fallu à chaque fois un premier evenement avant que ca se remette à marcher. Ce que je veux dire c'est qu'effectivement au changement de feuille l'affectation de ENTER à "va" est interrompue mais quand je retourne sur la feuille en question et que je clique , je n'obtiens pas la 1ere fois l'affectation à "va "mais la 2eme fois et après ca roule. Phénomène étrange sur lequel je me pencherais quand j'aurai le temps.
A+
A+
BONJOUR,
Il y a quelques jours j'avais posé une question pour me déplacer d'une cellule à une autre en appuyant sur la touche "enter", la réponse suivante m'avais été apportée :
Bonjour, Clic droit sur l'onglet de ta feuille et choisis "Visualiser le code" tout en bas du menu Dans la feuille blanche ainsi ouverte, tu colles :
Private Sub Worksheet_Change(ByVal Target As Range) 'MPFE le 26/02/2005 'pour l'utilisation de la touche entrée du pavé numérique Application.OnKey "{Enter}", "va" 'pour l'utilisation de la touche entrée de la zone alpha Application.OnKey "~", "va" End Sub
dans la fenêtre de gauche, tu repères le nom de ton classeur, tu cliques droit dessus et tu choisis "insertion" puis "module" et tu y colles :
Sub va() 'MPFE le 26/02/2005 'descend de 3 lignes ActiveCell.Offset(3, 0).Select End Sub
celà fonctionne bien, mais est ce que quelqu'un pourrait m'aider et compléter la macro pour qu'elle ne s'applique que dans un classeur déterminé par exemple "Feuil1"
merçi et à bientôt !!!!!!
re,
tu colles dans le module de feuille pour lequel tu veux que s'exécute ton
affaire
Private Sub Worksheet_Deactivate()
Application.OnKey "{Enter}"
Application.OnKey "~"
End Sub
et dans le module thisworkbook du classeur en question
Private Sub Workbook_Deactivate()
Application.OnKey "{Enter}"
Application.OnKey "~"
End Sub
A noter un truc amusant, c'est qu'en utilisant les 2 remises au fond à zéro
de procédures, il m' fallu à chaque fois un premier evenement avant que ca se
remette à marcher. Ce que je veux dire c'est qu'effectivement au changement
de feuille l'affectation de ENTER à "va" est interrompue mais quand je
retourne sur la feuille en question et que je clique , je n'obtiens pas la
1ere fois l'affectation à "va "mais la 2eme fois et après ca roule.
Phénomène étrange sur lequel je me pencherais quand j'aurai le temps.
A+
A+
BONJOUR,
Il y a quelques jours j'avais posé une question pour me déplacer d'une
cellule à une autre en appuyant sur la touche "enter", la réponse suivante
m'avais été apportée :
Bonjour,
Clic droit sur l'onglet de ta feuille et choisis "Visualiser le code" tout
en bas du menu
Dans la feuille blanche ainsi ouverte, tu colles :
Private Sub Worksheet_Change(ByVal Target As Range)
'MPFE le 26/02/2005
'pour l'utilisation de la touche entrée du pavé numérique
Application.OnKey "{Enter}", "va"
'pour l'utilisation de la touche entrée de la zone alpha
Application.OnKey "~", "va"
End Sub
dans la fenêtre de gauche, tu repères le nom de ton classeur, tu cliques
droit dessus et tu choisis
"insertion" puis "module" et tu y colles :
Sub va()
'MPFE le 26/02/2005
'descend de 3 lignes
ActiveCell.Offset(3, 0).Select
End Sub
celà fonctionne bien, mais est ce que quelqu'un pourrait m'aider et
compléter la macro pour qu'elle ne s'applique que dans un classeur déterminé
par exemple "Feuil1"
tu colles dans le module de feuille pour lequel tu veux que s'exécute ton affaire
Private Sub Worksheet_Deactivate() Application.OnKey "{Enter}" Application.OnKey "~"
End Sub
et dans le module thisworkbook du classeur en question
Private Sub Workbook_Deactivate() Application.OnKey "{Enter}" Application.OnKey "~"
End Sub
A noter un truc amusant, c'est qu'en utilisant les 2 remises au fond à zéro de procédures, il m' fallu à chaque fois un premier evenement avant que ca se remette à marcher. Ce que je veux dire c'est qu'effectivement au changement de feuille l'affectation de ENTER à "va" est interrompue mais quand je retourne sur la feuille en question et que je clique , je n'obtiens pas la 1ere fois l'affectation à "va "mais la 2eme fois et après ca roule. Phénomène étrange sur lequel je me pencherais quand j'aurai le temps.
A+
A+
BONJOUR,
Il y a quelques jours j'avais posé une question pour me déplacer d'une cellule à une autre en appuyant sur la touche "enter", la réponse suivante m'avais été apportée :
Bonjour, Clic droit sur l'onglet de ta feuille et choisis "Visualiser le code" tout en bas du menu Dans la feuille blanche ainsi ouverte, tu colles :
Private Sub Worksheet_Change(ByVal Target As Range) 'MPFE le 26/02/2005 'pour l'utilisation de la touche entrée du pavé numérique Application.OnKey "{Enter}", "va" 'pour l'utilisation de la touche entrée de la zone alpha Application.OnKey "~", "va" End Sub
dans la fenêtre de gauche, tu repères le nom de ton classeur, tu cliques droit dessus et tu choisis "insertion" puis "module" et tu y colles :
Sub va() 'MPFE le 26/02/2005 'descend de 3 lignes ActiveCell.Offset(3, 0).Select End Sub
celà fonctionne bien, mais est ce que quelqu'un pourrait m'aider et compléter la macro pour qu'elle ne s'applique que dans un classeur déterminé par exemple "Feuil1"
