Microsoft 365 Position curseur quand double clic dans ma cellule

[Usine à gaz]

Bonjour à toutes et à tous,
J'espère que vous allez bien

Toujours dans ma recherche de gains de temps et d'éviter les erreurs,
Je bute sur un codage que je n'arrive pas à faire malgré mes tentatives et recherches.

Quand on double clic dans une cellule, le curseur se positionne automatiquement là où on clique dans la cellule et souvent au milieu du texte existant..
Je voudrais, quand je double clic dans ma cellule : que le curseur se positionne après le texte
ce qui éviterait d'écrire par erreur dans le texte existant.
Auriez-vous la solution ?

Je joins une petit fichier test
Avec mes remerciements,
Je vous souhaite une belle journée,
Amicalement,
lionel,

 

[patricktoulon]

re
il est ou le code de jmfmarques!!???

 

[Usine à gaz]

LOL, j'avais pas vu que c'était ton code modifié
lionel,

 

[jmfmarques]

c'est rigolo parce que y a que chez toi que ca fait ca

Ah ...
Mon ordinateur portable : Ultrabook LATTITUDE E7450 - OS : Win 10
Tu crois que c'est un matériel "rare" ???
Et au fait : si au lieu de 111111 la cellule contient 222222 -->> 2ééééé (logique).
Tu crois vraiment que personne d'autre n'a ce même matériel (au demeurant d'excellente qualité). ?

 

[Usine à gaz]

@ Patrick, ton code fonctionne super bien vraiment merci à toi
Pour le fun est-il possible d'ajouter un espace après la dernière lettre et de se positionner juste après ? lol,
lionel,

 

[Usine à gaz]

Re-Bonjour à toutes et à tous,

J'ai trouvé ma réponse :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.Value = ActiveCell.Value & " - "
DoEvents
For A = 1 To Len(Target.Value): Application.SendKeys "{RIGHT}": Next
SendKeys "{NUMLOCK}"
End Sub

Fichier test joint,
lionel,

 

[Usine à gaz]

Re-Bonjour à tous,
@ Patrick :
J'ai un souci avec "SendKeys ("{NUMLOCK}")"

'Patrick
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Value = "=RIGHT(RC,3)" <> " - " Then
ActiveCell.Value = ActiveCell.Value & " - "
End If
DoEvents
For A = 1 To Len(Target.Value): Application.SendKeys "{RIGHT}": Next
If NumLock = False Then NumLock = True
SendKeys ("{NUMLOCK}")
End Sub

Mon pavé numérique est désactivé fois sur 2
Aurais-tu la solution pour qu'il soit toujours activé ?
Merci à toi
lionel,

 

[jmfmarques]

Re-Bonjour à tous,
@ Patrick :
J'ai un souci avec "SendKeys ("{NUMLOCK}")"
.....

Mon pavé numérique est désactivé fois sur 2
Aurais-tu la solution pour qu'il soit toujours activé ?
Merci à toi
lionel,

On y arrive peu à peu, n'est-ce-pas, Patrick ?
Et (et tu le sais pourtant depuis au moins quelques mois), tant SendKeys que Application.Serndkeys peuvent avoir des effets collatéraux indésirables selon :
1) le clavier
et
2) l'O.S.
Ce n'est pas faute (de ma part), d'avoir tenté d'appeler plus haut ton attention sur ce genre de mésaventure...
Allez -->> je te laisse "corriger" (je mets entre guillemets ce verbe car pour moi, ajouter la verrue "WScript.Shell" nécessaire (et tu la connais) n'est pas ce qu'il y a de plus orthodoxe.

 

[patricktoulon]

re
BEN CHEZ MOI LE PAVé n'est pas déactivé
c'est vrai ca j'avais pas fait attention depuis que j'ai mon nouveau clavier sans fil ca déactive plus le sendkeys

je vent mon clvier pas cher 200€

ps :non le wscriptshell ne fonctionnera pas sur W7 et plus j'ai testé

 

[TooFatBoy]

Bonjour,

@arthour973 : pourquoi envoies-tu un "numlock" ???
(c'est normal que ça active le pavé numérique, puis la fois d'après ça le désactive, etc. C'est le principe de fonctionnement de cette touche )
N'est-ce pas plutôt une espace qu'il faudrait, soit envoyer, soit ajouter au contenu de la cellule ?

 

[Usine à gaz]

B....L
Envoies ton clavier LOL
Si tu as une solution avec clavier fil, n'hésites pas, ça m'arrangerait vraiment

Mais ... j'me dit en désactivant le clavier avant et réactiver après, ce ne serait pas la solution ?

lionel,

 

[jmfmarques]

Chez toi, non, Patrick
Mais les sendkeys de ton code ne choisissent pas où ils vont être utilisés

Vais-je me permettre d'ajouter que tout donne de surcroît à penser que Microsoft est sur la voie de l'inhibition ****** totale de toute forme de sendkeys dans un avenir proche.
(****** Message subliminal passé à arthour973)

 

[Usine à gaz]

Bonjour Marcel32
Merci à toi d'être là aussi ..
J'ai pas compris ta question =
lionel,

 

[jmfmarques]

pourquoi envoies-tu un "numlock" ???

Au "hasard", Marcel : pour tenter de "réparer" son changement d'état

 

[Usine à gaz]

Re-bonjour jmfmarques,
ça veut dire que bientôt, je ne pourrais plus positionner positionner mon curseur après le texte ?

 

[TooFatBoy]

Bonjour Marcel32
Merci à toi d'être là aussi ..
J'ai pas compris ta question =
lionel,

Tu dis que tu veux ajouter une espace à la fin du contenu de la cellule, puis tu dis que tu à trouvé et ce que tu montres c'est l'envoie d'un Numlock.