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...

Compte Supprimé 979 · 8 Avril 2020

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

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

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

bonjour
chez moi 2013 ca fonctionne tres bien

VB:

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

Bonjour

patricktoulon à dit:
bonjour
chez moi 2013 ca fonctionne tres bien

VB:

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

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

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

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

patricktoulon · 9 Avril 2020

sinon plus rigolo encore

VB:

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

Bonsour®

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

patricktoulon à dit:

sinon plus rigolo encore

VB:

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

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

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,

Microsoft 365 Position curseur quand double clic dans ma cellule

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

patricktoulon

Compte Supprimé 979

Guest

Usine à gaz

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

Pounet95

XLDnaute Occasionnel

jmfmarques

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires