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]

non justement

 

[MJ13]

ou cette aide que je trouve plus claire

Wait	Spé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.

 

[patricktoulon]

la touche vide doit être lancer sans attente sauf pour le snapshot bien sur ou ctrl +V
en gros sur de grosses données (buffering oblige)

 

[Usine à gaz]

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,

 

[Usine à gaz]

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,

 

[job75]

Bonjour Lionel,

Je cherche mais pour l'instant, je n'ai pas trouvé de solution à mon #Post139.

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 :

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+

 

[Usine à gaz]

Bonjour Gérard,
toujours là ... vraiment MERCI à toi
Je teste dès que possible et je te dis,
lionel

 

[job75]

Dans la macro j'avais oublié de limiter la plage étudiée au UsedRange (pour le copier-coller).

 

[Gégé-45550]

Re-Bonjour à toutes et à tous,

J'ai trouvé ma réponse :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.Value = ActiveCell.Value & " - "
DoEvents
For A = 1 To Len(Target.Value): Application.SendKeys "{RIGHT}": Next
SendKeys "{NUMLOCK}"
End Sub

Fichier test joint,
lionel,

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

 

[Usine à gaz]

Re-Gérard,,
ça fonctionne nickel et je pense qu'avec une boucle, ça devrait tout faire d'un coup
Je vais voir,
Merci gérard,
lionel,

 

[job75]

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.

Il y a eu beaucoup de choses sur ce fil depuis le post #20 !!! Vous voulez en rajouter encore ???

 

[Usine à gaz]

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,

 

[job75]

je pense qu'avec une boucle, ça devrait tout faire d'un coup

Tout faire d'un coup c'est pour épurer la colonne, le copier-coller suffit.

Autrement pour aller vite il faut se limiter aux cellules effectivement modifiées comme je le fait.

 

[Usine à gaz]

OK, Merci Gérard pour cette précision

 

[Usine à gaz]

mince, j'en voulais 150 .... hé ben ça y est lol