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]

va y demande aujourd'hui c'est black friday

 

[Usine à gaz]

lol, si tu peux faire le code pour répondre à mon précédent message, ce sera parfait

 

[patricktoulon]

re

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) & IIf(Right(Trim(Target.Value), 1) = "-", " ", " - ")
    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]

Super Patrick, alors là, c'est nickel, je prends et ça me rend un grand service.
Merci Patrick
lionel,

 

[patricktoulon]

AMEN

 

[Usine à gaz]

lol tu es aussi perspicace que moi et c'est super
lionel,

 

[patricktoulon]

re
disons que je fait du vba pour me détendre je me marre avec ce langage

 

[Usine à gaz]

Grâce à toi et à vous tous, j'avance et j'apprends ... merci

 

[Usine à gaz]

Bonjour Patrick JM, BrunoM45, jmfmarques, Pounet95, Modeste geedee, le Forum,

@ Patrick
J'ai un souci de blocage quand j'entre ton code dans mon fichier de travail ... ça beug !
"erreur de compilation"
ci-dessous copie écran :

Peux-tu encore m'aider ?
Un grand merci Patrick,

Je vous souhaite, à toutes et à tous, une belle journée.
lionel :

 

[TooFatBoy]

Tu ne serais pas en Option Explicit, avec oubli de déclaration de la variable z ?

 

[Usine à gaz]

Bonjour Marcel32,
Non, le code n'est pas en "Option Explicit" dans le fichier test et pas de déclaration de variables.
Je joins le fichier test c'est le code de l'onglet "Patrick_bon"

 

[patricktoulon]

bonjour le fil
chez moi tout est ok sur les deux feuilles

 

[Staple1600]

Bonjour le fil, tous et toutes

•>[arthour973]
Voila que ce qui arrive quand on joue avec les API, on n'est pas toujours forcément HAPPY
Ok je sors

 

[patricktoulon]

bonjour Staple1600 ca n'a rien a voir avec les api
-->lionel ta version n'est pas bonne
tes sendkeys bas sont valables uniquement pour la valeur actuelle, quand il y aura 1 ligne de plus ben walouh!!!!

vire moi tout ça et

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Z&, dpi#, x&, y&
    If Not Application.Intersect(Target, Range("i3:i20")) Is Nothing Then
        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) & IIf(Right(Trim(Target.Value), 1) = "-", " ", " - ")
        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 If
End Sub

point barre

 

[patricktoulon]

re
ecoute je viens de teste 50 fois et je n'ai pas le soucis du numlock
pour ton model sendkeys cela suffit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
For i = 1 To Len(Target.Value): Application.SendKeys ("{bas}"): Next
End Sub

quand on arrive a la next ligne la touche bas fait office de touche droite
demonstration manuelle