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

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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

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
ou cette aide que je trouve plus claire
WaitSpécifie si la macro doit attendre que la séquence de touches ait été traitée. Cliquez sur Oui (pour attendre) ou Non (pour ne pas attendre). La valeur par défaut est Non.
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour le Forum,
Dans la continuité de ce long fil qui nous a appris bcp, je me permets de questionner pour en finir :
Voir fichier joint :
Pour ne plus avoir le souci NB (photo ci-dessous (dans le fichier)), si cellule contient déjà du texte :
est-il possible ne pas pouvoir écrire, par exemple, avant "18/06/19" ?
Un grand merci une fois plus 🙂
Bon dimanche à toutes et à tous,
lionel,
 

Pièces jointes

Vote positif 0 Vote négatif
Bjr à toutes et à tous,
J'espère que allez bien 🙂
Je cherche mais pour l'instant, je n'ai pas trouvé de solution à mon #Post139.
Peut-être que ce n'est pas possible ?
Je continue mes recherches ...
Bonne journée,
Amicalement,
lionel,
 
Vote positif 0 Vote négatif
Bonjour Lionel,
arthour973 à dit:
Je cherche mais pour l'instant, je n'ai pas trouvé de solution à mon #Post139.
Cliquez pour agrandir...
La liste des fonctions à gauche apparaît quand le texte en colonne S commence par = ou - ou +.

Pour l'éviter utilise (ou complète) la macro Worksheet_Change :
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, f$, i%
Set r = Intersect(Target, [S:S], UsedRange)
If Not r Is Nothing Then
    Application.EnableEvents = False
    For Each r In r
        f = r.Formula
        For i = 1 To Len(f)
            If InStr("=-+", Mid(f, i, 1)) = 0 Then r = Trim(Mid(f, i)): Exit For
    Next i, r
    Application.EnableEvents = True
End If
End Sub
Pour supprimer d'un seul coup ces caractères indésirables copier-coller la colonne S sur elle-même.

Edit : j'avais oublié de limiter la plage étudiée au UsedRange.

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour arthour, bonjour le forum,

Attention avec {NUMLOCK} qui est une touche à bascule : 1er clic => active le pavé numérique, 2e clic => désactive le pavé numérique. Donc ... un coup ça marche ... un coup ça marche plus.

Bonne journée
 
Vote positif 0 Vote négatif
Bonjour Gégé-45550,
"le pavé numérique. Donc ... un coup ça marche ... un coup ça marche plus."
Relis bien le fil si tu as un peu de temps, ce souci a été résolu par Patrick 🙂

LOL,on en reste là pour moi tout est nickel 🙂
lionel,
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Résolu(e)
XL 2016 Double-Clic dans une cellule déclenche l'événement Worksheet_Change
Réponses
7
Affichages
149
TooFatBoy
  • Résolu(e)
XL 2021 Soucis d’effacement dans ma colonne AE
2
Réponses
23
Affichages
356
ARRU
  • Résolu(e)
XL 2021 ListBox1 : format texte date et enregistrement sans ma cellule
2
Réponses
15
Affichages
965
Usine à gaz
J
  • Question Question
XL 2016 envoie mail automatique lors de double-clic sur cellule
Réponses
6
Affichages
661
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
3 K
Dudu2
H
  • Question Question
XL 2016 double clic pour aller à la ligne
Réponses
5
Affichages
720
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
807
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
735
Brigitte 45
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
  • Question Question
Microsoft 365 TextBox ajout texte dans cellule : clic sur entrée pour sortir
Réponses
9
Affichages
505
Usine à gaz
  • Question Question
XL 2016 Position userform dans coin supérieur gauche de cellule 2016 et+
7 8 9
Réponses
129
Affichages
6 K
Dudu2
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
569
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
3 K
vince2k
V
  • Question Question
XL 2019 Target ne s'exécute pas si je valide ma cellule vide
Réponses
5
Affichages
822
patricktoulon
  • Résolu(e)
XL 2021 recherche supprimer les espaces '"si valeur cherchée est numérique" sinon NON
Réponses
7
Affichages
724
Usine à gaz
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…