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,

 

[Compte Supprimé 979]

Salut Arthour973

J'ai essayé avec des SendKeys, mais ça ne fonctionne pas correctement

Peut-être passer par un UserForm avec un simple TextBox pour saisir ce que l'on souhaite ajouter
A la fermeture le texte vient se mettre à la fin de l'existant

@+

 

[Usine à gaz]

bonjour BrunoM45, le forum,
Je vous souhaite une belle journée
Merci pour ta réponse, j'ai également essayé des SendKeys et pas mal de trucs mais sans succès.
Peut-être que ce n'est pas possible ?
Je continue mes recherches ...
Amicalement,
lionel

 

[jmfmarques]

Bonjour
Le rectangle occupé par une cellule n'est pas une zone d'édition à part entière et n'est lui-même doté ni de propriétés, ni d'évènements. Seul l'est l'objet range (la cellule, donc), au sortir de ce rectangle.
Ce que tu appelles "curseur" a pour nom "caret" et permet de définir la position d'intervention graphique au sein de ce rectangle.
Lorsque tu double-cliques sur une cellule, le logiciel localise la position du curseur et calcule celle du caret sur la base de cette position.
Dans ces conditions, la seule manière de parvenir au but que tu recherches serait selon moi de faire intervenir des fonctions de l'Api de Windows pour :
- déterminer la position en pixels et par rapport à l'angle supérieur gauche de l'objet ActiveWindow correspondant au bord supérieur droit de la cellule concernée
- placer le curseur (fonction setcursorpos de l'Api de windows) en cette position et y simuler un double clic.

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

Maintenant : il serait par contre assez facile et plus sage de déterminer (et de l'annuler alors) toute modification tentée au milieu du texte que contient la cellule.

 

[patricktoulon]

bonjour
chez moi 2013 ca fonctionne tres bien

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

 

[jmfmarques]

Bonjour

bonjour
chez moi 2013 ca fonctionne tres bien

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
D[COLOR=rgb(184, 49, 47)][B]o[/B][/COLOR]events
For i = 1 To Len(Target.Value): Application.SendKeys "{RIGHT}": Next
End Sub

En es-tu vraiment certain ? Y compris si plusieurs mots et second double clic ?

 

[patricktoulon]

Bonjour jmfmarques
le 2d double clic selectionne le texte tu veux pas lui enlever cette fonction non? il ne la pas demandé
quand au ("plusieurs mots") bonnet blanc/ blanc bonnet ca match
testé

 

[Pounet95]

Bonjour,
Ici aussi XL2016 à condition de bien écrire DoEvents
Sur une cellule avec plusieurs mots aussi
Au second double clic positionnement derrière le 1er mot

Et j'ai encore droit à ce message ?????
Des messages ont été postés depuis que vous avez chargé cette page. Les voir ?

 

[jmfmarques]

Rappel de la préoccupation (pour mémoire)

ce qui éviterait d'écrire par erreur dans le texte existant.

Et sans aller à un second double clic. Après le premier, faire un simple clic où l'on veut dans le texte.
je ne crois pas que ce soit là la protection recherchée.

 

[patricktoulon]

re

 

[patricktoulon]

sinon plus rigolo encore

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

 

[Modeste geedee]

Bonsour®

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 ?

si tu utilises le double-click, c'est pour exécuter une action, pas pour modifier la cellule (simple click suffirait) ...
Dés que l'action est lancée, passer le parametre : CANCEL= TRUE

 

[jmfmarques]

sinon plus rigolo encore

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

Essai fait sur un ordinateur portable sans pavé numérique
Cellule contenant 111111 --->> double clic --->> devient 1&&&&& --->> re double clic --->> redevient 111111
C'est normal, docteur ?

 

[patricktoulon]

ben oui c'est ce que disais c'est plus rigolo
c'est rigolo parce que y a que chez toi que ca fait ca

Ah kapipikapi sendkeys tirez vous tout sauter chez jmfmarques

 

[Usine à gaz]

jmfmarques, Patrick, Pounet95, Modeste geedee,

Un grand merci à vous pour m'avoir répondu
@ jmfmarques : Ton code fonctionne très bien,
@ Patrick : Ton code post#5 fonctionne avec "DoEvents ", comme précisé par Pounet95 que je salue également,
@ Modeste geede : ce serait long d'expliquer le fonctionnement de mon fichier mais il me faut fait un

Un grand merci à vous tous
Je vais tester les versions Rigolotes +
lionel,