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,

 

[jmfmarques]

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

ça veut dire qu'il est fort à craindre que tu ne pourrais alors plus utiliser (avec ou sans le désagrément constaté) le code que tu as retenu comme solution.

 

[Usine à gaz]

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.

J'sais plus trop où j'en suis LOL

Ce que je peux dire tout simplement c'est que le code de Patrick a solutionné mon besoin mais que ça désactive mon pavé numérique

 

[patricktoulon]

qu'est ce qu'on se marre alors
sacré lionel toi tu mérite la palme
ayant vu ou participer tout tout tes posts concernant ton fichier j'ai peur qu'un jour ca te pete a la gueule on va retrouver des bouts de carte mère jusqu'à Tombouctou

 

[Usine à gaz]

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

Ce serait dommage ... sniff
En attendant, je vais essayer en désactivant le clavier avant et réactiver après, ce serait peut-être la solution ?

 

[Usine à gaz]

qu'est ce qu'on se marre alors
sacré lionel toi tu mérite la palme
ayant vu ou participer tout tout tes posts concernant ton fichier j'ai peur qu'un jour ca te pete a la gueule on va retrouver des bouts de carte mère jusqu'à Tombouctou

Mais non ... mais non, mon fichier, grâce à vous tous, il marche à merveille
Si tu veux, je te l'enverrai pour que tu vois

 

[patricktoulon]

Ce serait dommage ... sniff
En attendant, je vais essayer en désactivant le clavier avant et réactiver après, ce serait peut-être la solution ?

ben non car c'est aleatoire

 

[Usine à gaz]

aléatoire ??? manquait plus que ça

 

[jmfmarques]

A arthour973
Redevenons sérieux.
Je te propose de relire la dernière phrase de mon tout premier message (le N° 4) dans cette discussion.
Il n'est pas impossible que je te propose une solution indemne de surprise, mais en fonction de l'expression rigoureuse et détaillée des interventions/utilisateurs que tu acceptes ou refuses.

 

[patricktoulon]

 

[patricktoulon]

re
sinon j'ai ca mais ca n'empeche pas de reselectionner par la suite

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
'Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
'Const MOUSEEVENTF_RIGHTUP As Long = &H10



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 = .PointsToScreenPixelsX(Target.Offset(, 1).Left) - 1 * (dpi / 100)
        Y = .PointsToScreenPixelsY(Target.Top) + 2 * (dpi / 100)
    End With
     SetCursorPos X, Y
       Application.EnableEvents = False
     mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
    Application.EnableEvents = True

End Sub

et si tu veux pas t'ennuyer avec les declarations api
la même

Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
'Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
'Const MOUSEEVENTF_RIGHTUP As Long = &H10



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
    ExecuteExcel4Macro ("CALL(""user32"",""SetCursorPos"",""JJJJJ""," & X & ", " & Y & ")")
    ExecuteExcel4Macro ("CALL(""user32"",""mouse_event"",""JJJJJJ""," & MOUSEEVENTF_LEFTDOWN & ", " & 0 & ", " & 0 & ", " & 0 & ", " & 0 & ")")
    ExecuteExcel4Macro ("CALL(""user32"",""mouse_event"",""JJJJJJ""," & MOUSEEVENTF_LEFTUP & ", " & 0 & ", " & 0 & ", " & 0 & ", " & 0 & ")")
End Sub

 

[jmfmarques]

re
sinon j'ai ca mais ca n'empeche pas de reselectionner par la suite

est ce que j'exposais dans mon tout premier message et que je qualifiais de :

Bien cher payé pour peu de bénéfice réel.

 

[Usine à gaz]

Merci Patrick
je teste dès que j'ai un moment

 

[patricktoulon]

re
on s'en fou du benef' on fait faillite avec le confi'
depuis tout a l'heure je suis au balcon je guette le champignon atomique

 

[Staple1600]

Bonsoir les gaziers

[arthour973]
Pour infos
C'est de l'API (je parle du code du message#40 )
Et je croyais que tu avais dit: Niet, fini les API

 

[Usine à gaz]

Bonjour JM,
c'est vrai, mais il semble ne pas trop y avoir de lignes de codes, je vais qd même regarder