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
j'avais oublié l'espace que tu désire
on simplifie tout on condense et:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With ActiveWindow.ActivePane
        Z = (ActiveWindow.Zoom) / 100
        dpi = ((((.PointsToScreenPixelsY(72) - .PointsToScreenPixelsY(0)) / 72) / Z) * 72)
        X = Round(.PointsToScreenPixelsX(Target.Offset(, 1).Left) - 1 * (dpi / 100), 0)
        Y = Round(.PointsToScreenPixelsY(Target.Top) + 2 * (dpi / 100), 0)
    End With
    Target.Value = Trim(Target.Value) & " "
    ExecuteExcel4Macro ("CALL(""user32"",""SetCursorPos"",""JJJJJ""," & X & ", " & Y & ")")
    ExecuteExcel4Macro ("CALL(""user32"",""mouse_event"",""JJJJJJ""," & &H2 & ", " & 0 & ", " & 0 & ", " & 0 & ", " & 0 & ")")
    ExecuteExcel4Macro ("CALL(""user32"",""mouse_event"",""JJJJJJ""," & &H4 & ", " & 0 & ", " & 0 & ", " & 0 & ", " & 0 & ")")
End Sub

 

[Usine à gaz]

Bonsoir BrunoM45, jmfmarques, Patrick, Pounet95, Modeste geedee, le Forum,

je reviens pour vous dire que je pense avoir trouvé, à force de recherches la solution au souci de désactivation du pavé numérique.
En fait, je n'y suis pas pour beaucoup lol,
J'ai trouvé le code de kiki29 de 2009 qui traitait le souci avec un code "pas trop lourd' et qui semble fonctionner : https://www.excel-downloads.com/threads/vba-commande-pour-activer-le-pave-numerique-ver-num.130298/

Je joins je fichier test c'est la feuille "lionel"
Cependant, pour que le curseur de postionne "à touts les coups" en bas et à la fin du texte dans la cellule, il me faut répéter plusieurs fois les deux codes suivants :
Application.SendKeys ("{bas}") x par 04 soit 04 lignes de code
Application.SendKeys ("{Droite}") x par 18 soit 18 lignes de code
Est-il possible de coder chaque action sur 1 seule ligne ?

Bonne fin de soirée
Amicalement,
lionel,

 

[Staple1600]

Bonsoir BrunoM45, jmfmarques, Patrick, Pounet95, Modeste geedee, le Forum,

Bonsoir à toi également arthour973...

 

[patricktoulon]

RE
comme je disais un jour on va voir un champignon atomique
dis moi un peu tu savais que simuler les touches avec l'api keybd_event ne déactivait pas le numlock
parti de la que te vient il en tete
Allez dis moi un peu ?
Sacré lionel Va

 

[Usine à gaz]

Bonsoir JM,
J'espère que tu vas bien
Désolé de t'avoir "oublié"
lionel,

 

[Usine à gaz]

Re Patrick,
lol, je ne comprends rien à ce que tu me dis

 

[patricktoulon]

tu pense avoir trouver mais t'en est loin
ce que tu vois dans le post de kiki est l'utilisation de l'api qui elle ne déactive pas le numlock sauf si tu simule cette touche bien sur

ton problème et de tout ordre c'est une histoire de focus de la cell en mode édition après double click

donc on prend la meme et on recommence en prenant en compte que la cellule peut avoir plusiuer ligne
il faut donc replacer le curseur en bas a droite de la celule avant de simuler le click

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With ActiveWindow.ActivePane
        Z = (ActiveWindow.Zoom) / 100
        dpi = ((((.PointsToScreenPixelsY(72) - .PointsToScreenPixelsY(0)) / 72) / Z) * 72)
        X = Round(.PointsToScreenPixelsX(Target.Offset(, 1).Left) - 1 * (dpi / 100), 0)
        Y = Round(.PointsToScreenPixelsY(Target.Offset(1).Top) - 2 * (dpi / 100), 0)
    End With
    Target.Value = Trim(Target.Value) & " "
    ExecuteExcel4Macro ("CALL(""user32"",""SetCursorPos"",""JJJJJ""," & X & ", " & Y & ")")
    ExecuteExcel4Macro ("CALL(""user32"",""mouse_event"",""JJJJJJ""," & &H2 & ", " & 0 & ", " & 0 & ", " & 0 & ", " & 0 & ")")
    ExecuteExcel4Macro ("CALL(""user32"",""mouse_event"",""JJJJJJ""," & &H4 & ", " & 0 & ", " & 0 & ", " & 0 & ", " & 0 & ")")
End Sub

voila ça fonctionne même sur les cellules mufti ligne

 

[Staple1600]

Re, Bonsoir patricktoulon

arthour973 (pour infos)
ExecuteExcel4Macro ("CALL(""user32""
Ca reste de l'API
Même au black, comme dit patricktoulon

 

[patricktoulon]

bonsoir Staple1600
Ouais c'est de l'api (de la main à la main)

 

[Staple1600]

Re
•>patricktoulon
C'est à arthour que je m'adressais
(car il récemment dit qu'il ne voulait plus mettre d'API dans son usine à gaz

 

[Usine à gaz]

Patrick, OUI mais je préfère ton code du code du #post 52
J'aurais préféré ton code du #Post 52 mais il ne fait pas tout comme celui de la feuille "lionel"
Mais je le garde car c'est bu beau travail, merci Patrick,

 

[patricktoulon]

hoh! une de plus ou de moins ca fera plus de différence

 

[Usine à gaz]

Re-JM,
C'est vrai mais il me semble ne pas avoir le choix et ce code API est plutôt léger

 

[patricktoulon]

oui et comme je le fait au black( sans déclarer au impot) tu importe ou bon te semble 32/64 bits

 

[Usine à gaz]

Patrick, ton code du #Post 52 est tout bon super
J'ai juste modifié ça : Target.Value = Trim(Target.Value) & " - "
Je peux encore te demander un truc ? :
au dble clic ajoute au de " - ' que de fois double cliqué
Il faudrait qu'il n'ajoute pas " - " si déjà existant en fin de texte