OVH Cloud OVH Cloud

macro associer à une colonne

2 réponses
Avatar
JACK 43
Bonjour,

Voilà, j'ai une macro qui me convient mais que partiellement.

Je m'explique : je dois entrer sur environ 20 colonnes (ligne par ligne) des
données dans une feuille.
Il doit y avoir environ 500 lignes par feuille.

Donc j'ai fais une petite macro qui lorsque je clique sur la touche "enter"
du clavier alphabétique je me retrouve au début de la ligne suivante.

Application.OnKey "~", "vat"
Sub vat()
ActiveCell.Offset(2, -19).Select
End Sub

Le problème c'est lorsque je ne suis pas dans la colonne Y, je fais un
"saut" de 2 lignes en dessous et 19 colonnes sur la gauche. Pas trés grave
lorsque si je suis au delà de la colonne Y, en revanche si je suis avant celà
génère tot à fait normement un message d'erreur.

Si quelqu'un pouvait m'aider je suis "débutant en macro".

Je souhaiterais, si celà est possible, que cette macro s'exécute que lorsque
je suis dans la colonne Y (macro associé à une colonne).

2 réponses

Avatar
Francois
Bonjour,

Voilà, j'ai une macro qui me convient mais que partiellement.

Je m'explique : je dois entrer sur environ 20 colonnes (ligne par ligne) des
données dans une feuille.
Il doit y avoir environ 500 lignes par feuille.

Donc j'ai fais une petite macro qui lorsque je clique sur la touche "enter"
du clavier alphabétique je me retrouve au début de la ligne suivante.




Bonjour,

Pas besoin de macro pour ça.

Quand tu fais ta saisie, si tu utilise la touche "Tabulation" pour aller
à la colonne suivante, à la fin de ta ligne, utilises la touche "entrée"
et tu reviendras automatiquement à la première colonne de la ligne suivante.

--
François L

Avatar
JB
Bonjour,

A placer dans l'événement WorkSheet_Change() de la feuille:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column Then
Target.Offset(1, -(Target.Column - 1)).Select
End If
Application.EnableEvents = True
End Sub

Cordialement JB