Microsoft 365 Position curseur quand double clic dans ma cellule

Usine à gaz · 8 Avril 2020

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 · 11 Avril 2020

bien vu job75

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("s7:s20000")) Is Nothing Then
        Application.EnableEvents = False
        With Target
            .Value = Trim(Target.Value) & IIf(Right(Trim(Target.Value), 1) = "-", " ", " - ")
           If .Value = " - " Then .Value = ""
            Application.SendKeys ("{Down " & Len(.Value) & "}")
            Application.SendKeys "" 'visiblement a pour effet d'annuler la touche precedente donc pas d'association de touche
            'qui ammene la plupart du temps a transformer les touches 4,6,2,8 en fleche et annule les autre du pavé
        End With
    End If
    Application.EnableEvents = True...

jmfmarques · 9 Avril 2020

ç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 · 9 Avril 2020

Marcel32 à dit:
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 · 9 Avril 2020

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 · 9 Avril 2020

arthour973 à dit:
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 · 9 Avril 2020

patricktoulon à dit:
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 · 9 Avril 2020

arthour973 à dit:
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 · 9 Avril 2020

aléatoire ??? manquait plus que ça

jmfmarques · 9 Avril 2020

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 · 9 Avril 2020

patricktoulon · 9 Avril 2020

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

VB:

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

VB:

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 · 9 Avril 2020

patricktoulon à dit:
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 · 9 Avril 2020

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

patricktoulon · 9 Avril 2020

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 · 9 Avril 2020

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 · 9 Avril 2020

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

Microsoft 365 Position curseur quand double clic dans ma cellule

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

patricktoulon

jmfmarques

XLDnaute Accro

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires