Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Position curseur quand double clic dans ma cellule

Usine à gaz

XLDnaute Barbatruc
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,
 

Pièces jointes

  • curseur_position.xlsm
    13.1 KB · Affichages: 49
Solution
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...
Trier par date Trier par votes

patricktoulon

XLDnaute Barbatruc
re
VB: 
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
 
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
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 :
 
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
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"
 

Pièces jointes

  • curseur_position_Patrick.xlsm
    23.9 KB · Affichages: 2
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
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
VB: 
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
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
ecoute je viens de teste 50 fois et je n'ai pas le soucis du numlock
pour ton model sendkeys cela suffit
Code: 
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
XL 2021 ListBox1 : format texte date et enregistrement sans ma cellule
2
Réponses
15
Affichages
921
Usine à gaz
J
  • Question Question
XL 2016 envoie mail automatique lors de double-clic sur cellule
Réponses
6
Affichages
585
J@ba
J
  • Question Question
XL 2021 Atteindre l'onglet du Client au clic sur son nom dans ma ListBox
2 3
Réponses
44
Affichages
2 K
Dudu2
H
  • Question Question
XL 2016 double clic pour aller à la ligne
Réponses
5
Affichages
664
Oneida
  • Résolu(e)
XL 2021 En restant sur Feuille 1 active, comment activer dans ma feuille2 la 1ère cellule vide de la colonne A
2
Réponses
29
Affichages
1 K
TooFatBoy
  • Résolu(e)
XL 2021 Commentaires automatiques
2
Réponses
22
Affichages
1 K
TooFatBoy
X
  • Question Question
XL 2016 Gestion RH (renvoie de la valeur de la premier cellule d'une liste quand en fin de liste la cellule est vide)
Réponses
6
Affichages
724
xsara63
X
  • Question Question
Microsoft 365 Insérer automatiquement un texte défini dans une cellule, avant ou après une série de chiffres.
Réponses
7
Affichages
612
Brigitte 45
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
18
Affichages
1 K
GClaire
G
  • Question Question
XL 2016 Position userform dans coin supérieur gauche de cellule 2016 et+
7 8 9
Réponses
129
Affichages
4 K
Dudu2
  • Question Question
Microsoft 365 TextBox ajout texte dans cellule : clic sur entrée pour sortir
Réponses
9
Affichages
456
Usine à gaz
N
  • Résolu(e)
XL 2019 Alimenter une combobox selon critère après avoir double cliqué sur une feuille
2
Réponses
20
Affichages
1 K
sousou
B
  • Résolu(e)
Autres Colorer une cellule en un clic
2
Réponses
18
Affichages
2 K
baguihome
B
L
  • Résolu(e)
Microsoft 365 VBA double clic et saisie de cellule avec texte et horaire
Réponses
4
Affichages
518
Le novice
L
  • Résolu(e)
Microsoft 365 Simuler un double clic avec SendKeys
Réponses
12
Affichages
2 K
dysorthographie
V
  • Résolu(e)
Microsoft 365 Obligé de double cliquer pour valider une cellule (problème de format)
Réponses
2
Affichages
2 K
vince2k
V
  • Résolu(e)
XL 2021 recherche supprimer les espaces '"si valeur cherchée est numérique" sinon NON
Réponses
7
Affichages
577
Usine à gaz
  • Question Question
XL 2019 Target ne s'exécute pas si je valide ma cellule vide
Réponses
5
Affichages
777
patricktoulon
  • Résolu(e)
XL 2021 touches Ctrl+R pour revenir
Réponses
4
Affichages
484
TooFatBoy
T
  • Question Question
Microsoft 365 extraire plusieurs parties de texte dans le contenu d'une cellule
Réponses
4
Affichages
671
Cousinhub
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…