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]

Respect Mr @job75

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target.Value = Trim(Target.Value) & IIf(Right(Trim(Target.Value), 1) = "-", " ", " - ")
CreateObject("wscript.shell").SendKeys "{F2}" 'évite la désactivation du pavé numérique
End Sub

 

[patricktoulon]

en effet le cancel a pour effet de libérer le focus généer par le double click et de pouvoir utiliser le wscript.shell.sendkeys
c'est propre et net
rien a dire

 

[job75]

Target.Value = Trim(Target.Value) & IIf(Right(Trim(Target.Value), 1) = "-", " ", " - ")

Pourquoi mettre un tiret à la fin du texte ? Laissez l'utilisateur faire ce qu'il veut !

 

[patricktoulon]

re
par ce que c'est ce que l'utilisateur a demandé

 

[jmfmarques]

en effet le cancel a pour effet de libérer le focus généer par le double click et de pouvoir utiliser le wscript.shell.sendkeys
c'est propre et net
rien a dire

Si, si ... Il y a "à dire"

1) étonnant :

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

2) relire également mon commentaire en message 26

 

[patricktoulon]

ben jacques si tu étais plus explicite et te mettais a la hauteur des autres tu serais plus et mieux reconnu combien de fois te l' 'ai-je dis ici et dans l'autre monde que "tu es le seul a parler ton language"
et oui wscript.shell est bien bloqué sans le cancel j'avais testé

d'autre part j'ai remarqué un truc que vous n'avez pas remarqué sinon ca serait réglé ici et ailleurs partout ou cette question tarabuste

savez vous comment empêcher le numlock de se désengager avec application.sendkeys

 

[Usine à gaz]

Re-Bonjour Gérard,
Ton code "court" fonctionne aussi
Je l'ai mis dans mon "usine à gaz" qui n'a pas encore explosée comme suit :

If Not Application.Intersect(Target, Range("s7:s20000")) Is Nothing Then
    Application.EnableEvents = False
    Cancel = True
    CreateObject("wscript.shell").SendKeys "{F2}" 'évite la désactivation du pavé numérique
    Target.Value = Trim(Target.Value) & IIf(Right(Trim(Target.Value), 1) = "-", " ", " - ")
    Application.EnableEvents = True
    Exit Sub
    End If

ça fonctionne bien, le curseur est bien ds col S à droite de OUI - mais il ouvre la fenêtre à gauche ou il y a NB comme pour choisir une formule : photo en pièce jointe
est-il possible d'éviter cette ouverture ?
lionel

 

[Usine à gaz]

Re-Gérard,
Comme l'a signalé Patrick,
Il fallait comme ça :

 If Not Application.Intersect(Target, Range("s7:s20000")) Is Nothing Then
    Application.EnableEvents = False
    Cancel = True
    Target.Value = Trim(Target.Value) & IIf(Right(Trim(Target.Value), 1) = "-", " ", " - ")
    CreateObject("wscript.shell").SendKeys "{F2}" 'évite la désactivation du pavé numérique
    Application.EnableEvents = True
    Exit Sub
    End If

et là, c'est nickel de chez nickel
Youpy c'est super

lol : Ha ben ! non même problème !
lionel,

 

[Usine à gaz]

LOL : Ha ben ! non même problème que #Post 97

 

[patricktoulon]

et oui wscript.schell est externe et pointe donc sur la fenêtre active qui n'est pas la grille

tu veux bien essayer cela 10 fois 20 fois et au bout tester ton pavé numérique

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) = "-", " ", " - ")
            Application.SendKeys ("{Down " & Len(.Value) & "}")
            Application.SendKeys ""'surprise surprise!!!
        End With
    End If
    Application.EnableEvents = True
End Sub

chez moi j'ai testé le pavé n'est plus désengagé

 

[Usine à gaz]

@patrick : lol, je t'en aurai pris du temps (je te prie de m'en excuser)
Vraiment merci à toi
je teste et je reviens ...

 

[patricktoulon]

ben c'est benef pour tous pour le coup parce que j'ai compris mais avant de trop m'avancer test moult fois sans modération
j'expliquerais après

 

[Usine à gaz]

@patrick : J'ai testé le code du #Post100.
Même problème que le code de Gérard photo en pièce jointe
lionel,

 

[patricktoulon]

trop petite la photo on vois rien
mais a mon avis t'a du faire autre chose car avant ca fonctionnait au risque de désengagé le pavé
donc ferme sans enregistrer et ré ouvre ton fichier au propre en mémoire saine
vérifie avant le pavé bien sur

 

[Usine à gaz]

j'en ai mis une autre taille réelle