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,

 

[job75]

Eh bien il en faudra un de plus car ma macro ne va pas si l'on entre 2 tirets séparés par un espace.

Il faut introduire l'espace dans la chaîne "=-+ " :

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 = Mid(f, i): Exit For
    Next i, r
    Application.EnableEvents = True
End If
End Sub

 

[patricktoulon]

re
bonjour
puré on a jamais fini a toi hein
bon comme maintenant on peu maîtriser le numlok avec le sendkeys de l'application je l'utilise

pour l'interdiction de modifier le texte précédent voici un exemple

Dim activetarget
Dim activetargetValue
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Set Mask = ActiveSheet.Shapes("mask")
'If Not Mask Is Nothing Then Mask.Delete
    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 ("{right " & 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é
            'If .Value = "" Then

        End With
    End If
    Application.EnableEvents = True
    Set activetarget = Target: activetargetValue = Target.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = activetarget.Address Then
        If Left(Target.Value, Len(activetargetValue)) <> activetargetValue Then
            Application.Undo
            Target.Select
             End If
    End If
End Sub

testé!!!

il va nous faire un excel 2030 celui là

 

[Usine à gaz]

Eh bien il en faudra un de plus car ma macro ne va pas si l'on entre 2 tirets séparés par un espace.

Il faut introduire l'espace dans la chaîne "=-+ " :

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 = Mid(f, i): Exit For
    Next i, r
    Application.EnableEvents = True
End If
End Sub

Merci Gérard

 

[Usine à gaz]

re
bonjour
puré on a jamais fini a toi hein
bon comme maintenant on peu maîtriser le numlok avec le sendkeys de l'application je l'utilise

pour l'interdiction de modifier le texte précédent voici un exemple

Dim activetarget
Dim activetargetValue
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Set Mask = ActiveSheet.Shapes("mask")
'If Not Mask Is Nothing Then Mask.Delete
    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 ("{right " & 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é
            'If .Value = "" Then

        End With
    End If
    Application.EnableEvents = True
    Set activetarget = Target: activetargetValue = Target.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = activetarget.Address Then
        If Left(Target.Value, Len(activetargetValue)) <> activetargetValue Then
            Application.Undo
            Target.Select
             End If
    End If
End Sub

testé!!!

il va nous faire un excel 2030 celui là

Merci Patrick

 

[patricktoulon]

re
au propre ca donne ca

Dim activetarget As Range
Dim activetargetValue
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(.Value) & IIf(Right(Trim(.Value), 1) = "-", " ", " - "): If .Value = " - " Then .Value = ""
            Application.SendKeys ("{right " & Len(.Value) + 1 & "}")
        End With
    End If
    Application.EnableEvents = True
    Set activetarget = Target: activetargetValue = Target.Value
    Application.SendKeys "" 'eraze (buffer keys) and (association keys) and send (null keycode)
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not activetarget Is Nothing Then
    If Target.Address = activetarget.Address Then
        If Left(Target.Value, Len(activetargetValue)) <> activetargetValue Then
            Application.Undo
            Target.Select
        End If
    End If
 End If
End Sub

 

[job75]

Chez moi sur Excel 2019 ( 64 bits) la macro Worksheet_BeforeDoubleClick du post #155 désactive le pavé numérique.

 

[patricktoulon]

Bonjour job75
étonnant
testé sur (2003 2007 2013 ) 32 bits et 2016 64 bits
tu es sur ?? de ne pas avoir eu une erreur qui aurait empêcher le code d'aller jusqu'au bout ?

 

[job75]

tu es sur ??

Chez moi après ouverture du fichier c'est au 1er double-clic que le pavé numérique se désactive.

Après réactivation manuelle les double-clics suivants ne le désactivent plus.

 

[patricktoulon]

re
bizarre tu serais pas sur W10 par hasard

 

[job75]

bizarre tu serais pas sur W10 par hasard

Oui et je ne trouve pas ça bizarre, ça fait bien longtemps que j'ai abandonné Application.SendKeys.

 

[jmfmarques]

Ecrit près de 140 messages plus haut :

On y arrive peu à peu, n'est-ce-pas, Patrick ? Et (et tu le sais pourtant depuis au moins quelques mois), tant SendKeys que Application.Serndkeys peuvent avoir des effets collatéraux indésirables selon : 1) le clavier et 2) l'O.S. Ce n'est pas faute (de ma part), d'avoir tenté d'appeler...

Et ces effets "collatéraux" ne sont pas limités au "NUMLOCK" et peuvent sur certaines configurations clavier/OS concerner le "CAPSLOCK" également, notamment sur certains claviers sans pavé numérique.
J'en ai parlé plus haut.