OVH Cloud OVH Cloud

Déplacement du curseur

5 réponses
Avatar
ThierryP
Rebonjour tout le monde !!

Je vois que les pros sont là, donc je vais surement avoir une réponse à
mon petit souci :
Dans mon appli, utilisée par des néophytes absolus, je protège la
feuille et ne déverrouille que les cellules nécessaires à la saisie;
donc quand on saisit une valeur, le curseur se déplace sur la cellule du
dessous. Comme je gère le worksheet_change, la cellule de référence est
celle sous la saisie, et elle est vide....donc ça ca pas comme je veux.

Gràce à la réponse de John, je pense pouvoir gérer
worksheet_selectionchange pour remonter le curseur d'un cran, mais n'y
aurait-il pas une solution plus directe ???

Encore une fois mille mercis à tous ceux qui ont une solution

@+ thierryp :-))

5 réponses

Avatar
Youky
Menu-Outils-Option-Modification déplacer la sélection-sens(à choisir)
Attention je crois que cela agit sur tous les classeurs (non testé)
Youky

"ThierryP" a écrit dans le message de
news:
Rebonjour tout le monde !!

Je vois que les pros sont là, donc je vais surement avoir une réponse à
mon petit souci :
Dans mon appli, utilisée par des néophytes absolus, je protège la
feuille et ne déverrouille que les cellules nécessaires à la saisie;
donc quand on saisit une valeur, le curseur se déplace sur la cellule du
dessous. Comme je gère le worksheet_change, la cellule de référence est
celle sous la saisie, et elle est vide....donc ça ca pas comme je veux.

Gràce à la réponse de John, je pense pouvoir gérer
worksheet_selectionchange pour remonter le curseur d'un cran, mais n'y
aurait-il pas une solution plus directe ???

Encore une fois mille mercis à tous ceux qui ont une solution

@+ thierryp :-))


Avatar
ThierryP
Merci d'avoir répondu mais en fait j'ai trouvé...
Cette option est bien désactivée et c'est effectivement pour tous les
classeurs.
Dans mon cas, je change de ligne dans worksheet_activate et comme je
fais un tri sur une autre feuille et que je reviens sur ma feuille
initiale...ça l'active.
Ce qui amène une question subsidiaire : Peut-on faire la différence
entre les actions de l'utilisateur (changer d'onglet avec la souris
p.ex) et celles effectuées par VBA ???

Merci d'avance

Thierry


Menu-Outils-Option-Modification déplacer la sélection-sens(à choisir)
Attention je crois que cela agit sur tous les classeurs (non testé)
Youky

"ThierryP" a écrit dans le message de
news:

Rebonjour tout le monde !!

Je vois que les pros sont là, donc je vais surement avoir une réponse à
mon petit souci :
Dans mon appli, utilisée par des néophytes absolus, je protège la
feuille et ne déverrouille que les cellules nécessaires à la saisie;
donc quand on saisit une valeur, le curseur se déplace sur la cellule du
dessous. Comme je gère le worksheet_change, la cellule de référence est
celle sous la saisie, et elle est vide....donc ça ca pas comme je veux.

Gràce à la réponse de John, je pense pouvoir gérer
worksheet_selectionchange pour remonter le curseur d'un cran, mais n'y
aurait-il pas une solution plus directe ???

Encore une fois mille mercis à tous ceux qui ont une solution

@+ thierryp :-))







Avatar
Youky
Compément
Private Sub Worksheet_Change(ByVal Target As Range)
Range(Target.Address).Select
End Sub

"Youky" a écrit dans le message de news:

Menu-Outils-Option-Modification déplacer la sélection-sens(à choisir)
Attention je crois que cela agit sur tous les classeurs (non testé)
Youky

"ThierryP" a écrit dans le message de
news:
Rebonjour tout le monde !!

Je vois que les pros sont là, donc je vais surement avoir une réponse à
mon petit souci :
Dans mon appli, utilisée par des néophytes absolus, je protège la
feuille et ne déverrouille que les cellules nécessaires à la saisie;
donc quand on saisit une valeur, le curseur se déplace sur la cellule du
dessous. Comme je gère le worksheet_change, la cellule de référence est
celle sous la saisie, et elle est vide....donc ça ca pas comme je veux.

Gràce à la réponse de John, je pense pouvoir gérer
worksheet_selectionchange pour remonter le curseur d'un cran, mais n'y
aurait-il pas une solution plus directe ???

Encore une fois mille mercis à tous ceux qui ont une solution

@+ thierryp :-))






Avatar
AV
Ne serait-il pas plus judicieux de n'autoriser que la sélection des cellules non
verrouillées ?

Private Sub Workbook_Open()
With Sheets("Feuil1")
.Protect Contents:=True, UserInterfaceOnly:=True
.EnableSelection = xlUnlockedCells
End With
End Sub

AV
Avatar
Denys
Merci Alain...

Cela me sera très utile !!!!

Bonne journée

Denys


Ne serait-il pas plus judicieux de n'autoriser que la sélection des cellules non
verrouillées ?

Private Sub Workbook_Open()
With Sheets("Feuil1")
..Protect Contents:=True, UserInterfaceOnly:=True
..EnableSelection = xlUnlockedCells
End With
End Sub

AV